Page 1 of 1 1
Topic Options
#29620 - 2002-09-25 05:08 PM Scipt run from Command line not automatically
Kathy Offline
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
#29621 - 2002-09-25 05:18 PM Re: Scipt run from Command line not automatically
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
first thing (as there is no obvious reason) is to make test script just like yours but take of the:
SETCONSOLE("Hide")

then after it write:
"started" sleep 1 ?

and after the line:
if $OS = "Windows 98"
"os win98" sleep 1 ?

and so on. to see how far it is going.
_________________________
!

download KiXnet

Top
#29622 - 2002-09-25 05:48 PM Re: Scipt run from Command line not automatically
Jack Lothian Offline
MM club member
*****

Registered: 1999-10-22
Posts: 1169
Loc: Ottawa,Ontario, Canada
The first question is the file mlogon.bat executing?

Also you say it isn't working. You should be more explicit. Is the batch file starting up? Is kixtart freezing? Is kixtart stopping with an error message?
_________________________
Jack

Top
#29623 - 2002-09-25 06:19 PM Re: Scipt run from Command line not automatically
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11164
Loc: Boston, MA, USA
Please take a look at the KiXtart Manual for a properly formatted login.bat file.

I believe, you will need to change the batch file to something like
code:
%0\..\kix32.exe %0\..\kixtart.kix

if you want to call it from the NETLOGON folder. Also, see whether the batch file itself is being executed by putting a PAUSE statement or a NET SEND stement intoit.
_________________________
There are two types of vessels, submarines and targets.

Top
#29624 - 2002-09-25 07:49 PM Re: Scipt run from Command line not automatically
Kathy Offline
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 Offline
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
#29626 - 2002-09-25 08:20 PM Re: Scipt run from Command line not automatically
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
Reboot on Wintendo is not an exact science. See the FAQ

Topic: Shutdown/Restart - options

You also don't want to insert a SLEEP between the RUN and EXIT as the KiX kill-resist is working against you.
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.

Top
#29627 - 2002-09-25 08:46 PM Re: Scipt run from Command line not automatically
Jack Lothian Offline
MM club member
*****

Registered: 1999-10-22
Posts: 1169
Loc: Ottawa,Ontario, Canada
Also, there are dozens of freeware replacements for shutdown or reboot. Visit any freeware utilities site & you will find one.
_________________________
Jack

Top
#29628 - 2002-09-25 10:53 PM Re: Scipt run from Command line not automatically
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11164
Loc: Boston, MA, USA
The RUNDLL32 is also case-sensitive with regards to the parameters provided.
_________________________
There are two types of vessels, submarines and targets.

Top
#29629 - 2002-12-05 06:28 AM Re: Scipt run from Command line not automatically
MCA Offline
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.
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA

Top
#29630 - 2002-12-05 06:28 AM Re: Scipt run from Command line not automatically
MCA Offline
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.
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA

Top
Page 1 of 1 1


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

Who's Online
0 registered and 248 anonymous users online.
Newest Members
gespanntleuchten, DaveatAdvanced, Paulo_Alves, UsTaaa, xxJJxx
17864 Registered Users

Generated in 0.179 seconds in which 0.153 seconds were spent on a total of 12 queries. Zlib compression enabled.

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