Page 2 of 3 <123>
Topic Options
#143242 - 2005-07-08 06:25 PM Re: Trackit and Citrix Metaframe XP
NKK Offline
Fresh Scripter

Registered: 2003-03-17
Posts: 37
Loc: Marshall Texas
Following is code for script.
user just logging into local computer - run all the script including the trackit statements
user logging into citrix session call the citrixmap.kix script runs everything BUT the trackit and quit.

Not working goes all the way through to trackit no matter if logging into local or citrix session. Just the first section of added code needs to be reviewed and how I end the Citrixmap.kix script. I really appreciate all of you and your patience with my ignorance - I always heard "Stupid is forever; Ignorance can be fixed".

(CODE)
; LOG-IN SCRIPT
; Determine if Logging into Citrix or Local
******NEWLY ADDED CODE **********************************************
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
If ProductSuite("Terminal Server") and not ProductSuite("Single User Terminal Server")

CallScript("\\xcompany-americas.com\netlogon\Citrixmap.kix")
endif
***********END OF NEWLY ADDED CODE ******************************************

CLS

$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) "XCOMPANY Americas Inc."
At (16,30) @fullname
At (18,20) "Intended for XCOMPANY Employee use only."
At (20,20) "All intruders will be prosecuted to"
At (21,23) "the fullest extent of the law."

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


;MACOLA
if ingroup("XX-Macola Access")
Use M: /delete
USE M: "\\Xx-Apps\Apps"
endif

;MAPCON
if ingroup("XX-Mapcon")
Use O: /delete
USE O: "\\Xx-Apps\Apps2"
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xcompany-americas.com\netlogon\shortcuts\mapcon.lnk" $desktop
endif

; ISO QUALITY SYSTEM
if ingroup("XX-Everyone")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xcompany-americas.com\netlogon\shortcuts\ISO Index.lnk" $desktop
endif


; PRODUCTION PRINTER
if ingroup("XX-Production-All")
ADDPRINTERCONNECTION ("\\xx-dc2\xx-plant central control-dell laser-ps")
endif

; BEMIS PRINTER
if ingroup("XX-Bemis")
ADDPRINTERCONNECTION("\\xx-dc2\xx-plant-bemis-HP5N")
endif

; LIMS
if ingroup("XX-LIMS")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xcompany-americas.com\netlogon\shortcuts\lims.lnk" $desktop
endif

;ORDERS
if ingroup("XX-Orders")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xcompany-americas.com\netlogon\shortcuts\orders schedule database.lnk" $desktop
endif

;QUALITY
if ingroup("XX-Quality-System-DB")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xcompany-americas.com\netlogon\shortcuts\Quality System Database.lnk" $desktop
endif

;PRODUCTION Database Read Write
if ingroup("XX-Production-Database-RW")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xcompany-americas.com\netlogon\shortcuts\Production Database.lnk" $desktop
endif

;PRODUCTION Database for PLANT Users
if ingroup("XX-Production-Database-Plant")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xcompany-americas.com\netlogon\shortcuts\productiondb.lnk" $desktop
ADDPRINTERCONNECTION ("\\xx-dc2\xx-plant central control-dell laser-ps")
endif

;TRAINING
if ingroup("XX-Everyone")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xcompany-americas.com\netlogon\shortcuts\Xcompany Training.url" $desktop
endif

;TRACKIT Uninstall
if ingroup("Uninstall-Trackit")
use T: /delete/persistent
use T: "\\xx-apps2\intuit\Track-IT! 6.5\Track-It! Server - Professional Edition"
RUN 'T:\installers\workstationmanager\tiwsmgr.exe /uninstall'
? "Please WAIT * Uninstall Trackit Running here"

SLEEP 20

Endif


;MARSHALL TRACKIT Tiwsmgr
if ingroup("XX-Everyone")
use T: /delete/persistent
use T: "\\xx-apps2\intuit\Track-IT! 6.5\Track-It! Server - Professional Edition"
RUN 'T:\installers\workstationmanager\tiwsmgr.exe /service'
? "Please WAIT * Trackit Service Installing"

SLEEP 6
Endif



;TRACKIT Audit32
if ingroup("XX-Everyone")
use T: /delete/persistent
use T: "\\xx-apps2\intuit\Track-IT! 6.5\Track-It! Server - Professional Edition"
RUN 'T:\Audit32.exe /m /q'
? "Please WAIT * Trackit Audit Running. This will run once a day at LOGIN"

SLEEP 4
Endif

;PRYOR TRACKIT Tiwsmgr
if ingroup("OK-Trackit")
use T: /delete/persistent
use T: "\\xx-apps2\intuit\Track-IT! 6.5\Track-It! Server - Professional Edition"
RUN 'T:\installers\workstationmanager\tiwsmgr.exe /service'
? "Please WAIT * Trackit Service Installing"

