#29620 - 2002-09-25 05:08 PM
Scipt run from Command line not automatically
|
Kathy
Getting the hang of it
Registered: 2002-09-09
Posts: 96
Loc: Marshall, TX
|
I have been working on another project and now I am back on the kixtart script problem. I started this AM with a brand new setup of Win98 on a DELL. It has a Netware client and a Windows client installed. It has a C:\kix folder with KIX32.EXE in it and the .dll files have been copied to the C:\Windows\System folder. Users will be logging in to Netware 5.1 and Win2k server(s). I am using Kixtart v 4.11. The user is calling a mlogin.bat file from the \netlogon folder on the PDC\SDC servers. The problem I am having is the script will not run when the user logs in - it will run fine from the command line and tells the user that a reboot of the PC is needed. Reboot and all is well the shortcut is on the desktop and the drive is mapped to O:. Can anyone tell me what I am doing wrong in the portion of the script that checks for OS=Win98 and then if true - do NPORDER, reboot, etc.?
mlogin.bat
code:
kix32.exe kixtart.kix
kixtart.kix
code:
; LOGIN SCRIPT
CLS SETCONSOLE("Hide") ; For Marshall if ingroup("TX-Everyone") ; Code below checks users OS $OS = @producttype if $OS = "Windows 98"
; Code for NPORDER so Netware wont keep the win2k script from completing
:NPORDER $MS = ReadValue ("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Serv ices\MSNP32\NetworkProvider", "CallOrder") $NW = ReadValue ("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Serv ices\NOVELLNP\NetworkProvider", "CallOrder") if ($MS = "00000040") AND ($NW = "00000020") $MS = WriteValue ("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MSNP32 \NetworkProvider", "CallOrder", "00000020", "REG_BINARY") $NW = WriteValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\NOVELLNP\NetworkProvider", "CallOrder", "00000040", "REG_BINARY") ; --- Reboot the PC? --- RUN "Rundll32.exe shell.dll,RestartDialog" EXIT 1 ENDIF
; MAPCON Section ; CODE for the Test group if ingroup("TX Mapcon Test") Use O: /delete USE O: "\\Tx-Apps\Apps"
; Code for putting a value in the registry for desktop shortcut Mapcon $regkey='HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run' $regentry='MapConIcon' $regvalue='\\tx-pdc\netlogon\short2.bat' $rc=writevalue($regkey,$regentry,$regvalue,'REG_SZ') if @ERROR ? 'Error writing to registry: '+@ERROR+' - '+@SERROR endif endif endif endif ;OK SECTION ; Code for OK user on laptop to map depts and home if ingroup("OK-Laptops") use h: /delete use g: /delete use h: "\\tx-fs1\pryor\home" use g: "\\tx-fs1\pryor\depts" endif exit
_________________________
Stupid is forever - Ignorance can be fixed.
|
Top
|
|
|
|
#29624 - 2002-09-25 07:49 PM
Re: Scipt run from Command line not automatically
|
Kathy
Getting the hang of it
Registered: 2002-09-09
Posts: 96
Loc: Marshall, TX
|
The batch file runs fine. Tested it with pause.
The part that does not seem to work is the NPORDER. 1. When the win98 user logs in normally, it does not make the "40 20" changes to NPORDER. 2. After the user logs in and runs the kix32 kixtart.exe from the \netlogon folder it makes the changes to the registry.
I am going to pull just that part of the code out and make put it in a separate script and test with it. I will get back to the forum to let you know what happens. I think it is to confusing with all the code in there. I will work with just the NPORDER: Then maybe we can find out why it will not run a login. Thanks.
_________________________
Stupid is forever - Ignorance can be fixed.
|
Top
|
|
|
|
#29625 - 2002-09-25 08:05 PM
Re: Scipt run from Command line not automatically
|
Kathy
Getting the hang of it
Registered: 2002-09-09
Posts: 96
Loc: Marshall, TX
|
1. Changed values back to original 40 - 20 for NPRovider vaules for MSNP32 and NetworkProvider in the registry. Ran the short script from the command line. I get a RunDLL32 error - illegal operation - . Do I have a syntax error?
:NPORDER "started NPORDER" sleep 1 ? $MS = ReadValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MSNP32\NetworkProvider", "CallOrder") $NW = ReadValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\NOVELLNP\NetworkProvider", "CallOrder") if ($MS = "00000040") AND ($NW = "00000020") $MS = WriteValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MSNP32\NetworkProvider", "CallOrder", "00000020", "REG_BINARY") $NW = WriteValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\NOVELLNP\NetworkProvider", "CallOrder", "00000040", "REG_BINARY") ; --- Reboot the PC? ---
"need to reboot here if win98 changed registry settings" sleep 1 ? RUN "Rundll32.exe shell.dll,RestartDialog" "should reboot here or line above" sleep 1 ? EXIT 1 "exit here" sleep 1 ? ENDIF
_________________________
Stupid is forever - Ignorance can be fixed.
|
Top
|
|
|
|
#29629 - 2002-12-05 06:28 AM
Re: Scipt run from Command line not automatically
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,
Another way of debugging an error situation is by using kistrip. So it isn't necessary for you to add all kind of debugging code to it. Code which can also introduce new errors. In next reaction you see the results for your script.
So our suggestion: use our tool kixstrip, which can add all kind of debugging code to your script. so you can see exactly which part of your script creates possible 'hanging' situation or which part of your script slows it down.
Our suggestion 1:
Very your syntax with our kixstrip tool. Possible call
kixstrip input.kix output.kix /block_check /show_structure
Our Suggestion 2:
A way to see what is going wrong can be done by our kixstrip tool with option /debug. At the end you only need to look at output file to see what was executed and what were the error status. The debugging file will not be overwritten.
QUESTIONs: - is it possible to see what is happening during a logging on session. - is it possible to see how long our script runs.
Advice: please run your script after adding our debugging code to it. How: - add debugging code? - is debugging possible without user intervention? YES - can is be usefull by logon or script problems? YES
A way of checking your script is by using our tool kixstrip on our site http://home.wanadoo.nl/scripting With the option /debug we add additional kixtart code, which shows
- which line was executed.
- what was the time of execution.
- what was the error status of previous executed line.
So it is possible to catch the error status of kixtart statements during a logon session.and it will show the last executed before script is crashing.
An example.
For changing your script with debugging code use f.e. kixstrip input.kix output.kix /debug
It is no longer necessary to change RedirectOutput statement for normal operation. The default debugging file will be %tmp%\kixdebug.txt. By an automatic cleaning of the %tmp% we advise to uncomment the line
;$_debug_file="c:\kixdebug.txt"
During the execution the information will be append to previous information. So it is possible to check the differences.
be sure above RedirectOutput file has write permissions.
A kixstrip output example of our script os.kix (reduced version) is:
code:
;CLS IF (instr("-3.0x-3.1x-3.2x-3.3x-","-"+substr(@kix,1,3)+"x-") <> 0) IF MessageBox("sorry, your kixtart "+@kix+" release is too old."+CHR(13)+CHR(10)+CHR(13)+CHR(10)+" please upgrade.","KiXtart "+@kix+" info",4112,300) ENDIF EXIT ENDIF COLOR C+/N ;AT (1,1) " "
$_debug_file="kixdebug.txt" ; - %tmp% directory - IF (len($_debug_file) <> 0) IF (substr("%tmp%",len("%tmp%"),1) = "\") $_debug_file="%tmp%"+$_debug_file ELSE $_debug_file="%tmp%\"+$_debug_file ENDIF ENDIF ;$_debug_file="c:\kixdebug.txt" IF RedirectOutput($_debug_file) ENDIF
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.19e script starting" IF (Val(substr(@kix,1,1)) >= 4) IF (len(@scriptname) <> 0) " ("+LCASE(@scriptname)+")" ENDIF ENDIF ? "-" IF ("$_debug_already_starting" <> "yes") ? "-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 ? "-" IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0) ? "-"+@cpu+" (memory "+MemorySize()+" MB)" ? "-" ENDIF ENDIF
$_debug_temp_name="" ; -format: yyyymmdd_hhmmss.sss_999 scriptname- IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") <> 0) OR (Val(substr(@kix,1,1)) >= 4) IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0) $_debug_temp_name=@msecs SELECT CASE (len($_debug_temp_name) = 1) $_debug_temp_name="00"+$_debug_temp_name CASE (len($_debug_temp_name) = 2) $_debug_temp_name="0"+$_debug_temp_name ENDSELECT $_debug_temp_name="."+$_debug_temp_name IF Srnd(@msecs) ENDIF SLEEP 0.050 ELSE IF Srnd((-1)*32767/(substr(@time,7,2)+1)) ENDIF SLEEP 1 ENDIF $_debug_temp_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_temp_name+"_"+Rnd() IF (len($_debug_temp_name) < 25) $_debug_temp_name=substr($_debug_temp_name+" ",1,25) ENDIF IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0) IF (len(@scriptname) < 12) $_debug_temp_name=$_debug_temp_name+" "+substr(@scriptname+" ",1,12) ELSE $_debug_temp_name=$_debug_temp_name+" "+@scriptname ENDIF ENDIF ENDIF
IF ("$_debug_already_starting" <> "yes") ? "-debug file: "+$_debug_file ? "-debug name: "+LCASE($_debug_temp_name) ELSE IF (len($_debug_temp_name) <> 0) ? "-debug: "+LTRIM(RTRIM(LCASE($_debug_temp_name)))+" -> "+$_debug_file ELSE ? "-debug-file: "+$_debug_file ENDIF ENDIF
IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") = 0) AND (Val(substr(@kix,1,1)) < 4) GOTO _debug_starting_point ENDIF DIM $_debug_name ; -create local variable- :_debug_starting_point $_debug_name=LCASE($_debug_temp_name) $_debug_already_starting="yes" ? "-" ?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 1-"+@time+"- @error @serror "? $os="" ?"- 2-"+@time+"- @error @serror "? SELECT ?"- 3-"+@time+"- @error @serror "? CASE (@inwin = 1) AND (@dos = "5.1") ; - Windows XP - ?"- 4-"+@time+"- @error @serror "? $os="XP" ?"- 5-"+@time+"- @error @serror "? CASE (@inwin = 1) AND (@dos = "5.0") ; - Windows 2000 - ?"- 6-"+@time+"- @error @serror "? $os="W2K" ?"- 7-"+@time+"- @error @serror "? CASE (@inwin = 1) ; - Windows NT - ?"- 8-"+@time+"- @error @serror "? $os="NT4" ?"- 9-"+@time+"- @error @serror "? CASE (@inwin <> 1) AND (@dos = "4.90") ; - Windows ME - ?"- 10-"+@time+"- @error @serror "? $os="ME" ?"- 11-"+@time+"- @error @serror "? CASE (@inwin <> 1) AND (@dos = "4.10") ; - Windows 98 - ?"- 12-"+@time+"- @error @serror "? $os="W98" ?"- 13-"+@time+"- @error @serror "? CASE (@inwin <> 1) AND (@dos = "4.0") ; - Windows 95 - ?"- 14-"+@time+"- @error @serror "? $os="W95" ?"- 15-"+@time+"- @error @serror "? CASE 1 ?"- 16-"+@time+"- @error @serror "? $os="???" ; - undetermined - ?"- 17-"+@time+"- @error @serror "? ENDSELECT ?"- 18-"+@time+"- @error @serror "? ? "$$os "+$os
?"------- end-"+@time+"-"+$_debug_name+"- @error @serror" ? "-" ? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.19e script ending" IF (Val(substr(@kix,1,1)) >= 4) IF (len(@scriptname) <> 0) " ("+LCASE(@scriptname)+")" ENDIF ENDIF ? "-" IF RedirectOutput("CON") ENDIF COLOR C+/N ? ? "Informative KIX "+@kix+":"+" debug info see "+CHR(34)+$_debug_file+CHR(34) IF (Val(substr(@kix,1,1)) >= 4) IF (len(@scriptname) <> 0) " ("+LCASE(@scriptname)+")" ENDIF ENDIF IF RedirectOutput($_debug_file) ENDIF ;($begin) ; ; mon 22-jul-2002 13:30:34 (kix 4.10 vs 3.19e) ; ;Informative KIXSTRIP: no errors found (input=1 output=1 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 [0:0:0] ; - select:case:endselect [0:0:0] ; - while:loop [0:0] ;Informative KIXSTRIP: no block_structures found. ;Informative KIXSTRIP: no UDF's found. ;Informative KIXSTRIP: no 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 ; ;($end)
An output example of kix32 run:
code:
-sunday 2002/04/14 05:32:38- kixtart 4.02/3.04e script starting. - -curdir: d:\ -scriptdir: -startdir: c:\windows - -userid: MCA/MCA -user priv: guest -version: inwin=2/dos=4.0/productsuite=/producttype=Windows 95/csd=B - - start-05:32:39- 0 The operation completed successfully.
- 1-05:32:39- 0 The operation completed successfully.
- 2-05:32:39- 0 The operation completed successfully.
- 14-05:32:39- 0 The operation completed successfully.
- 15-05:32:39- 0 The operation completed successfully.
- 18-05:32:39- 0 The operation completed successfully.
$os W95 - end-05:32:39- 0 The operation completed successfully.
- -sunday 2002/04/14 05:32:39- kixtart 4.02/3.04e script ending. - -
When you still have problems please:
- put some code on the board.
- put your logon batch file on the board.
- put the output of a debugging run on the board.
- put a DIR list of your NETLOGON directory on the board.
- put a DIR list of your clients on the board with contains information
about: KIX32.EXE and KX*.DLL Greetings. btw: it is only some additional information about how you can debug your script.
btw: with kixstrip ? you get a summary of possible options. The result will be something like this:
code:
Kixstrip 4.10 (vs 3.19e) (c) MCA - scripting@wanadoo.nl - 2000, 2001, 2002 ------------------------------------------------------------------------------ kixstrip [input] [output] /Block_Check or /BC /Combine /Debug /Headers /License /License=[var] /Performance /Print /Progress /Show_Errors or /SE /Show_Structure or /SS /Translate /TAB=[num] (def: 6) default: /Combine /Headers /License (other options are negative) other: - options with prefix "/No" will be ignored. f.e. /NoDebug /NoTab - /Block_Check /Tab=2 (auto set: /NoCombine /NoLicense /Print ) /Debug (auto set: /NoLicense /Print /Show_Errors ) - /Block_Check (reformat kixtart code inc. block structure ) /Combine (combine lines to one line ) /Debug (insert "line numbers" for each printed line ) /Headers (insert summary report as footer ) /Performance (insert "indicator" for each executed line) /Print (do not remove print statements ) /Progress (insert "indicator" for each printed line ) /Show_Errors (insert error messages in output file ) /Show_Structure (insert block structures in output file ) /Translate (convert keywords to upper/lower-case ) examples - kixstrip test.kix test.out /Block_Check /Debug - kixstrip test.kix test.out /Performance /Show_Structure
btw: Symbol on our homepage has been linked to related http://kixtart.org topic.
|
Top
|
|
|
|
#29630 - 2002-12-05 06:28 AM
Re: Scipt run from Command line not automatically
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,
With the call: kixstrip input.kix output.kix /debug /block_check we get following test script.
code:
;CLS IF (instr("-3.0x-3.1x-3.2x-3.3x-","-"+substr(@kix,1,3)+"x-") <> 0) IF MessageBox("sorry, your kixtart "+@kix+" release is too old."+CHR(13)+CHR(10)+CHR(13)+CHR(10)+" please upgrade.","KiXtart "+@kix+" info",4112,300) ENDIF EXIT ENDIF COLOR C+/N ;AT (1,1) " "
$_debug_file="kixdebug.txt" ; - %tmp% directory - IF (len($_debug_file) <> 0) IF (substr("%tmp%",len("%tmp%"),1) = "\") $_debug_file="%tmp%"+$_debug_file ELSE $_debug_file="%tmp%\"+$_debug_file ENDIF ENDIF ;$_debug_file="c:\kixdebug.txt" IF RedirectOutput($_debug_file) ENDIF
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.20e script starting" IF (Val(substr(@kix,1,1)) >= 4) IF (len(@scriptname) <> 0) " ("+LCASE(@scriptname)+")" ENDIF ENDIF ? "-" IF ("$_debug_already_starting" <> "yes") ? "-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 ? "-" IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0) ? "-"+@cpu+" (memory "+MemorySize()+" MB)" ? "-" ENDIF ENDIF
$_debug_temp_name="" ; -format: yyyymmdd_hhmmss.sss_999 scriptname- IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") <> 0) OR (Val(substr(@kix,1,1)) >= 4) IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0) $_debug_temp_name=@msecs SELECT CASE (len($_debug_temp_name) = 1) $_debug_temp_name="00"+$_debug_temp_name CASE (len($_debug_temp_name) = 2) $_debug_temp_name="0"+$_debug_temp_name ENDSELECT $_debug_temp_name="."+$_debug_temp_name IF Srnd(@msecs) ENDIF SLEEP 0.050 ELSE IF Srnd((-1)*32767/(substr(@time,7,2)+1)) ENDIF SLEEP 1 ENDIF $_debug_temp_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_temp_name+"_"+Rnd() IF (len($_debug_temp_name) < 25) $_debug_temp_name=substr($_debug_temp_name+" ",1,25) ENDIF IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0) IF (len(@scriptname) < 12) $_debug_temp_name=$_debug_temp_name+" "+substr(@scriptname+" ",1,12) ELSE $_debug_temp_name=$_debug_temp_name+" "+@scriptname ENDIF ENDIF ENDIF
IF ("$_debug_already_starting" <> "yes") ? "-debug file: "+$_debug_file ? "-debug name: "+LCASE($_debug_temp_name) ELSE IF (len($_debug_temp_name) <> 0) ? "-debug: "+LTRIM(RTRIM(LCASE($_debug_temp_name)))+" -> "+$_debug_file ELSE ? "-debug-file: "+$_debug_file ENDIF ENDIF
IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") = 0) AND (Val(substr(@kix,1,1)) < 4) GOTO _debug_starting_point ENDIF DIM $_debug_name ; -create local variable- :_debug_starting_point $_debug_name=LCASE($_debug_temp_name) $_debug_already_starting="yes" ? "-" ?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 1-"+@time+"-"+$_debug_name+"- @error @serror"? ; LOGIN SCRIPT ?"- 2-"+@time+"-"+$_debug_name+"- @error @serror"? ?"- 3-"+@time+"-"+$_debug_name+"- @error @serror"? CLS ?"- 4-"+@time+"-"+$_debug_name+"- @error @serror"? SetConsole("Hide") ?"- 5-"+@time+"-"+$_debug_name+"- @error @serror"? ; For Marshall ?"- 6-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("TX-Everyone") ?"- 7-"+@time+"-"+$_debug_name+"- @error @serror"? ; Code below checks users OS ?"- 8-"+@time+"-"+$_debug_name+"- @error @serror"? $os = @producttype ?"- 9-"+@time+"-"+$_debug_name+"- @error @serror"? IF $os = "Windows 98" ?"- 10-"+@time+"-"+$_debug_name+"- @error @serror"? ?"- 11-"+@time+"-"+$_debug_name+"- @error @serror"? ; Code for NPORDER so Netware wont keep the win2k script from completing ?"- 12-"+@time+"-"+$_debug_name+"- @error @serror"? ?"- 13-"+@time+"-"+$_debug_name+"- @error @serror"? :nporder ?"- 14-"+@time+"-"+$_debug_name+"- @error @serror"? $ms = ReadValue ("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Serv ices\MSNP32\NetworkProvider", "CallOrder") ?"- 15-"+@time+"-"+$_debug_name+"- @error @serror"? $nw = ReadValue ("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Serv ices\NOVELLNP\NetworkProvider", "CallOrder") ?"- 16-"+@time+"-"+$_debug_name+"- @error @serror"? IF ($ms = "00000040") AND ($nw = "00000020") ?"- 17-"+@time+"-"+$_debug_name+"- @error @serror"? $ms = WriteValue ("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MSNP32 \NetworkProvider", "CallOrder", "00000020", "REG_BINARY") ?"- 18-"+@time+"-"+$_debug_name+"- @error @serror"? $nw = WriteValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\NOVELLNP\NetworkProvider", "CallOrder", "00000040", "REG_BINARY") ?"- 19-"+@time+"-"+$_debug_name+"- @error @serror"? ; --- Reboot the PC? --- ?"- 20-"+@time+"-"+$_debug_name+"- @error @serror"? RUN "Rundll32.exe shell.dll,RestartDialog" ?"- 21-"+@time+"-"+$_debug_name+"- @error @serror"? EXIT 1 ?"- 22-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF ?"- 23-"+@time+"-"+$_debug_name+"- @error @serror"? ?"- 24-"+@time+"-"+$_debug_name+"- @error @serror"? ; MAPCON Section ?"- 25-"+@time+"-"+$_debug_name+"- @error @serror"? ; CODE for the Test group ?"- 26-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("TX Mapcon Test") ?"- 27-"+@time+"-"+$_debug_name+"- @error @serror"? USE o: /delete ?"- 28-"+@time+"-"+$_debug_name+"- @error @serror"? USE o: "\\Tx-Apps\Apps" ?"- 29-"+@time+"-"+$_debug_name+"- @error @serror"? ?"- 30-"+@time+"-"+$_debug_name+"- @error @serror"? ; Code for putting a value in the registry for desktop shortcut Mapcon ?"- 31-"+@time+"-"+$_debug_name+"- @error @serror"? $regkey='HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run' ?"- 32-"+@time+"-"+$_debug_name+"- @error @serror"? $regentry='MapConIcon' ?"- 33-"+@time+"-"+$_debug_name+"- @error @serror"? $regvalue='\\tx-pdc\netlogon\short2.bat' ?"- 34-"+@time+"-"+$_debug_name+"- @error @serror"? $rc=WriteValue($regkey,$regentry,$regvalue,'REG_SZ') ?"- 35-"+@time+"-"+$_debug_name+"- @error @serror"? IF @error ?"- 36-"+@time+"-"+$_debug_name+"- @error @serror"? ? 'Error writing to registry: '+@error+' - '+@serror ?"- 37-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF ?"- 38-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF ?"- 39-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF ?"- 40-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF ?"- 41-"+@time+"-"+$_debug_name+"- @error @serror"? ;OK SECTION ?"- 42-"+@time+"-"+$_debug_name+"- @error @serror"? ; Code for OK user on laptop to map depts and home ?"- 43-"+@time+"-"+$_debug_name+"- @error @serror"? IF InGroup("OK-Laptops") ?"- 44-"+@time+"-"+$_debug_name+"- @error @serror"? USE h: /delete ?"- 45-"+@time+"-"+$_debug_name+"- @error @serror"? USE g: /delete ?"- 46-"+@time+"-"+$_debug_name+"- @error @serror"? USE h: "\\tx-fs1\pryor\home" ?"- 47-"+@time+"-"+$_debug_name+"- @error @serror"? USE g: "\\tx-fs1\pryor\depts" ?"- 48-"+@time+"-"+$_debug_name+"- @error @serror"? ENDIF ?"- 49-"+@time+"-"+$_debug_name+"- @error @serror"? EXIT ?"- 50-"+@time+"-"+$_debug_name+"- @error @serror"? ?"------- end-"+@time+"-"+$_debug_name+"- @error @serror" ? "-" ? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.20e script ending" IF (Val(substr(@kix,1,1)) >= 4) IF (len(@scriptname) <> 0) " ("+LCASE(@scriptname)+")" ENDIF ENDIF ? "-" IF RedirectOutput("CON") ENDIF COLOR C+/N ? ? "Informative KIX "+@kix+":"+" debug info see "+CHR(34)+$_debug_file+CHR(34) IF (Val(substr(@kix,1,1)) >= 4) IF (len(@scriptname) <> 0) " ("+LCASE(@scriptname)+")" ENDIF ENDIF IF RedirectOutput($_debug_file) ENDIF ;($begin) ; ; thu 05-dec-2002 06:26:13 (kix 4.10 vs 3.20e) ; ;Informative KIXSTRIP: no errors found (input=50 output=50 skip=0). ; ;Informative KIXSTRIP: 6 block_structures found. ;Informative KIXSTRIP: no UDF's found. ;Informative KIXSTRIP: 1 label 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: 2 EXIT ;Informative KIXSTRIP: 1 RUN ;Informative KIXSTRIP: 6 USE ; ;($end)
greetings.
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 248 anonymous users online.
|
|
|