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