SLEEP 30
Endif



;TRACKIT Audit32
if ingroup("OK-Trackit")
use T: /delete/persistent
use T: "\\xx-apps2\intuit\Track-IT! 6.5\Track-It! Server - Professional Edition"
RUN 'T:\Audit32.exe /m /q'
? "Please WAIT * Trackit Audit of System Running. This will run once a day at LOGIN"

SLEEP 20
Endif

(END CODE)


CITRIXMAP SCRIPT BEGINS HERE
(CODE)
;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) "XCOMPANY Americas Inc."
At (16,30) @fullname
At (18,20) "Intended for XCOMPANY 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


;MACOLA
if ingroup("XX-Macola Access")
Use M: /delete
USE M: "\\Xx-Apps\Apps"
endif

;MAPCON
if ingroup("XX-Mapcon")
Use O: /delete
USE O: "\\Xx-Apps\Apps2"
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xxx-xxx.com\netlogon\shortcuts\mapcon.lnk" $desktop
endif

; ISO QUALITY SYSTEM
if ingroup("XX-Everyone")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xxx-xxx.com\netlogon\shortcuts\ISO Index.lnk" $desktop
endif


; PRODUCTION PRINTER
if ingroup("XX-Production-All")
ADDPRINTERCONNECTION ("\\xx-dc2\xx-plant central control-dell laser-ps")
endif

; BEMIS PRINTER
if ingroup("XX-Bemis")
ADDPRINTERCONNECTION("\\xx-dc2\xx-plant-bemis-HP5N")
endif

; LIMS
if ingroup("XX-LIMS")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xxx-xxx.com\netlogon\shortcuts\lims.lnk" $desktop
endif

;ORDERS
if ingroup("XX-Orders")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xxx-xxx.com\netlogon\shortcuts\orders schedule database.lnk" $desktop
endif

;QUALITY
if ingroup("XX-Quality-System-DB")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xxx-xxx.com\netlogon\shortcuts\Quality System Database.lnk" $desktop
endif

;PRODUCTION Database Read Write
if ingroup("XX-Production-Database-RW")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xxx-xxx.com\netlogon\shortcuts\Production Database.lnk" $desktop
endif

;PRODUCTION Database for PLANT Users
if ingroup("XX-Production-Database-Plant")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xxx-xxx.com\netlogon\shortcuts\productiondb.lnk" $desktop
ADDPRINTERCONNECTION ("\\xx-dc2\xx-plant central control-dell laser-ps")
endif

;TRAINING
if ingroup("XX-Everyone")
$desktop = READVALUE("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")copy "\\xxx-xxx.com\netlogon\shortcuts\Xcompany Training.url" $desktop
endif
EXIT
(END CODE)
************* IS EXIT correct?

Top
#143243 - 2005-07-08 06:53 PM Re: Trackit and Citrix Metaframe XP
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
I'm not seeing a CallScript() UDF anywhere nor do I see an EXIT or QUIT that would prevent you from falling into the remaining script.
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.

Top
#143244 - 2005-07-08 07:30 PM Re: Trackit and Citrix Metaframe XP
maciep Offline
Korg Regular
*****

Registered: 2002-06-14
Posts: 947
Loc: Pittsburgh
Code:

If ProductSuite("Terminal Server") and not ProductSuite("Single User Terminal Server")
Call "\\xcompany-americas.com\netlogon\Citrixmap.kix"
Exit 0
endif


Top
#143245 - 2005-07-08 07:49 PM Re: Trackit and Citrix Metaframe XP
NKK Offline
Fresh Scripter

Registered: 2003-03-17
Posts: 37
Loc: Marshall Texas
Which value means the user is a citrix user? The single user terminal server?
Top
#143246 - 2005-07-08 08:03 PM Re: Trackit and Citrix Metaframe XP
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
I guess you did not read my FAQ.
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.

Top
#143247 - 2005-07-08 08:05 PM Re: Trackit and Citrix Metaframe XP
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
Sweet suit!
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.

Top
#143248 - 2005-07-08 08:13 PM Re: Trackit and Citrix Metaframe XP
NKK Offline
Fresh Scripter

Registered: 2003-03-17
Posts: 37
Loc: Marshall Texas
I am under the gun here. Over 350 users and I am the Network Admin, Security Admin, SQL Admin, CRM Admin, Disaster Recovery Admin, Help Desk. I work for a co that believes in a SLIM IS dept. Now I have to do the scripting as well. Excuse me for not knowing everything on this site.
Top
#143249 - 2005-07-08 08:27 PM Re: Trackit and Citrix Metaframe XP
maciep Offline
Korg Regular
*****

