---------
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
