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