#24702 - 2002-07-11 12:01 AM
Re: Problems (using up all drive letters)
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,
We have convert it.
First some remarks:
- we were missing two ENDIF
- GOTO's weren't always clear. we replace some of them with GOSUB calls.
- GOTO EXIT isn't a legal statement.
- we add $null= by printer-settings to prevent unwanted zero's in
output file
- in both situations (NT and W95) it is possible that the first mapping
will replaced by another one. some of them are mark with ; <++++ see also group
- you must delete always an existing mapping before replacing them. not
only for win95 but also for nt. we have add the necessary statements.
- we are not very sure about the correctness of following code
code:
IF InGroup("MOVED_USERS")
SHELL '%comspec% /C SUBST U: /D '
SHELL '%comspec% /c SUBST U: "\\gfclnt03\users\%username%" '
ELSE
SHELL '%comspec% /c SUBST U: /D '
SHELL '%comspec% /c SUBST U: "\\gfclnt01\users\%username%" '
ENDIF
Our version
code:
IF @inwin = 1
GOSUB nt
ELSE
GOSUB win95
ENDIF
:end
? "script completed"
EXIT
:nt
IF %type% = "server"
RETURN
ENDIF
IF RedirectOutput("\\Gfclnt03\Users\LoginLogs\@WKSTA.log", 1) = 0
? "Opened '\\Gfclnt03\Users\LoginLogs\@WKSTA.log' "+@time
ENDIF
? "USERS NAME IS " + @fullname
? "MACHINE NAME IS " + @wksta
? "IP ADDRESS IS " + @ipaddress0
? "CPU IS " + @cpu " AT " + @mhz " MHZ"
? "OPERATING SYSTEM IS " + @producttype
? "SERVICE PACK IS " + @csd
?
? "ERRORS ARE " +@error " WHICH MEANS " + @serror
?
IF InGroup("IT-PRINT1-GRP")
$null=AddPrinterConnection("\\Gfclnt04\CITSL4C1")
$null=AddPrinterConnection("\\Gfclnt04\CITSLJ03")
$null=AddPrinterConnection("\\Gfclnt04\AITSL502")
$null=AddPrinterConnection("\\Gfclnt04\AITSL501")
$null=SetDefaultPrinter("\\Gfclnt04\AITSL502")
? "Added printer connection.........."
ENDIF
IF InGroup("IT-PRINT2_GRP")
$null=AddPrinterConnection("\\Gfclnt04\CITSL4C1")
$null=AddPrinterConnection("\\Gfclnt04\CITSLJ03")
$null=AddPrinterConnection("\\Gfclnt04\AITSL502")
$null=AddPrinterConnection("\\Gfclnt04\AITSL501")
$null=SetDefaultPrinter("\\Gfclnt04\AITSL501")
? "Added printer connection.........."
ENDIF
IF InGroup("Scottish Magazines")
USE N: /delete /persistent
USE N: "\\GAPPNT04\ScottishMagazines"
ENDIF
IF InGroup("COGNOS-USERS")
USE Y: /delete /persistent
USE Y: "\\GTPSNT01\cognos"
ENDIF
IF InGroup("Solus-grp")
USE Q: /delete /persistent
USE Q: "\\GAPPNT04\SolusBookingSystem"
ENDIF
IF InGroup("checkline-grp")
USE H: /delete /persistent
USE H: "\\GCKLNT01\wineftnt"
ENDIF
IF InGroup("S1-GROUP")
USE V: /delete /persistent
USE V: "\\GAPPNT03\S1"
ENDIF
IF InGroup("SATEAM-GRP")
USE X: /delete /persistent
USE X: "\\GMSHNT01\TECH_SUPPORT"
ENDIF
IF InGroup("CUSTSERV-GRP")
USE R: /delete /persistent
USE R: "\\GAPPNT02\CSDBase"
ENDIF
IF InGroup("CENTRALS-GRP")
USE J: /delete /persistent
USE J: "\\GFCLNT04\CentralServices"
ENDIF
IF InGroup("GPNCENTRALS-GRP") ; <+++++ see also group "Scottish Magazines"
USE N: /delete /persistent
USE N: "\\QCLUNT01\CentralServices"
ENDIF
IF InGroup("BROADCAS-GRP")
USE K: /delete /persistent
USE K: "\\GFCLNT04\Broadcasting"
ENDIF
IF InGroup("BROADDIST-GRP")
USE I: /delete /persistent
USE I: "\\GFCLNT04\Broadcasting"
ENDIF
IF InGroup("GPNBROADCAST-GRP")
USE O: /delete /persistent
USE O: "\\QCLUNT01\Broadcasting"
ENDIF
IF InGroup("PUBLISHI-GRP")
USE L: /delete /persistent
USE L: "\\GFCLNT04\Publishing"
ENDIF
IF InGroup("SUNDAY-GRP")
USE S: /delete /persistent
USE S: "\\GMSHNT01\SUNDAY"
ENDIF
IF InGroup("MARKETIN-GRP")
USE T: /delete /persistent
USE T: "\\GAPPNT05\Despatch_DB"
ENDIF
IF InGroup("MARKETDB-GRP") ; <++++ see also group "SUNDAY-GRP"
USE S: /delete /persistent
USE S: "\\GAPPNT05\NSDOCS"
ENDIF
IF InGroup("STE-GRP")
USE M: /delete /persistent
USE M: "\\GFCLNT04\Broadcasting"
ENDIF
IF InGroup("GPNPUBLIC-GRP") ; <+++++ see also group "Solus-grp"
USE Q: /delete /persistent
USE Q: "\\QCLUNT01\Public"
ENDIF
IF InGroup("MAGASUBS-GRP")
USE F: /delete /persistent
USE F: "\\GAPPNT02\MAGAZINES"
ENDIF
IF InGroup("RESEARCH-GRP")
USE Z: /delete /persistent
USE Z: "\\GAPPNT02\RESEARCH"
ENDIF
USE P: /delete /persistent
USE P: "\\GMSHNT01\Public"
IF InGroup("MOVED_USERS")
SHELL '%comspec% /C SUBST U: /D '
SHELL '%comspec% /c SUBST U: "\\gfclnt03\users\%username%" '
ELSE
SHELL '%comspec% /c SUBST U: /D '
SHELL '%comspec% /c SUBST U: "\\gfclnt01\users\%username%" '
ENDIF
RETURN
:win95
IF RedirectOutput("\\Gfclnt03\Users\LoginLogs\@WKSTA.log", 1) = 0
? "Opened '\\Gfclnt03\Users\LoginLogs\@WKSTA.log' "+@time
ENDIF
? "USERS NAME IS " + @fullname
? "MACHINE NAME IS " + @wksta
? "IP ADDRESS IS " + @ipaddress0
? "CPU IS " + @cpu
? "OPERATING SYSTEM IS " + @producttype
? "SERVICE PACK IS " + @csd
?
? "ERRORS ARE " +@error " WHICH MEANS " + @serror
?
IF InGroup("Scottish Magazines")
USE N: /delete /persistent
USE N: "\\GAPPNT04\ScottishMagazines"
ENDIF
IF InGroup("Solus-Grp")
USE Q: /delete /persistent
USE Q: "\\GAPPNT04\SolusBookingSystem"
ENDIF
IF InGroup("ADQUICK-GRP")
USE G: /delete /persistent
USE G: "\\GTPSNT01\Quick"
ENDIF
IF InGroup("CUSTSERV-GRP")
USE R: /delete /persistent
USE R: "\\GAPPNT02\CSDBase"
ENDIF
IF InGroup("SATEAM-GRP")
USE X: /delete /persistent
USE X: "\\GMSHNT01\TECH_SUPPORT"
ENDIF
IF InGroup("MOVE-GRP")
USE J: /delete /persistent
USE J: "\\GFCLNT04\CentralServices"
ENDIF
IF InGroup("CENTRALS-GRP") ; <+++++ see also group "MOVE-GRP"
USE J: /delete /persistent
USE J: "\\GFCLNT04\CentralServices"
ENDIF
IF InGroup("GPNCENTRALS-GRP") ; <+++++ see also group "Scottish Magazines"
USE N: /delete /persistent
USE N: "\\QCLUNT01\CentralServices"
ENDIF
IF InGroup("BROADCAS-GRP")
USE K: /delete /persistent
USE K: "\\GFCLNT04\Broadcasting"
ENDIF
IF InGroup("BROADDIST-GRP")
USE I: /delete /persistent
USE I: "\\GFCLNT04\Broadcasting"
ENDIF
IF InGroup("GPNBROADCAST-GRP")
USE O: /delete /persistent
USE O: "\\QCLUNT01\Broadcasting"
ENDIF
IF InGroup("PUBLISHI-GRP")
USE L: /delete /persistent
USE L: "\\GFCLNT04\Publishing"
ENDIF
IF InGroup("S1-GROUP")
USE V: /delete /persistent
USE V: "\\GAPPNT03\S1"
ENDIF
IF InGroup("COGNOS-USERS")
USE Y: /delete /persistent
USE Y: "\\GTPSNT01\cognos"
ENDIF
IF InGroup("SUNDAY-GRP")
USE S: /delete /persistent
USE S: "\\GMSHNT01\Sunday"
ENDIF
IF InGroup("STE-GRP")
USE M: /delete /persistent
USE M: "\\GFCLNT04\Broadcasting"
ENDIF
IF InGroup("MARKETIN-GRP")
USE T: /delete /persistent
USE T: "\\GAPPNT05\Despatch_DB"
ENDIF
IF InGroup("MARKETDB-GRP")
USE S: /delete /persistent
USE S: "\\GAPPNT05\NSDOCS"
ENDIF
IF InGroup("MAGASUBS-GRP")
USE F: /delete /persistent
USE F: "\\GAPPNT02\MAGAZINES"
ENDIF
IF InGroup("RESEARCH-GRP")
USE Z: /delete /persistent
USE Z: "\\GAPPNT02\RESEARCH"
ENDIF
IF InGroup("GPNPUBLIC-GRP") ; <+++++ see also group "Solus-Grp"
USE Q: /delete /persistent
USE Q: "\\QCLUNT01\Public"
ENDIF
USE P: /delete /persistent
USE P: "\\GMSHNT01\Public"
IF InGroup("MOVED_USERS")
USE U: /delete /persistent
USE U: "\\gfclnt03\users"
CD U:\users\@userid
ELSE
USE U: "\\gfclnt01\users"
CD U:\users\@userid
ENDIF
RETURN
Also we have create a debugging version. Still problems with above script
please this script and return the about of file %tmp%\kixdebug.txt on
the board.
code:
CLS
COLOR C+/N
AT (1,1) " "
$_debug_file="kixdebug.txt" ; - %tmp% directory -
;
IF (len($_debug_file) <> 0)
IF (substr(ExpandEnvironmentVars("%tmp%"),len(ExpandEnvironmentVars("%tmp%")),1) = "\")
$_debug_file=ExpandEnvironmentVars("%tmp%")+$_debug_file
ELSE
$_debug_file=ExpandEnvironmentVars("%tmp%")+"\"+$_debug_file
ENDIF
ENDIF
;$_debug_file="c:\kixdebug.txt"
$_debug_file=LCASE($_debug_file)
IF RedirectOutput($_debug_file)
ENDIF
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.13e script starting."
? "-"
? "-curdir: "+LCASE(@curdir)
? "-scriptdir: "+LCASE(@scriptdir)
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-scriptname: "+LCASE(@scriptname)
ENDIF
? "-startdir: "+LCASE(@startdir)
? "-"
? "-userid: "+LCASE(@userid)+"/"+LCASE(@wuserid)
? "-user priv: "+LCASE(@priv)
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
? "-version: inwin="+@inwin+"/dos="+@dos"/productsuite="+@productsuite+"/producttype="+@producttype"/csd="+LTRIM(RTRIM(@csd))
ELSE
? "-version: inwin="+@inwin+"/dos="+@dos
ENDIF
DIM $_debug_name
$_debug_name=""
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
$_debug_name=@msecs
SELECT
CASE (len($_debug_name) = 1)
$_debug_name="00"+$_debug_name
CASE (len($_debug_name) = 2)
$_debug_name="0"+$_debug_name
ENDSELECT
$_debug_name="."+$_debug_name
IF srnd(@msecs)
ENDIF
ENDIF
$_debug_name=substr(@date,1,4)+substr(@date,6,2)+substr(@date,9,2)+"_"+substr(@time,1,2)+substr(@time,4,2)+substr(@time,7,2)+$_debug_name+"_"+rnd(32767)
IF (len($_debug_name) < 25)
$_debug_name=substr($_debug_name+" ",1,25)
ENDIF
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
IF (len(@scriptname) < 12)
$_debug_name=$_debug_name+" "+LCASE(substr(@scriptname+" ",1,12))
ELSE
$_debug_name=$_debug_name+" "+LCASE(@scriptname)
ENDIF
ENDIF
? "-debug file: "+$_debug_file
? "-debug name: "+$_debug_name
? "-"
?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 1-"+@time+"-"+$_debug_name+"- @error @serror"? IF @inwin = 1
?"- 2-"+@time+"-"+$_debug_name+"- @error @serror"? GOSUB nt
?"- 3-"+@time+"-"+$_debug_name+"- @error @serror"? ELSE
?"- 4-"+@time+"-"+$_debug_name+"- @error @serror"? GOSUB win95
?"- 5-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 6-"+@time+"-"+$_debug_name+"- @error @serror"? :end
?"- 7-"+@time+"-"+$_debug_name+"- @error @serror"? ? "script completed"
?"- 8-"+@time+"-"+$_debug_name+"- @error @serror"? EXIT
?"- 9-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 10-"+@time+"-"+$_debug_name+"- @error @serror"? :nt
?"- 11-"+@time+"-"+$_debug_name+"- @error @serror"? IF %type% = "server"
?"- 12-"+@time+"-"+$_debug_name+"- @error @serror"? RETURN
?"- 13-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 14-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 15-"+@time+"-"+$_debug_name+"- @error @serror"? IF RedirectOutput("\\Gfclnt03\Users\LoginLogs\@WKSTA.log", 1) = 0 IF RedirectOutput($_debug_file) ENDIF ; -kixstrip-
?"- 16-"+@time+"-"+$_debug_name+"- @error @serror"? ? "Opened '\\Gfclnt03\Users\LoginLogs\@WKSTA.log' "+@time
?"- 17-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 18-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 19-"+@time+"-"+$_debug_name+"- @error @serror"? ? "USERS NAME IS " + @fullname
?"- 20-"+@time+"-"+$_debug_name+"- @error @serror"? ? "MACHINE NAME IS " + @wksta
?"- 21-"+@time+"-"+$_debug_name+"- @error @serror"? ? "IP ADDRESS IS " + @ipaddress0
?"- 22-"+@time+"-"+$_debug_name+"- @error @serror"? ? "CPU IS " + @cpu " AT " + @mhz " MHZ"
?"- 23-"+@time+"-"+$_debug_name+"- @error @serror"? ? "OPERATING SYSTEM IS " + @producttype
?"- 24-"+@time+"-"+$_debug_name+"- @error @serror"? ? "SERVICE PACK IS " + @csd
?"- 25-"+@time+"-"+$_debug_name+"- @error @serror"? ?
?"- 26-"+@time+"-"+$_debug_name+"- @error @serror"? ? "ERRORS ARE " +@error " WHICH MEANS " + @serror
?"- 27-"+@time+"-"+$_debug_name+"- @error @serror"? ?
?"- 28-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 29-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("IT-PRINT1-GRP")
?"- 30-"+@time+"-"+$_debug_name+"- @error @serror"? $null=AddPrinterConnection("\\Gfclnt04\CITSL4C1")
?"- 31-"+@time+"-"+$_debug_name+"- @error @serror"? $null=AddPrinterConnection("\\Gfclnt04\CITSLJ03")
?"- 32-"+@time+"-"+$_debug_name+"- @error @serror"? $null=AddPrinterConnection("\\Gfclnt04\AITSL502")
?"- 33-"+@time+"-"+$_debug_name+"- @error @serror"? $null=AddPrinterConnection("\\Gfclnt04\AITSL501")
?"- 34-"+@time+"-"+$_debug_name+"- @error @serror"? $null=SetDefaultPrinter("\\Gfclnt04\AITSL502")
?"- 35-"+@time+"-"+$_debug_name+"- @error @serror"? ? "Added printer connection.........."
?"- 36-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 37-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 38-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("IT-PRINT2_GRP")
?"- 39-"+@time+"-"+$_debug_name+"- @error @serror"? $null=AddPrinterConnection("\\Gfclnt04\CITSL4C1")
?"- 40-"+@time+"-"+$_debug_name+"- @error @serror"? $null=AddPrinterConnection("\\Gfclnt04\CITSLJ03")
?"- 41-"+@time+"-"+$_debug_name+"- @error @serror"? $null=AddPrinterConnection("\\Gfclnt04\AITSL502")
?"- 42-"+@time+"-"+$_debug_name+"- @error @serror"? $null=AddPrinterConnection("\\Gfclnt04\AITSL501")
?"- 43-"+@time+"-"+$_debug_name+"- @error @serror"? $null=SetDefaultPrinter("\\Gfclnt04\AITSL501")
?"- 44-"+@time+"-"+$_debug_name+"- @error @serror"? ? "Added printer connection.........."
?"- 45-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 46-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 47-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("Scottish Magazines")
?"- 48-"+@time+"-"+$_debug_name+"- @error @serror"? USE N: /delete /persistent
?"- 49-"+@time+"-"+$_debug_name+"- @error @serror"? USE N: "\\GAPPNT04\ScottishMagazines"
?"- 50-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 51-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 52-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("COGNOS-USERS")
?"- 53-"+@time+"-"+$_debug_name+"- @error @serror"? USE Y: /delete /persistent
?"- 54-"+@time+"-"+$_debug_name+"- @error @serror"? USE Y: "\\GTPSNT01\cognos"
?"- 55-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 56-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 57-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("Solus-grp")
?"- 58-"+@time+"-"+$_debug_name+"- @error @serror"? USE Q: /delete /persistent
?"- 59-"+@time+"-"+$_debug_name+"- @error @serror"? USE Q: "\\GAPPNT04\SolusBookingSystem"
?"- 60-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 61-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 62-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("checkline-grp")
?"- 63-"+@time+"-"+$_debug_name+"- @error @serror"? USE H: /delete /persistent
?"- 64-"+@time+"-"+$_debug_name+"- @error @serror"? USE H: "\\GCKLNT01\wineftnt"
?"- 65-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 66-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 67-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("S1-GROUP")
?"- 68-"+@time+"-"+$_debug_name+"- @error @serror"? USE V: /delete /persistent
?"- 69-"+@time+"-"+$_debug_name+"- @error @serror"? USE V: "\\GAPPNT03\S1"
?"- 70-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 71-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 72-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("SATEAM-GRP")
?"- 73-"+@time+"-"+$_debug_name+"- @error @serror"? USE X: /delete /persistent
?"- 74-"+@time+"-"+$_debug_name+"- @error @serror"? USE X: "\\GMSHNT01\TECH_SUPPORT"
?"- 75-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 76-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 77-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("CUSTSERV-GRP")
?"- 78-"+@time+"-"+$_debug_name+"- @error @serror"? USE R: /delete /persistent
?"- 79-"+@time+"-"+$_debug_name+"- @error @serror"? USE R: "\\GAPPNT02\CSDBase"
?"- 80-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 81-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 82-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("CENTRALS-GRP")
?"- 83-"+@time+"-"+$_debug_name+"- @error @serror"? USE J: /delete /persistent
?"- 84-"+@time+"-"+$_debug_name+"- @error @serror"? USE J: "\\GFCLNT04\CentralServices"
?"- 85-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 86-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 87-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("GPNCENTRALS-GRP") ; <+++++ see also group "Scottish Magazines"
?"- 88-"+@time+"-"+$_debug_name+"- @error @serror"? USE N: /delete /persistent
?"- 89-"+@time+"-"+$_debug_name+"- @error @serror"? USE N: "\\QCLUNT01\CentralServices"
?"- 90-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 91-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 92-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("BROADCAS-GRP")
?"- 93-"+@time+"-"+$_debug_name+"- @error @serror"? USE K: /delete /persistent
?"- 94-"+@time+"-"+$_debug_name+"- @error @serror"? USE K: "\\GFCLNT04\Broadcasting"
?"- 95-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 96-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 97-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("BROADDIST-GRP")
?"- 98-"+@time+"-"+$_debug_name+"- @error @serror"? USE I: /delete /persistent
?"- 99-"+@time+"-"+$_debug_name+"- @error @serror"? USE I: "\\GFCLNT04\Broadcasting"
?"- 100-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 101-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 102-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("GPNBROADCAST-GRP")
?"- 103-"+@time+"-"+$_debug_name+"- @error @serror"? USE O: /delete /persistent
?"- 104-"+@time+"-"+$_debug_name+"- @error @serror"? USE O: "\\QCLUNT01\Broadcasting"
?"- 105-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 106-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 107-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("PUBLISHI-GRP")
?"- 108-"+@time+"-"+$_debug_name+"- @error @serror"? USE L: /delete /persistent
?"- 109-"+@time+"-"+$_debug_name+"- @error @serror"? USE L: "\\GFCLNT04\Publishing"
?"- 110-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 111-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 112-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("SUNDAY-GRP")
?"- 113-"+@time+"-"+$_debug_name+"- @error @serror"? USE S: /delete /persistent
?"- 114-"+@time+"-"+$_debug_name+"- @error @serror"? USE S: "\\GMSHNT01\SUNDAY"
?"- 115-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 116-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 117-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("MARKETIN-GRP")
?"- 118-"+@time+"-"+$_debug_name+"- @error @serror"? USE T: /delete /persistent
?"- 119-"+@time+"-"+$_debug_name+"- @error @serror"? USE T: "\\GAPPNT05\Despatch_DB"
?"- 120-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 121-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 122-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("MARKETDB-GRP") ; <++++ see also group "SUNDAY-GRP"
?"- 123-"+@time+"-"+$_debug_name+"- @error @serror"? USE S: /delete /persistent
?"- 124-"+@time+"-"+$_debug_name+"- @error @serror"? USE S: "\\GAPPNT05\NSDOCS"
?"- 125-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 126-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 127-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("STE-GRP")
?"- 128-"+@time+"-"+$_debug_name+"- @error @serror"? USE M: /delete /persistent
?"- 129-"+@time+"-"+$_debug_name+"- @error @serror"? USE M: "\\GFCLNT04\Broadcasting"
?"- 130-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 131-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 132-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("GPNPUBLIC-GRP") ; <+++++ see also group "Solus-grp"
?"- 133-"+@time+"-"+$_debug_name+"- @error @serror"? USE Q: /delete /persistent
?"- 134-"+@time+"-"+$_debug_name+"- @error @serror"? USE Q: "\\QCLUNT01\Public"
?"- 135-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 136-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 137-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("MAGASUBS-GRP")
?"- 138-"+@time+"-"+$_debug_name+"- @error @serror"? USE F: /delete /persistent
?"- 139-"+@time+"-"+$_debug_name+"- @error @serror"? USE F: "\\GAPPNT02\MAGAZINES"
?"- 140-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 141-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 142-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("RESEARCH-GRP")
?"- 143-"+@time+"-"+$_debug_name+"- @error @serror"? USE Z: /delete /persistent
?"- 144-"+@time+"-"+$_debug_name+"- @error @serror"? USE Z: "\\GAPPNT02\RESEARCH"
?"- 145-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 146-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 147-"+@time+"-"+$_debug_name+"- @error @serror"? USE P: /delete /persistent
?"- 148-"+@time+"-"+$_debug_name+"- @error @serror"? USE P: "\\GMSHNT01\Public"
?"- 149-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 150-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("MOVED_USERS")
?"- 151-"+@time+"-"+$_debug_name+"- @error @serror"? SHELL '%comspec% /C SUBST U: /D '
?"- 152-"+@time+"-"+$_debug_name+"- @error @serror"? SHELL '%comspec% /c SUBST U: "\\gfclnt03\users\%username%" '
?"- 153-"+@time+"-"+$_debug_name+"- @error @serror"? ELSE
?"- 154-"+@time+"-"+$_debug_name+"- @error @serror"? SHELL '%comspec% /c SUBST U: /D '
?"- 155-"+@time+"-"+$_debug_name+"- @error @serror"? SHELL '%comspec% /c SUBST U: "\\gfclnt01\users\%username%" '
?"- 156-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 157-"+@time+"-"+$_debug_name+"- @error @serror"? RETURN
?"- 158-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 159-"+@time+"-"+$_debug_name+"- @error @serror"? :win95
?"- 160-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 161-"+@time+"-"+$_debug_name+"- @error @serror"? IF RedirectOutput("\\Gfclnt03\Users\LoginLogs\@WKSTA.log", 1) = 0 IF RedirectOutput($_debug_file) ENDIF ; -kixstrip-
?"- 162-"+@time+"-"+$_debug_name+"- @error @serror"? ? "Opened '\\Gfclnt03\Users\LoginLogs\@WKSTA.log' "+@time
?"- 163-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 164-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 165-"+@time+"-"+$_debug_name+"- @error @serror"? ? "USERS NAME IS " + @fullname
?"- 166-"+@time+"-"+$_debug_name+"- @error @serror"? ? "MACHINE NAME IS " + @wksta
?"- 167-"+@time+"-"+$_debug_name+"- @error @serror"? ? "IP ADDRESS IS " + @ipaddress0
?"- 168-"+@time+"-"+$_debug_name+"- @error @serror"? ? "CPU IS " + @cpu
?"- 169-"+@time+"-"+$_debug_name+"- @error @serror"? ? "OPERATING SYSTEM IS " + @producttype
?"- 170-"+@time+"-"+$_debug_name+"- @error @serror"? ? "SERVICE PACK IS " + @csd
?"- 171-"+@time+"-"+$_debug_name+"- @error @serror"? ?
?"- 172-"+@time+"-"+$_debug_name+"- @error @serror"? ? "ERRORS ARE " +@error " WHICH MEANS " + @serror
?"- 173-"+@time+"-"+$_debug_name+"- @error @serror"? ?
?"- 174-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 175-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("Scottish Magazines")
?"- 176-"+@time+"-"+$_debug_name+"- @error @serror"? USE N: /delete /persistent
?"- 177-"+@time+"-"+$_debug_name+"- @error @serror"? USE N: "\\GAPPNT04\ScottishMagazines"
?"- 178-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 179-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 180-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("Solus-Grp")
?"- 181-"+@time+"-"+$_debug_name+"- @error @serror"? USE Q: /delete /persistent
?"- 182-"+@time+"-"+$_debug_name+"- @error @serror"? USE Q: "\\GAPPNT04\SolusBookingSystem"
?"- 183-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 184-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 185-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("ADQUICK-GRP")
?"- 186-"+@time+"-"+$_debug_name+"- @error @serror"? USE G: /delete /persistent
?"- 187-"+@time+"-"+$_debug_name+"- @error @serror"? USE G: "\\GTPSNT01\Quick"
?"- 188-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 189-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 190-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("CUSTSERV-GRP")
?"- 191-"+@time+"-"+$_debug_name+"- @error @serror"? USE R: /delete /persistent
?"- 192-"+@time+"-"+$_debug_name+"- @error @serror"? USE R: "\\GAPPNT02\CSDBase"
?"- 193-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 194-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 195-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("SATEAM-GRP")
?"- 196-"+@time+"-"+$_debug_name+"- @error @serror"? USE X: /delete /persistent
?"- 197-"+@time+"-"+$_debug_name+"- @error @serror"? USE X: "\\GMSHNT01\TECH_SUPPORT"
?"- 198-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 199-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 200-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("MOVE-GRP")
?"- 201-"+@time+"-"+$_debug_name+"- @error @serror"? USE J: /delete /persistent
?"- 202-"+@time+"-"+$_debug_name+"- @error @serror"? USE J: "\\GFCLNT04\CentralServices"
?"- 203-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 204-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 205-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("CENTRALS-GRP") ; <+++++ see also group "MOVE-GRP"
?"- 206-"+@time+"-"+$_debug_name+"- @error @serror"? USE J: /delete /persistent
?"- 207-"+@time+"-"+$_debug_name+"- @error @serror"? USE J: "\\GFCLNT04\CentralServices"
?"- 208-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 209-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 210-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("GPNCENTRALS-GRP") ; <+++++ see also group "Scottish Magazines"
?"- 211-"+@time+"-"+$_debug_name+"- @error @serror"? USE N: /delete /persistent
?"- 212-"+@time+"-"+$_debug_name+"- @error @serror"? USE N: "\\QCLUNT01\CentralServices"
?"- 213-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 214-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 215-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("BROADCAS-GRP")
?"- 216-"+@time+"-"+$_debug_name+"- @error @serror"? USE K: /delete /persistent
?"- 217-"+@time+"-"+$_debug_name+"- @error @serror"? USE K: "\\GFCLNT04\Broadcasting"
?"- 218-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 219-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 220-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("BROADDIST-GRP")
?"- 221-"+@time+"-"+$_debug_name+"- @error @serror"? USE I: /delete /persistent
?"- 222-"+@time+"-"+$_debug_name+"- @error @serror"? USE I: "\\GFCLNT04\Broadcasting"
?"- 223-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 224-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 225-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("GPNBROADCAST-GRP")
?"- 226-"+@time+"-"+$_debug_name+"- @error @serror"? USE O: /delete /persistent
?"- 227-"+@time+"-"+$_debug_name+"- @error @serror"? USE O: "\\QCLUNT01\Broadcasting"
?"- 228-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 229-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 230-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("PUBLISHI-GRP")
?"- 231-"+@time+"-"+$_debug_name+"- @error @serror"? USE L: /delete /persistent
?"- 232-"+@time+"-"+$_debug_name+"- @error @serror"? USE L: "\\GFCLNT04\Publishing"
?"- 233-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 234-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 235-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("S1-GROUP")
?"- 236-"+@time+"-"+$_debug_name+"- @error @serror"? USE V: /delete /persistent
?"- 237-"+@time+"-"+$_debug_name+"- @error @serror"? USE V: "\\GAPPNT03\S1"
?"- 238-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 239-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 240-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("COGNOS-USERS")
?"- 241-"+@time+"-"+$_debug_name+"- @error @serror"? USE Y: /delete /persistent
?"- 242-"+@time+"-"+$_debug_name+"- @error @serror"? USE Y: "\\GTPSNT01\cognos"
?"- 243-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 244-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 245-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("SUNDAY-GRP")
?"- 246-"+@time+"-"+$_debug_name+"- @error @serror"? USE S: /delete /persistent
?"- 247-"+@time+"-"+$_debug_name+"- @error @serror"? USE S: "\\GMSHNT01\Sunday"
?"- 248-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 249-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 250-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("STE-GRP")
?"- 251-"+@time+"-"+$_debug_name+"- @error @serror"? USE M: /delete /persistent
?"- 252-"+@time+"-"+$_debug_name+"- @error @serror"? USE M: "\\GFCLNT04\Broadcasting"
?"- 253-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 254-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 255-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("MARKETIN-GRP")
?"- 256-"+@time+"-"+$_debug_name+"- @error @serror"? USE T: /delete /persistent
?"- 257-"+@time+"-"+$_debug_name+"- @error @serror"? USE T: "\\GAPPNT05\Despatch_DB"
?"- 258-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 259-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 260-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("MARKETDB-GRP")
?"- 261-"+@time+"-"+$_debug_name+"- @error @serror"? USE S: /delete /persistent
?"- 262-"+@time+"-"+$_debug_name+"- @error @serror"? USE S: "\\GAPPNT05\NSDOCS"
?"- 263-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 264-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 265-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("MAGASUBS-GRP")
?"- 266-"+@time+"-"+$_debug_name+"- @error @serror"? USE F: /delete /persistent
?"- 267-"+@time+"-"+$_debug_name+"- @error @serror"? USE F: "\\GAPPNT02\MAGAZINES"
?"- 268-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 269-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 270-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("RESEARCH-GRP")
?"- 271-"+@time+"-"+$_debug_name+"- @error @serror"? USE Z: /delete /persistent
?"- 272-"+@time+"-"+$_debug_name+"- @error @serror"? USE Z: "\\GAPPNT02\RESEARCH"
?"- 273-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 274-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 275-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("GPNPUBLIC-GRP") ; <+++++ see also group "Solus-Grp"
?"- 276-"+@time+"-"+$_debug_name+"- @error @serror"? USE Q: /delete /persistent
?"- 277-"+@time+"-"+$_debug_name+"- @error @serror"? USE Q: "\\QCLUNT01\Public"
?"- 278-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 279-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 280-"+@time+"-"+$_debug_name+"- @error @serror"? USE P: /delete /persistent
?"- 281-"+@time+"-"+$_debug_name+"- @error @serror"? USE P: "\\GMSHNT01\Public"
?"- 282-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 283-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("MOVED_USERS")
?"- 284-"+@time+"-"+$_debug_name+"- @error @serror"? USE U: /delete /persistent
?"- 285-"+@time+"-"+$_debug_name+"- @error @serror"? USE U: "\\gfclnt03\users"
?"- 286-"+@time+"-"+$_debug_name+"- @error @serror"? CD U:\users\@userid
?"- 287-"+@time+"-"+$_debug_name+"- @error @serror"? ELSE
?"- 288-"+@time+"-"+$_debug_name+"- @error @serror"? USE U: "\\gfclnt01\users"
?"- 289-"+@time+"-"+$_debug_name+"- @error @serror"? CD U:\users\@userid
?"- 290-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF
?"- 291-"+@time+"-"+$_debug_name+"- @error @serror"? RETURN
?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"?
? "-"
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.13e script ending."
? "-"
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-"+@cpu+" ("+@mhz+" Mhz, memory "+MemorySize()+" MB)"
ENDIF
? "-"
IF RedirectOutput("CON")
ENDIF
COLOR C+/N
?
? "debugging information "+CHR(34)+$_debug_file+CHR(34)
IF RedirectOutput($_debug_file)
ENDIF
;($begin)
;
; wed 10-jul-2002 11:53:55 (kix 4.10 vs 3.13e)
;
;Informative KIXSTRIP: no errors found (input=291 output=291 skip=0).
;
;Summary KIXSTRIP: block structures
; - do:until [0:0]
; - for|each:in|to:step|next [0|0:0|0:0|0]
; - function:endfunction [0:0]
; - if:else:endif [49:3:49]
; - select:case:endselect [0:0:0]
; - while:loop [0:0]
;Informative KIXSTRIP: 49 block_structures found.
;Informative KIXSTRIP: no UDF's found.
;Informative KIXSTRIP: 3 labels found.
;Summary KIXSTRIP: BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP: 1 EXIT
;Informative KIXSTRIP: 2 GOSUB
;Informative KIXSTRIP: 3 RETURN
;Informative KIXSTRIP: 4 SHELL
;Informative KIXSTRIP: 89 USE
;
;($end)
greetings.
Sorry, it cost a little bit more time.
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 697 anonymous users online.
|
|
|
