Hello,

I made a logon script for my AD users. I have 3 scripts named as:

1. logon.kix
2. sharedrive.kix
3. proxy.kix

 Code:
---------
logon.kix
---------

CLS
Small

Color b + /b
Box(2, 2, 5, 89, single)

Color b + /b
Box(5, 0, 28, 80, GRID)       ; 'background grid'

Color b + /b
Box(2, 0, 4, 79, single)
Color w + /b
At(3, 4) "DOIT                     Script Version @Kix                  $DT  "

Color b /n
Box(8, 21, 18, 41, Å)         ; 'shadow' of the box

Color w + /b
Box(7, 11, 21, 69, FULL)

Color w + /b
At(7, 30) " MBL "

Color w + /b
At(9, 19)  "Userid        :" 
At(10, 19) "Full name     :"
At(11, 19) "Description	 :"
At(12, 19) "Computer Name :"
At(13, 19) "IP Address    :"
At(14, 19) "MAC Address   :"
At(15, 19) "Domain        :"
At(16, 19) "Logon Domain  :"
At(17, 19) "Logon Server  :"

Color y + /b
At(9, 35)  @userid 
At(10, 35) @fullname
At(11, 35) $COMM
At(12, 35) @HostName
At(13, 35) $IPAddress
At(14, 35) @ADDRESS0
At(15, 35) @domain
At(16, 35) @LDomain
At(17, 35) $LS

Sleep 2

;Color c + /b
;Network Drives and Printers Mappings
?AT(19, 19) "Please wait while Network Resources are mapping"

Sleep 4

Call "sharedrive.kix"

--------------
sharedrive.kix
--------------
Color w + /b
At(19, 21)"Connecting Network Drives & Printers..."

If InGroup("ITD")
	Use O: /DEL
	Use O: "\\172.30.7.10\shared1$"
	Use S: "\\172.30.7.10\GShared"
	AddPrinterConnection("\\172.30.7.10\HPLaser1")
   SetDefaultPrinter("\\172.30.7.10\HPLaser1") = 0
EndIf

If InGroup("Finan")
	Use O: /DEL
	Use O: "\\172.30.7.10\shared2$"
	Use S: "\\172.30.7.10\GShared"
	AddPrinterConnection("\\172.30.7.10\Printer2")
   SetDefaultPrinter("\\172.30.7.10\Printer2") = 0
	EndIf

If InGroup("Mktg")
	Use O: /DEL
	Use O: "\\172.30.7.10\shared3$"
	Use S: "\\172.30.7.10\GShared"
	AddPrinterConnection("\\172.30.7.10\Printer3")
	SetDefaultPrinter("\\172.30.7.10\Printer3") = 0
   EndIf

Exit

---------
proxy.kix
---------

Color w + /b
At(19, 21)"Configure Internet Proxy Settings"

If InGroup("ITD")
	WriteValue("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", 1, REG_DWORD)
	WriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "172.23.1.2:8080", "REG_SZ") 
EndIf

If InGroup("MKTG")
	WriteValue("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", 1, REG_DWORD)
	WriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "10.1.2.164:8080", "REG_SZ") 
EndIf

Exit 1
Problem occured when display text written in scripts like first display

"Please wait while Network Resources are mapping"
then display
"Connecting Network Drives & Printers..."
then display
"Configure Internet Proxy Settings"

Edited by Glenn Barnas (2012-05-16 11:54 AM)
Edit Reason: added code tags