Registered: 2002-06-14
Posts: 947
Loc: Pittsburgh
copy and paste disease seems to be contagious Fixed my post
Top
#143250 - 2005-07-08 08:31 PM Re: Trackit and Citrix Metaframe XP
maciep Offline
Korg Regular
*****

Registered: 2002-06-14
Posts: 947
Loc: Pittsburgh
i think they're both needed to determine if it's a citrix session. Explain what's (not) happening during logon.
Top
#143251 - 2005-07-08 08:36 PM Re: Trackit and Citrix Metaframe XP
NKK Offline
Fresh Scripter

Registered: 2003-03-17
Posts: 37
Loc: Marshall Texas
Ok, I broke it down smaller for testing. Below is what I have. I login to a Citrix Desktop Session and I get as far as "Getting Ready to Check". No mapping from the Citrixmap.kix take place.

(BEGIN CODE)
;TESTING LOGIN 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 ProductSuit("Single User Terminal Server")
?"IM at the ProductSuite line here"
sleep 10
CallScript("\\norit-americas.com\netlogon\Citrixmap.kix")

EXIT 0
(END CODE)


*****************************HERE is the CALLED SCRIPT CODE
(BEGIN CODE)
;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) "NORIT Americas Inc."
At (16,30) @fullname
At (18,20) "Intended for NORIT 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


(END CODE)

Top
#143252 - 2005-07-08 08:43 PM Re: Trackit and Citrix Metaframe XP
maciep Offline
Korg Regular
*****

Registered: 2002-06-14
Posts: 947
Loc: Pittsburgh
as les so cleverly pointed out, there was a typo

If ProductSuite("Terminal Server") and not ProductSuite("Single User Terminal Server")
?"IM at the ProductSuite line here"
sleep 10
Call "\\norit-americas.com\netlogon\Citrixmap.kix"
Exit 0
endif


On top of that you didn't have an endif and you are still trying to use CallScript()...

Top
#143253 - 2005-07-08 08:48 PM Re: Trackit and Citrix Metaframe XP
NKK Offline
Fresh Scripter

Registered: 2003-03-17
Posts: 37
Loc: Marshall Texas
I login to my local xp computer then start a Citrix Desktop Session,
I do not think the condition is being met for the script to be called. That is why I was asking what conditions must be met for the script to know that I am trying to login to the Citrix desktop.

Top
#143254 - 2005-07-08 08:49 PM Re: Trackit and Citrix Metaframe XP
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
CallScript() and Suite, not Suit!
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.

Top
#143255 - 2005-07-08 08:52 PM Re: Trackit and Citrix Metaframe XP
NKK Offline
Fresh Scripter

Registered: 2003-03-17
Posts: 37
Loc: Marshall Texas
WIll correct and try.
Top
#143256 - 2005-07-08 08:58 PM Re: Trackit and Citrix Metaframe XP
NKK Offline
Fresh Scripter

Registered: 2003-03-17
Posts: 37
Loc: Marshall Texas
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)

Top
#143257 - 2005-07-08 09:04 PM Re: Trackit and Citrix Metaframe XP
NKK Offline
Fresh Scripter

Registered: 2003-03-17
Posts: 37
Loc: Marshall Texas
Ok guys found another error and fixed it and it is going all the way through the test script in previous post. I think I need a typing class. Now I will test it with calling the script.
Top
#143258 - 2005-07-08 09:18 PM Re: Trackit and Citrix Metaframe XP
NKK Offline
Fresh Scripter

Registered: 2003-03-17
Posts: 37
Loc: Marshall Texas
To call a script is it
CallScript()
"\\path\scriptname"

Top
#143259 - 2005-07-08 09:29 PM Re: Trackit and Citrix Metaframe XP
NKK Offline
Fresh Scripter

Registered: 2003-03-17
Posts: 37
Loc: Marshall Texas
CallScript("\\domain name\netlogon\citrixmap.kix)
Gives UNKNOWN COMMAND (CALLSCRIPT) error.

Top
#143260 - 2005-07-08 09:31 PM Re: Trackit and Citrix Metaframe XP
NKK Offline
Fresh Scripter

Registered: 2003-03-17
Posts: 37
Loc: Marshall Texas
Left off ending " it is there and still error.
Top
#143261 - 2005-07-08 09:31 PM Re: Trackit and Citrix Metaframe XP
maciep Offline
Korg Regular
*****

Registered: 2002-06-14
Posts: 947
Loc: Pittsburgh
it's just plain old call, like i showed you before

call "\\domain name\netlogon\citrixmap.kix"

Call Command

Top
Page 2 of 3 <123>


Moderator:  Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Arend_, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 187 anonymous users online.
Newest Members
gkustra, emnipetro, Hirze, thequeen, ameliaryan
17642 Registered Users

Generated in 0.042 seconds in which 0.013 seconds were spent on a total of 13 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org