$x = WriteLine( 1 , @time + " ----> " + "Starter seksjonen for å lage standardisert signatur i Outlook" + @CRLF)
If NOT Exist ("\\BK-Dc1\netlogon") $AdServer = '\\BK01'
	Else $AdServer = '\\BK-DC1'
EndIf
$NetLogon = $AdServer + '\Netlogon'
$Netlogon = $AdServer +'\Netlogon'
$Filer = $NetLogon + '\Filer'
$Log = $Netlogon + "\Logger"
$klokkeslett = @Time
$klokkeslett = replace($klokkeslett, ":", ".", 1, -1)
If NOT @LOGONMODE
	Break on
EndIf

CLS
At (1,0) "Lager standardisert outlook-signatur..."
Sleep 0.1





;Get data from AD
;Open ADSystemInfo object
$objSysInfo = CreateObject("ADSystemInfo")
;Get the username from AD.
$strUser 	= $objSysInfo.UserName
;Get the users deatils using LDAP.
$objUser	= GetObject("LDAP://" + $strUser)
;Get the users full name.
;$strName 		= $objUser.FullName
;Stokket litt om på hvordan navn skal vises : Fornavn Etternavn
$strName 		= $objUser.Givenname + " " + $objUser.sn
;Get the users title.
$strTitle 		= $objUser.Title
;Get the users default reply e-mail address.
$strMail 		= $objUser.mail
;Get the users department.
$strDepartment = $objUser.Department
;Get the users company name.
$strCompany 	= $objUser.Company
;Get the users phone number.
$strPhone 		= $objUser.telephoneNumber
;Get the users mobile phone number
$strMobile		= $objUser.mobile
;Get the users homepage.
$strWeb		 	= $objUser.wWWHomePage

; In a terminalserver-environment we generate new signature if the control-file doesn't exist
if not exist ("%appdata%\OutlookSignature.txt")
	Run "%comspec% /c print > %appdata%\OutlookSignature.txt"
	$x = MakeNewSignature() ; Call the function to generate signature
EndIf

;Check for file identifying the user, to use this as reference for comparing values
if exist ("$Log\OutlookSignature\@userid.txt")


		if open (8, "$Log\OutlookSignature\@userid.txt") = 0
					;$x = ReadLine(8)
				do 
				;WHILE @ERROR = 0
				$counter = $Counter + 1
				? $Counter
				 		$x = ReadLine(8)
						? "Line read: [" + $x + "]"
						vartypename ($x)

						 if $x = $strName or $x = $strTitle or $x = $strMail or $x = $strDepartment or $x = $strCompany or $x = $strPhone or $x == strMobile or $x = strWeb
						
							$Change = "no"
						else
							$Change = "yes"
							$MakeNewSignature = "yes"
						Endif
						? "$$x : " + $x
						? "$$Change : " + $Change
						?"$$MakeNewSignature :" + $MakeNewSignature
						
				sleep 3
				cls
				Until $Counter = 8
				
					while @error = 0
						$x = ReadLine(8)
						? "Line read: [" + $x + "]"
					if $x = @wksta or left(@wksta,5) = "BK-TS"
						$MachineExist = "yes"
					endif
					LOOP
				
			Close (8)

						

		
			? "$$MakeNewSignature : " $MakeNewSignature
			? "$$MachineExist :" $MachineExist
			sleep 0.5
			
			; Has something changed, or does the machine exist in the file?
			if $MakeNewSignature <> "yes" and $MachineExist = "yes" ; Nothing has changed, just write info to the log-file
				? "Informasjon fra fil er lik informasjon i AD, og " + @wksta + " er det laget signatur for tidligere; ingenting gjøres.."
				sleep 0.5
				if open (5, "$Log\OutlookSignatur.txt",5) = 0
					$Tekst = left (left ( "@YEAR" + "-" + "@MONTHNO" + "-" +"@MDAYNO" + "-" + "     ",11)  + $klokkeslett + " ---> " + left(@wksta + " " + left(%clientname% + "       ",6) + " " + @userid + "        ",20) + " - " + left(@fullname + "          ",29) + "             ",75)	
					if $LagetNySignatur <> "yes"
						writeline (5, $Tekst + "Informasjon er som før, igenting gjøres (" + $StrTitle + ")" + @CRLF)
					endif
				EndIf
				Close (5)
				sleep 0.5
				cls
				return
			else ; File-content is different from AD; generate new signature
			;debug on
				? "Ny signatur må opprettes.."
				sleep 0.5
				if $MachineExist <> "yes" ; Only machine has changed; write the name of the machine in the users control-file
					if open (9, "$Log\OutlookSignature\@userid.txt",5) = 0
						writeline (9,@wksta + @CRLF)
					
						close(9)
					endif
					$x = MakeNewSignature() ; Call the function to generate signature
					return
				endif	
				;Something else than the machine has changed: delete existing file and write info from AD in new file
				del "$Log\OutlookSignature\@userid.txt" ;
				if open (9, "$Log\OutlookSignature\@userid.txt",5) = 0
					writeline (9,$strName + @CRLF)
					writeline (9, $strTitle + @CRLF)
					writeline (9, $strMail + @CRLF)
					writeline (9, $strDepartment + @CRLF)
					writeline (9, $strCompany + @CRLF)
					writeline (9, $strPhone + @CRLF)
					writeline (9, $strMobile + @CRLF)
					writeline (9, $strWeb + @CRLF)
					writeline (9, "----------" + @CRLF)
					writeline (9, "Signatur er opprettet på følgende maskiner:" + @CRLF)
					writeline (9,@wksta + @CRLF)
					close(9)
				endif
				if $LagetNySignatur = "yes" ; Check if signature has already has been made (can happen if terminalserver-check file has been deleted). Routine to prevent signature to happen twice
					return
				EndIf
				$x = MakeNewSignature() ; Call the function to generate signature
				return
			Endif
		Endif	
else ; File doesn't exist. New signature must be generated

		? "Ny signatur må opprettes"
		sleep 0.5

		if exist ("$Log\OutlookSignature\@userid.txt")
			del "$Log\OutlookSignature\@userid.txt"
		endif
		if open (9, "$Log\OutlookSignature\@userid.txt",5) = 0
			writeline (9,$strName + @CRLF)
			writeline (9, $strTitle + @CRLF)
			writeline (9, $strMail + @CRLF)
			writeline (9, $strDepartment + @CRLF)
			writeline (9, $strCompany + @CRLF)
			writeline (9, $strPhone + @CRLF)
			writeline (9, $strMobile + @CRLF)
			writeline (9, $strWeb + @CRLF)
			writeline (9, "----------" + @CRLF)
			writeline (9, "Signatur er opprettet på følgende maskiner:" + @CRLF)
			writeline (9,@wksta + @CRLF)
			close(9)
		endif
		if $LagetNySignatur = "yes"
			return
		EndIf
		$x = MakeNewSignature()
		return
endif

Users name
Users job-title
username@company.com
Department

11111111
99999999
http://www.company.com
----------
Signature is generated on the following machines:
PC100

...
if exist ($Log\OutlookSignature\@userid.txt")
...

...
if exist ($Log + "\OutlookSignature\" + @userid + ".txt")
...

...
if $x = $strName or $x = $strTitle or $x = $strMail or $x = $strDepartment or $x = $strCompany or $x = $strPhone or $x == strMobile or $x = strWeb
...

$x == strMobile