|
OK, just for testing;Does not go past "getting ready to check"
(CODE)
; LOG-IN SCRIPT
; Determine if Logging into Citrix or Local
Function ProductSuite ($Product)
Dim $Product
Select
Case $Product = "None" $x=0
Case $Product = "Small Business" $x=1
Case $Product = "Enterprise" $x=2
Case $Product = "BackOffice" $x=4
Case $Product = "CommunicationsServer" $x=8
Case $Product = "Terminal Server" $x=16
Case $Product = "Small Business (Restricted)" $x=32
Case $Product = "Embedded NT" $x=64
Case $Product = "DataCenter" $x=128
Case $Product = "Single User Terminal Server" $x=256
Case $Product = "Home Edition" $x=512
Case $Product = "Blade Server" $x=1024
;Case 1 $RC=MessageBox ("Invalid parameter used in function") ProductSuite($Product)",48
;WriteLog("Invalid parameter used in function") ProductSuite ($Product)")
Endselect
$ProdcutSuite = $x & val (@ProductSuite)
EndFunction
?"Getting ready to check"
Sleep 6
If ProductSuite("Terminal Server") and not ProductSuite("Single User Terminal Server")
?"IM at the ProductSuite line here"
sleep 10
;Drive Mappings for Citrix Users - NO Trackit
CLS
?"Running Citrix Mapping now"
Sleep 5
$section=1 ;Section 1
Color c+/n
Box (0,0,24,79,single)
Color r+/n
At (10,30) "Welcome to the"
At (12,32) @domain
At (12,37) "Domain"
At (14,30) "XXX Americas Inc."
At (16,30) @fullname
At (18,20) "Intended for XXX Employee use only."
At (20,20) "All intruders will be prosecuted to"
At (21,23) "the fullest extent of the law."
At (22,20) "THIS SCRIPT RUNNING FOR CITRIX USERS ONLY"
Sleep 3
Small
Color b+/n
Box (0,0,24,79,GRID) ; 'background grid'
Color b/n
Box (8,21,18,61,Å) ; 'shadow' of the box
Color g+/n
Box (7,20,17,60,FULL)
0
SetTime $Server3
Color w+/n
At ( 9,25) "Userid : " ; display some text strings
At (10,25) "Full name : "
At (11,25) "Privilege : "
At (12,25) "Workstation : "
At (13,25) "Domain : "
At (14,25) "Logon Server : "
At (15,25) "Current Time : "
At (16,25) "Today's Date : "
Color y+/n
At ( 9,40) @userid ; ...and some macro's
At (10,40) @fullname
At (11,40) @priv
At (12,40) @wksta
At (13,40) @domain
At (14,40) @lserver
At (15,40) @time
At (16,40) @DATE
Sleep 3
:set_vars
$section=$section+1 ; Section 2
Use "*" /delete
$h="\\wmcfps02\@userid"
;$s="\\wmcfps01\@PRIMARYGROUP"
CLS
At (12,30) "Mapping Drives"
Sleep 3
; For Marshall
if ingroup("XX-Everyone")
use h: /delete/persistent
use g: /delete/persistent
use l: /delete/persistent
use p: /delete/persistent
use h: "\\xx-fs\Marshall\home\%username%"
use g: "\\xx-fs\Marshall\depts"
use l: "\\xx-fs\Enterprise"
use p: "\\xx-fs\Marshall\policies"
use f: /delete/persistent
use f: "\\xx-fs\marshall"
endif
; PRYOR
if ingroup("OK-Everyone")
use h: /delete/persistent
use g: /delete/persistent
use l: /delete/persistent
use p: /delete/persistent
use h: "\\xx-fs\Pryor\home\%username%"
use g: "\\xx-fs\Pryor\depts"
use l: "\\xx-fs\Enterprise"
;use p: "\\xx-fs\Marshall\policies"
use f: /delete/persistent
use f: "\\xx-fs\Pryor"
endif
;CallScript("\\xxx-americas.com\netlogon\Citrixmap.kix")
;EXIT 0
endif
(CODE)
| 
