Break on
$LogonServer = SubStr(@LSERVER,3,Len(@LSERVER))
CLS
;Defining constants !
; Default - 640x480
$ScreenCols=80
$ScreenLines=36
$ScreenEnd=80
Shell '%COMSPEC% /C MODE CON COLS=' + $ScreenCols
Shell '%COMSPEC% /C MODE CON Lines=' + $ScreenLines
$IPAddress1 = LTrim(SubStr(@IPAddress0,1,3))
$IPAddress2 = LTrim(SubStr(@IPAddress0,5,3))
$IPAddress3 = LTrim(SubStr(@IPAddress0,9,3))
$IPAddress4 = LTrim(SubStr(@IPAddress0,13,3))
Color b+/w
Box(1,1,7,78,single)
$Fullname = UCase(@Fullname)
At (3,5) 'Hello ' + @Fullname
At (5,5) 'You are logging onto domain ' + @Domain + ' (Logonserver: ' + @lserver + ')'
Color w+/n
At (7,1)
$ServerPath = @LSERVER + '\NETLOGON'
Call @LSERVER + '\NETLOGON\Functions.kix'
$FunctionsDeclared = 'yes'
; Calling basic information script
Call @LSERVER + '\NETLOGON\BasicInfo.kix'
; Giving resources (shares)
If Exist ($ServerPath + '\Resource\SharesV2.KIX')
Call $ServerPath + '\Resource\SharesV2.KIX'
EndIf
; Giving resources (shares)
If Exist ($ServerPath + '\Resource\SharesExtraV2.KIX')
; Call $ServerPath + '\Resource\SharesExtraV2.KIX'
EndIf
; Checking applications
If Exist ($ServerPath + '\Manager\Manager.KIX')
Call $ServerPath + '\Manager\Manager.KIX'
EndIf
;; Giving resources (printers)
;IF Exist ($ServerPath + '\Resource\PrintersV22.kix')
; Call $ServerPath + '\Resource\PrintersV22.KIX'
;Endif
; Calling Outlook script, if available
If Exist ($ServerPath + '\Files\Outlook\Outlook_config.kix')
Call $ServerPath + '\Files\Outlook\Outlook_config.kix'
EndIf
; Resetting Outlook foldernames to Danish
;IF Exist (@LSERVER + '\NETLOGON\Files\Outlook\ResetFolderNames.kix')
; Call @LSERVER + '\NETLOGON\Files\Outlook\ResetFolderNames.kix'
;Endif
:EndJob