#24694 - 2002-07-10 11:08 AM
Re: Problems (using up all drive letters)
|
Cazzjh
Fresh Scripter
Registered: 2002-06-04
Posts: 32
Loc: Glasgow, Scotland
|
Hi
Thanks for replying - here is the script :
IF @INWIN = 1 GOTO NT
ELSE GOTO WIN95
ENDIF
:NT
IF %type% = "server" goto EXIT
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")
ADDPRINTERCONNECTION ("\\Gfclnt04\CITSL4C1")
ADDPRINTERCONNECTION ("\\Gfclnt04\CITSLJ03")
ADDPRINTERCONNECTION ("\\Gfclnt04\AITSL502")
ADDPRINTERCONNECTION ("\\Gfclnt04\AITSL501")
SETDEFAULTPRINTER ("\\Gfclnt04\AITSL502")
? "Added printer connection.........."
ENDIF
IF INGROUP ("IT-PRINT2_GRP")
ADDPRINTERCONNECTION ("\\Gfclnt04\CITSL4C1")
ADDPRINTERCONNECTION ("\\Gfclnt04\CITSLJ03")
ADDPRINTERCONNECTION ("\\Gfclnt04\AITSL502")
ADDPRINTERCONNECTION ("\\Gfclnt04\AITSL501")
SETDEFAULTPRINTER ("\\Gfclnt04\AITSL501")
? "Added printer connection.........."
ENDIF
IF INGROUP ("Scottish Magazines")
RUN "NET USE N: \\GAPPNT04\ScottishMagazines /p:NO"
ENDIF
IF INGROUP ("COGNOS-USERS")
RUN "NET USE Y: \\GTPSNT01\cognos /p:NO"
ENDIF
IF INGROUP ("Solus-grp")
RUN "NET USE Q: \\GAPPNT04\SolusBookingSystem /p:NO"
ENDIF
IF INGROUP ("checkline-grp")
RUN "NET USE H: \\GCKLNT01\wineftnt /p:NO"
ENDIF
IF INGROUP ("S1-GROUP")
RUN "NET USE V: \\GAPPNT03\S1 /p:NO"
ENDIF
IF INGROUP ("SATEAM-GRP")
RUN "NET USE X: \\GMSHNT01\TECH_SUPPORT /p:NO"
ENDIF
IF INGROUP ("CUSTSERV-GRP")
RUN "NET USE R: \\GAPPNT02\CSDBase /p:NO"
ENDIF
IF INGROUP ("CENTRALS-GRP")
RUN "NET USE J: \\GFCLNT04\CentralServices /p:NO"
ENDIF
IF INGROUP ("GPNCENTRALS-GRP")
RUN "NET USE N: \\QCLUNT01\CentralServices /p:NO"
ENDIF
IF INGROUP ("BROADCAS-GRP")
RUN "NET USE K: \\GFCLNT04\Broadcasting /p:NO"
ENDIF
IF INGROUP ("BROADDIST-GRP")
RUN "NET USE I: \\GFCLNT04\Broadcasting /p:NO"
ENDIF
IF INGROUP ("GPNBROADCAST-GRP")
RUN "NET USE O: \\QCLUNT01\Broadcasting /p:NO"
ENDIF
IF INGROUP ("PUBLISHI-GRP")
RUN "NET USE L: \\GFCLNT04\Publishing /p:NO"
ENDIF
IF INGROUP ("SUNDAY-GRP")
RUN "NET USE S: \\GMSHNT01\SUNDAY /p:NO"
ENDIF
IF INGROUP ("MARKETIN-GRP")
RUN "NET USE T: \\GAPPNT05\Despatch_DB /p:NO"
ENDIF
IF INGROUP ("MARKETDB-GRP")
RUN "NET USE S: \\GAPPNT05\NSDOCS /p:NO"
ENDIF
IF INGROUP ("STE-GRP")
RUN "NET USE M: \\GFCLNT04\Broadcasting /p:NO"
ENDIF
IF INGROUP ("GPNPUBLIC-GRP")
RUN "NET USE Q: \\QCLUNT01\Public /p:NO"
ENDIF
IF INGROUP ("MAGASUBS-GRP")
RUN "NET USE F: \\GAPPNT02\MAGAZINES /p:NO"
ENDIF
IF INGROUP ("RESEARCH-GRP")
RUN "NET USE Z: \\GAPPNT02\RESEARCH /p:NO"
ENDIF
RUN "NET USE P: \\GMSHNT01\Public /p:NO"
IF INGROUP ("MOVED_USERS")
SHELL "CMD /C SUBST U: /D"
SHELL "CMD /C SUBST U: \\gfclnt03\users\%username%"
ELSE
SHELL "CMD /C SUBST U: /D"
SHELL "CMD /C SUBST U: \\gfclnt01\users\%username%"
goto CONTINUE
:EXIT
exit
: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")
RUN "NET USE N: /DELETE /y"
RUN "NET USE N: \\GAPPNT04\ScottishMagazines"
ENDIF
IF INGROUP ("Solus-Grp")
RUN "NET USE Q: /DELETE /y"
RUN "NET USE Q: \\GAPPNT04\SolusBookingSystem"
ENDIF
IF INGROUP ("ADQUICK-GRP")
RUN "NET USE G: /DELETE /y"
RUN "NET USE G: \\GTPSNT01\Quick"
ENDIF
IF INGROUP ("CUSTSERV-GRP")
RUN "NET USE R: /DELETE /y"
RUN "NET USE R: \\GAPPNT02\CSDBase"
ENDIF
IF INGROUP ("SATEAM-GRP")
RUN "NET USE X: /DELETE /y"
RUN "NET USE X: \\GMSHNT01\TECH_SUPPORT"
ENDIF
IF INGROUP ("MOVE-GRP")
RUN "NET USE J: /DELETE /y"
RUN "NET USE J: \\GFCLNT04\CentralServices"
ENDIF
IF INGROUP ("CENTRALS-GRP")
RUN "NET USE J: /DELETE /y"
RUN "NET USE J: \\GFCLNT04\CentralServices"
ENDIF
IF INGROUP ("GPNCENTRALS-GRP")
RUN "NET USE N: /DELETE /y"
RUN "NET USE N: \\QCLUNT01\CentralServices"
ENDIF
IF INGROUP ("BROADCAS-GRP")
RUN "NET USE K: /DELETE /y"
RUN "NET USE K: \\GFCLNT04\Broadcasting"
ENDIF
IF INGROUP ("BROADDIST-GRP")
RUN "NET USE I: /DELETE /y"
RUN "NET USE I: \\GFCLNT04\Broadcasting"
ENDIF
IF INGROUP ("GPNBROADCAST-GRP")
RUN "NET USE O: /DELETE /y"
RUN "NET USE O: \\QCLUNT01\Broadcasting"
ENDIF
IF INGROUP ("PUBLISHI-GRP")
RUN "NET USE L: /DELETE /y"
RUN "NET USE L: \\GFCLNT04\Publishing"
ENDIF
IF INGROUP ("S1-GROUP")
RUN "NET USE V: /DELETE /y"
RUN "NET USE V: \\GAPPNT03\S1"
ENDIF
IF INGROUP ("COGNOS-USERS")
RUN "NET USE Y: /DELETE /y"
RUN "NET USE Y: \\GTPSNT01\cognos"
ENDIF
IF INGROUP ("SUNDAY-GRP")
RUN "NET USE S: /DELETE /y"
RUN "NET USE S: \\GMSHNT01\Sunday"
ENDIF
IF INGROUP ("STE-GRP")
RUN "NET USE M: /DELETE /y"
RUN "NET USE M: \\GFCLNT04\Broadcasting"
ENDIF
IF INGROUP ("MARKETIN-GRP")
RUN "NET USE T: /DELETE /y"
RUN "NET USE T: \\GAPPNT05\Despatch_DB"
ENDIF
IF INGROUP ("MARKETDB-GRP")
RUN "NET USE S: /DELETE /Y"
RUN "NET USE S: \\GAPPNT05\NSDOCS"
ENDIF
IF INGROUP ("MAGASUBS-GRP")
RUN "NET USE F: /DELETE /Y"
RUN "NET USE F: \\GAPPNT02\MAGAZINES"
ENDIF
IF INGROUP ("RESEARCH-GRP")
RUN "NET USE Z: /DELETE /Y"
RUN "NET USE Z: \\GAPPNT02\RESEARCH"
ENDIF
IF INGROUP ("GPNPUBLIC-GRP")
RUN "NET USE Q: /DELETE /y"
RUN "NET USE Q: \\QCLUNT01\Public"
ENDIF
RUN "NET USE P: /DELETE /y"
RUN "NET USE P: \\GMSHNT01\Public"
IF INGROUP ("MOVED_USERS")
RUN "NET USE U: /DELETE /y"
SHELL "NET USE U: \\gfclnt03\users"
cd U:\users\@USERID
ELSE
SHELL "NET USE U: \\gfclnt01\users"
cd U:\users\@USERID
goto CONTINUE
:continue
GOTO END
:exit2
exit
:END
As you can see - we are running windows 95 & NT only.
[ 10 July 2002, 11:09: Message edited by: Cazzjh ]
_________________________
Cazzjh
|
|
Top
|
|
|
|
#24695 - 2002-07-10 11:10 AM
Re: Problems (using up all drive letters)
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,
We haven't heard of it.
We agree with Lonkero that it can have a relationship with your client environment.
Possible ideas:
- you are using dynamic way of mapping drives. dynamic means: assign drives to available letters.
- client is remembering all mappings (/persistent is active)
- users have create persistent mappings.
Some questions:
- which kixtart 4.10 build running? 98 or 99?
- running kix32.exe or wkix32.exe?
- how are you calling your script? by BATch file?
- what is your client/server environment?
- happens it always on the same clients?
- happens it always with the same users?
- can you return the output of NET USE LIST command to the board?
- can you put your script on the board?
greetings.
[ 10 July 2002, 11:12: Message edited by: MCA ]
|
|
Top
|
|
|
|
|
#24697 - 2002-07-10 11:15 AM
Re: Problems (using up all drive letters)
|
Cazzjh
Fresh Scripter
Registered: 2002-06-04
Posts: 32
Loc: Glasgow, Scotland
|
Hi
Answers to questions :
- Running Kixtart 2001
- running kix32.exe
- Calling the script with a .scr file
- Client Windows 95 & NT, Server - Mix of NT & 2000
- No it doesn't happen always to the same clients - mix of both 95 & NT too
- Not always with the same users
- Getting a network name not found from the net use list command error 67
_________________________
Cazzjh
|
|
Top
|
|
|
|
|
#24698 - 2002-07-10 11:17 AM
Re: Problems (using up all drive letters)
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Thanks for the script.
A quick look shows us, that you are using NET USE commands which are starting by RUN commands.
Possible that you forget that your script continues running without waiting for the completion of RUN commands.
It can be possible that a the same time an enormous amount of NET USE commands will be
executed which doesn't conflict by a sequential processing of it.
We will rewrite your script a little bit.
About 15 minutes you will see it.
greetings.
|
|
Top
|
|
|
|
|
#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
|
|
|
|
|
#24703 - 2002-07-11 12:03 AM
Re: Problems (using up all drive letters)
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear Lonkero,
We think it cost indeed about 15 minutes, but the remarks require more time.
We doesn't reduce the two part, because we didn't find a real structure in the mappings for both
parts. Also we must prevent to rewrite a complete script which isn't understandable for the questioner.
Oh, I forget one remark:
don't map the Z-drive in windows 9x environments
greetings.
[ 10 July 2002, 12:08: Message edited by: MCA ]
|
|
Top
|
|
|
|
|
#24706 - 2002-07-11 12:15 AM
Re: Problems (using up all drive letters)
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
It wasn't just parsing. We reduce the amount of GOTOs.
As a modular script the above code can reduce also dramatically. Only two USE statements will
stay in that version.
The strange thing is that that company tells: our script was working great all the time.
We doesn't understand that, because some elements can result in an unexpected end of this script.
In our opinion the amount of drive-letters using can be reduce also, but for such operation we
need more information.
greetings.
greetings.
|
|
Top
|
|
|
|
|
#24708 - 2002-07-11 01:41 PM
Re: Problems (using up all drive letters)
|
Cazzjh
Fresh Scripter
Registered: 2002-06-04
Posts: 32
Loc: Glasgow, Scotland
|
Hi guys,
Put the debug script in place. The output is showing errors - although it maps the drives and then does not map a drive but does not show an error - any idea's???
Here is the output:
-thursday 2002/07/11 10:53:26- kixtart 4.10 Beta 1/3.13e script starting.
-
-curdir: c:\users\default
-scriptdir: \\gpdcnt01\netlogon
-scriptname: kixtart.scr
-startdir: \\gpdcnt01\netlogon
-
-userid: robbie/robbie
-user priv: admin
-version: inwin=1/dos=4.0/productsuite=0/producttype=Windows NT Workstation/csd=Service Pack 5
-debug file: c:\temp\kixdebug.txt
-debug name: 20020711_105326.675_2242 kixtart.scr
-
----- start-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 1a-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 1c-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 1e-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 1g-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 2-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 11-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 14-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 15-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 16-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
Opened '\\Gfclnt03\Users\LoginLogs\CITSPC75.log' 10:53:26
- 17-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 18-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 19-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
USERS NAME IS Robbie
- 20-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
MACHINE NAME IS CITSPC75
- 21-10:53:26-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
IP ADDRESS IS 193. 35. 31.250
- 22-10:53:28-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
CPU IS Intel Pentium III AT 647 MHZ
- 23-10:53:28-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
OPERATING SYSTEM IS Windows NT Workstation
- 24-10:53:28-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
SERVICE PACK IS Service Pack 5
- 25-10:53:28-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 26-10:53:28-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
ERRORS ARE 0 WHICH MEANS The operation completed successfully.
- 27-10:53:28-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 28-10:53:28-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 29-10:53:28-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 30-10:53:28-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 31-10:53:28-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 32-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 33-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 34-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 35-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
Added printer connection..........
- 36-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 37-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 38-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 46-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 47-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 51-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 52-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 56-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 57-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 61-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 62-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 66-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 67-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 71-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 72-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 73-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 74-10:53:29-20020711_105326.675_2242 kixtart.scr - 2250 This network connection does not exist.
- 75-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 76-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 77-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 78-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 79-10:53:29-20020711_105326.675_2242 kixtart.scr - 2250 This network connection does not exist.
- 80-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 81-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 82-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 83-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 84-10:53:29-20020711_105326.675_2242 kixtart.scr - 2250 This network connection does not exist.
- 85-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 86-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 87-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 91-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 92-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 96-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 97-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 101-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 102-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 106-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 107-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 111-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 112-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 116-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 117-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 121-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 122-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 126-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 127-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 131-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 132-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 136-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 137-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 141-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 142-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 146-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 147-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 148-10:53:29-20020711_105326.675_2242 kixtart.scr - 2250 This network connection does not exist.
- 149-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 150-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 151-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 152-10:53:29-20020711_105326.675_2242 kixtart.scr - 0 The operation completed successfully.
- 156-10:53:29-20020711_105326.675_2242 kixtart.scr - 1 Incorrect function.
- 157-10:53:29-20020711_105326.675_2242 kixtart.scr - 1 Incorrect function.
- 3-10:53:29-20020711_105326.675_2242 kixtart.scr - 1 Incorrect function.
- 6-10:53:29-20020711_105326.675_2242 kixtart.scr - 1 Incorrect function.
- 7-10:53:29-20020711_105326.675_2242 kixtart.scr - 1 Incorrect function.
script completed
- 8-10:53:29-20020711_105326.675_2242 kixtart.scr - 1 Incorrect function.
_________________________
Cazzjh
|
|
Top
|
|
|
|
|
#24709 - 2002-07-11 02:33 PM
Re: Problems (using up all drive letters)
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,
Script stops just in the part which correctness was a question for use.
Please comment that part out of it and rerun script.
Is it possible to return more clearity about mapping same drive twices. It are those marked
with "; <++++ see also group".
greetings.
|
|
Top
|
|
|
|
|
#24710 - 2002-07-11 02:43 PM
Re: Problems (using up all drive letters)
|
Cazzjh
Fresh Scripter
Registered: 2002-06-04
Posts: 32
Loc: Glasgow, Scotland
|
Hi
The drives you marked are not mapped by all users - only a few. Also all groups have different users - nobody in the any two of them. So it should be ok.
_________________________
Cazzjh
|
|
Top
|
|
|
|
|
#24711 - 2002-07-12 11:35 AM
Re: Problems (using up all drive letters)
|
Cazzjh
Fresh Scripter
Registered: 2002-06-04
Posts: 32
Loc: Glasgow, Scotland
|
In the debug version - how would I change the place for the kixdebug.txt file to save to - I want this to go to a network drive??
Regards,
_________________________
Cazzjh
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 1343 anonymous users online.
|
|
|
![[Confused]](images/icons/confused.gif){kind=icon}
![[Roll Eyes]](images/icons/rolleyes.gif){kind=icon}
![[Big Grin]](images/icons/grin.gif){kind=icon}
