#23362 - 2002-06-18 01:58 PM
Re: Problems with USE command ...
|
Bxn
Getting the hang of it
Registered: 2002-06-05
Posts: 63
Loc: Alpha Centauri
|
Well, Well, Well ...
Murphy's Law Strikes Again ...
Before Applying KiXStrip410.Exe to My Script, I've tested once again with values in parms file which fully comply with a perfect execution, ie only one server to connect to.
The script runs well.
I Apply : KiXStrip410 Connect.Kix Connect1.Kix /debug.
Here's the resulting file, no apparent error.
code:
CLS
Color C+/N
AT (1,1) " "
If ReDirectOutput("")
EndIf
? "-"+Lcase(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.04e 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
? "-"
?"- start-"+@time+"- @error @serror "?
?"- 1-"+@time+"- @error @serror "? ;
?"- 2-"+@time+"- @error @serror "? ;
?"- 3-"+@time+"- @error @serror "? CLS
?"- 4-"+@time+"- @error @serror "?
?"- 5-"+@time+"- @error @serror "? $beginticks = @ticks
?"- 6-"+@time+"- @error @serror "? $begindate = @date
?"- 7-"+@time+"- @error @serror "? $begintime = @time
?"- 8-"+@time+"- @error @serror "? $scriptname = Ucase(@scriptname)
?"- 9-"+@time+"- @error @serror "?
?"- 10-"+@time+"- @error @serror "? ;***********************************************
?"- 11-"+@time+"- @error @serror "? ; Initialize Varz For File Handle
?"- 12-"+@time+"- @error @serror "? ;***********************************************
?"- 13-"+@time+"- @error @serror "? $parmsfname = "_Connect-Parms.Kix"
?"- 14-"+@time+"- @error @serror "? $execlogfname = "_Connect-ExecLog.Log"
?"- 15-"+@time+"- @error @serror "? $proc2execute = ""
?"- 16-"+@time+"- @error @serror "? $resourcenamesfname = "_Connect-ResourceNames.Kix"
?"- 17-"+@time+"- @error @serror "? $parmsfhndle = 1
?"- 18-"+@time+"- @error @serror "? $execlogfhndle = 2
?"- 19-"+@time+"- @error @serror "? $resourcenamesfhndle = 3
?"- 20-"+@time+"- @error @serror "?
?"- 21-"+@time+"- @error @serror "? ;Command Line Parms Prevail Over ParmsFile & Default
?"- 22-"+@time+"- @error @serror "? Select
?"- 23-"+@time+"- @error @serror "? Case
$infomode = 0 AND $infomode <> ""
?"- 24-"+@time+"- @error @serror "? ; Tricky BeHavior Of KiX With CmdLine Parms, Isn't it ?
?"- 25-"+@time+"- @error @serror "? ; Nothing To Do, Msgs will Be Hidden
?"- 26-"+@time+"- @error @serror "? Case
$infomode = 1
?"- 27-"+@time+"- @error @serror "? ; Nothing To Do, Msgs Will Be Sent 2 Screen
?"- 28-"+@time+"- @error @serror "? Case
$infomode = 2
?"- 29-"+@time+"- @error @serror "? Gosub InitExecLogFileJobs
?"- 30-"+@time+"- @error @serror "? Case
$infomode = 3
?"- 31-"+@time+"- @error @serror "? Gosub InitExecLogFileJobs
?"- 32-"+@time+"- @error @serror "? Case
$infomode = ""
?"- 33-"+@time+"- @error @serror "? Gosub Check4InfoMode
?"- 34-"+@time+"- @error @serror "? Case
1
?"- 35-"+@time+"- @error @serror "? Gosub Check4InfoMode
?"- 36-"+@time+"- @error @serror "? EndSelect
?"- 37-"+@time+"- @error @serror "?
?"- 38-"+@time+"- @error @serror "? $dummy = Info($scriptname + " ! " + $begindate + " " + $begintime)
?"- 39-"+@time+"- @error @serror "? $dummy = LDel("-")
?"- 40-"+@time+"- @error @serror "?
?"- 41-"+@time+"- @error @serror "? ;***********************************************
?"- 42-"+@time+"- @error @serror "? ; Initialize Varz
?"- 43-"+@time+"- @error @serror "? ;***********************************************
?"- 44-"+@time+"- @error @serror "? $proc2execute = ""
?"- 45-"+@time+"- @error @serror "? $devicename = ""
?"- 46-"+@time+"- @error @serror "? Gosub Check4UserDefParms
?"- 47-"+@time+"- @error @serror "?
?"- 48-"+@time+"- @error @serror "? Gosub Check4AvailableDevice
?"- 49-"+@time+"- @error @serror "?
?"- 50-"+@time+"- @error @serror "? Dim $resourcenamesarray[500]
?"- 51-"+@time+"- @error @serror "? $resourcenamesarrayidx = 0
?"- 52-"+@time+"- @error @serror "? $processedresourcenames = 0
?"- 53-"+@time+"- @error @serror "? $resourcename = ""
?"- 54-"+@time+"- @error @serror "? Gosub CreateResourceNamesTable
?"- 55-"+@time+"- @error @serror "?
?"- 56-"+@time+"- @error @serror "? Gosub Device2ResourceAffectation
?"- 57-"+@time+"- @error @serror "?
?"- 58-"+@time+"- @error @serror "?
?"- 59-"+@time+"- @error @serror "? $dummy = LDel("-")
?"- 60-"+@time+"- @error @serror "?
?"- 61-"+@time+"- @error @serror "? $enddate = @date
?"- 62-"+@time+"- @error @serror "? $endtime = @time
?"- 63-"+@time+"- @error @serror "? $endticks = @ticks
?"- 64-"+@time+"- @error @serror "? $resultscnds = ($endticks - $beginticks) / 1000
?"- 65-"+@time+"- @error @serror "?
?"- 66-"+@time+"- @error @serror "? $dummyhrs = $resultscnds / 3600
?"- 67-"+@time+"- @error @serror "? $hrs = Int($dummyhrs)
?"- 68-"+@time+"- @error @serror "? $scndslesshrs= $resultscnds - ($hrs * 3600)
?"- 69-"+@time+"- @error @serror "? $dummymnts = $scndslesshrs / 60
?"- 70-"+@time+"- @error @serror "? $mnts = Int($dummymnts)
?"- 71-"+@time+"- @error @serror "? $scndsremains= $scndslesshrs - ($mnts * 60)
?"- 72-"+@time+"- @error @serror "? $scnds = Fix($scndsremains)
?"- 73-"+@time+"- @error @serror "? $dummy = Info("Approx. Time Elapsed : " + "$Hrs" + " H " + "$Mnts" + " ' " + "$Scnds" + ' "')
?"- 74-"+@time+"- @error @serror "?
?"- 75-"+@time+"- @error @serror "? $dummy = LDel("-")
?"- 76-"+@time+"- @error @serror "? $dummy = Info($scriptname + " ! " + $enddate + " " + $endtime)
?"- 77-"+@time+"- @error @serror "?
?"- 78-"+@time+"- @error @serror "? If $infomode = 2 OR $infomode = 3
?"- 79-"+@time+"- @error @serror "? Gosub EndExecLogFileJobs
?"- 80-"+@time+"- @error @serror "? Else
?"- 81-"+@time+"- @error @serror "? EndIf
?"- 82-"+@time+"- @error @serror "?
?"- 83-"+@time+"- @error @serror "? Return
?"- 84-"+@time+"- @error @serror "? ; End Of Main Prog.
?"- 85-"+@time+"- @error @serror "?
?"- 86-"+@time+"- @error @serror "? ;****************************************************************************
?"- 87-"+@time+"- @error @serror "? ; :Check4InfoMode
?"- 88-"+@time+"- @error @serror "? ;****************************************************************************
?"- 89-"+@time+"- @error @serror "? ; Looks For User's InfoMode Setting
?"- 90-"+@time+"- @error @serror "? ;***********************************************
?"- 91-"+@time+"- @error @serror "? :check4infomode
?"- 92-"+@time+"- @error @serror "? If Open($parmsfhndle, $parmsfname) = 0
?"- 93-"+@time+"- @error @serror "? $line = ReadLine($parmsfhndle)
?"- 94-"+@time+"- @error @serror "? While @error = 0
?"- 95-"+@time+"- @error @serror "? $line = Ucase(Ltrim(Rtrim($line)))
?"- 96-"+@time+"- @error @serror "? If SubStr($line,1,8) = "INFOMODE"
?"- 97-"+@time+"- @error @serror "? Select
?"- 98-"+@time+"- @error @serror "? Case
$line = "INFOMODE=0"
?"- 99-"+@time+"- @error @serror "? $infomode = 0
?"- 100-"+@time+"- @error @serror "? Case
$line = "INFOMODE=1"
?"- 101-"+@time+"- @error @serror "? $infomode = 1
?"- 102-"+@time+"- @error @serror "? Case
$line = "INFOMODE=2"
?"- 103-"+@time+"- @error @serror "? $infomode = 2
?"- 104-"+@time+"- @error @serror "? Gosub InitExecLogFileJobs
?"- 105-"+@time+"- @error @serror "? Case
$line = "INFOMODE=3"
?"- 106-"+@time+"- @error @serror "? $infomode = 3
?"- 107-"+@time+"- @error @serror "? Gosub InitExecLogFileJobs
?"- 108-"+@time+"- @error @serror "? Case
1
?"- 109-"+@time+"- @error @serror "? $infomode = 1
?"- 110-"+@time+"- @error @serror "? $dummy = Info("Bad Data For InfoMode In " + $parmsfname + ",")
?"- 111-"+@time+"- @error @serror "? $dummy = Info("This Parameter Has Been Forced To 1 (Screen Only)")
?"- 112-"+@time+"- @error @serror "? $dummy = Info("")
?"- 113-"+@time+"- @error @serror "? EndSelect
?"- 114-"+@time+"- @error @serror "? Else
?"- 115-"+@time+"- @error @serror "? EndIf
?"- 116-"+@time+"- @error @serror "? $line = ReadLine($parmsfhndle)
?"- 117-"+@time+"- @error @serror "? Loop
?"- 118-"+@time+"- @error @serror "? If Close($parmsfhndle) = 0
?"- 119-"+@time+"- @error @serror "? Else
?"- 120-"+@time+"- @error @serror "? $contexterror = "Closing Parameters File : " + $parmsfname
?"- 121-"+@time+"- @error @serror "? $noerror = @error
?"- 122-"+@time+"- @error @serror "? $stringerror = @serror
?"- 123-"+@time+"- @error @serror "? $fatal = 0
?"- 124-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 125-"+@time+"- @error @serror "? EndIf
?"- 126-"+@time+"- @error @serror "? Else
?"- 127-"+@time+"- @error @serror "? $contexterror = "Opening Parameters File : " + $parmsfname
?"- 128-"+@time+"- @error @serror "? $noerror = @error
?"- 129-"+@time+"- @error @serror "? $stringerror = @serror
?"- 130-"+@time+"- @error @serror "? $fatal = 1
?"- 131-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 132-"+@time+"- @error @serror "? EndIf
?"- 133-"+@time+"- @error @serror "?
?"- 134-"+@time+"- @error @serror "? Return
?"- 135-"+@time+"- @error @serror "?
?"- 136-"+@time+"- @error @serror "? ;****************************************************************************
?"- 137-"+@time+"- @error @serror "? ; :Check4UserDefParms
?"- 138-"+@time+"- @error @serror "? ;****************************************************************************
?"- 139-"+@time+"- @error @serror "? :check4userdefparms
?"- 140-"+@time+"- @error @serror "? ;***********************************************
?"- 141-"+@time+"- @error @serror "? ; No More Looks For UserName (Operator) To Connect
?"- 142-"+@time+"- @error @serror "? ; No More Looks For PWDUserName To Connect
?"- 143-"+@time+"- @error @serror "? ; Looks For Resource To Assign
?"- 144-"+@time+"- @error @serror "? ; Looks For Script To Execute
?"- 145-"+@time+"- @error @serror "? ;***********************************************
?"- 146-"+@time+"- @error @serror "? If Open($parmsfhndle, $parmsfname) = 0
?"- 147-"+@time+"- @error @serror "? $line = ReadLine($parmsfhndle)
?"- 148-"+@time+"- @error @serror "? While @error = 0
?"- 149-"+@time+"- @error @serror "? $tline = Ucase(Ltrim(Rtrim($line)))
?"- 150-"+@time+"- @error @serror "? Select
?"- 151-"+@time+"- @error @serror "? Case
SubStr($tline,1,10) = "DEVICENAME"
?"- 152-"+@time+"- @error @serror "? $devicename = Rtrim(Right($line,Len($line)-11))
?"- 153-"+@time+"- @error @serror "? Case
SubStr($tline,1,12) = "PROC2EXECUTE"
?"- 154-"+@time+"- @error @serror "? $proc2execute = Rtrim(Right($line,Len($line)-13))
?"- 155-"+@time+"- @error @serror "? Case
1
?"- 156-"+@time+"- @error @serror "? EndSelect
?"- 157-"+@time+"- @error @serror "? $line = ReadLine($parmsfhndle)
?"- 158-"+@time+"- @error @serror "? Loop
?"- 159-"+@time+"- @error @serror "? If Close($parmsfhndle) = 0
?"- 160-"+@time+"- @error @serror "? Else
?"- 161-"+@time+"- @error @serror "? $contexterror = "Closing Parameters File : " + $parmsfname
?"- 162-"+@time+"- @error @serror "? $noerror = @error
?"- 163-"+@time+"- @error @serror "? $stringerror = @serror
?"- 164-"+@time+"- @error @serror "? $fatal = 0
?"- 165-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 166-"+@time+"- @error @serror "? EndIf
?"- 167-"+@time+"- @error @serror "? Else
?"- 168-"+@time+"- @error @serror "? $contexterror = "Opening Parameters File : " + $parmsfname
?"- 169-"+@time+"- @error @serror "? $noerror = @error
?"- 170-"+@time+"- @error @serror "? $stringerror = @serror
?"- 171-"+@time+"- @error @serror "? $fatal = 1
?"- 172-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 173-"+@time+"- @error @serror "? EndIf
?"- 174-"+@time+"- @error @serror "?
?"- 175-"+@time+"- @error @serror "? Return
?"- 176-"+@time+"- @error @serror "?
?"- 177-"+@time+"- @error @serror "?
?"- 178-"+@time+"- @error @serror "? ;****************************************************************************
?"- 179-"+@time+"- @error @serror "? ; :CreateResourceNamesTable
?"- 180-"+@time+"- @error @serror "? ;****************************************************************************
?"- 181-"+@time+"- @error @serror "? :createresourcenamestable
?"- 182-"+@time+"- @error @serror "?
?"- 183-"+@time+"- @error @serror "? If Open($resourcenamesfhndle,$resourcenamesfname) = 0
?"- 184-"+@time+"- @error @serror "? $dummy = Info("Opening File " + $resourcenamesfname)
?"- 185-"+@time+"- @error @serror "? $rejectedlines = 0
?"- 186-"+@time+"- @error @serror "? $resourcename = ReadLine($resourcenamesfhndle)
?"- 187-"+@time+"- @error @serror "? While @error = 0
?"- 188-"+@time+"- @error @serror "? If SubStr($resourcename,1,2) = "\\"
?"- 189-"+@time+"- @error @serror "? $dummy = Info("Adding : " + $resourcename)
?"- 190-"+@time+"- @error @serror "? $resourcenamesarray[$resourcenamesarrayidx] = $resourcename
?"- 191-"+@time+"- @error @serror "? $resourcenamesarrayidx = $resourcenamesarrayidx + 1
?"- 192-"+@time+"- @error @serror "? Else
?"- 193-"+@time+"- @error @serror "? $rejectedlines = $rejectedlines + 1
?"- 194-"+@time+"- @error @serror "? EndIf
?"- 195-"+@time+"- @error @serror "? $resourcename = ReadLine($resourcenamesfhndle)
?"- 196-"+@time+"- @error @serror "? Loop
?"- 197-"+@time+"- @error @serror "? If Close($resourcenamesfhndle) = 0
?"- 198-"+@time+"- @error @serror "? $dummy = Info("Closing File " + $resourcenamesfname)
?"- 199-"+@time+"- @error @serror "? Else
?"- 200-"+@time+"- @error @serror "? $contexterror = "Closing File : " + $resourcenamesfname
?"- 201-"+@time+"- @error @serror "? $noerror = @error
?"- 202-"+@time+"- @error @serror "? $stringerror = @serror
?"- 203-"+@time+"- @error @serror "? $fatal = 1
?"- 204-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 205-"+@time+"- @error @serror "? EndIf
?"- 206-"+@time+"- @error @serror "? Else
?"- 207-"+@time+"- @error @serror "? $contexterror = "Opening File : " + $resourcenamesfname
?"- 208-"+@time+"- @error @serror "? $noerror = @error
?"- 209-"+@time+"- @error @serror "? $stringerror = @serror
?"- 210-"+@time+"- @error @serror "? $fatal = 1
?"- 211-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 212-"+@time+"- @error @serror "? EndIf
?"- 213-"+@time+"- @error @serror "?
?"- 214-"+@time+"- @error @serror "? ; Report
?"- 215-"+@time+"- @error @serror "? $processedresourcenamesnumber = $resourcenamesarrayidx
?"- 216-"+@time+"- @error @serror "? $dummy = Info("Resource Name(s) Added : " + "$ProcessedResourceNamesNumber")
?"- 217-"+@time+"- @error @serror "? $dummy = Info("Rejected Line(s) : " + "$RejectedLines" + " (Did'nt Begin With '\\')")
?"- 218-"+@time+"- @error @serror "? If $processedresourcenamesnumber > 0
?"- 219-"+@time+"- @error @serror "? ; UseLess Values Deletion
?"- 220-"+@time+"- @error @serror "? ReDim PRESERVE $resourcenamesarray[$processedresourcenamesnumber - 1]
?"- 221-"+@time+"- @error @serror "? Else
?"- 222-"+@time+"- @error @serror "? $contexterror = "Resource Name(s) To Manage : " + "$ProcessedResourceNamesNumber"
?"- 223-"+@time+"- @error @serror "? $noerror = "Internal Test"
?"- 224-"+@time+"- @error @serror "? $stringerror = "No Resource Will Be Connected !"
?"- 225-"+@time+"- @error @serror "? $fatal = 1
?"- 226-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 227-"+@time+"- @error @serror "? EndIf
?"- 228-"+@time+"- @error @serror "?
?"- 229-"+@time+"- @error @serror "? Return
?"- 230-"+@time+"- @error @serror "?
?"- 231-"+@time+"- @error @serror "?
?"- 232-"+@time+"- @error @serror "? ;****************************************************************************
?"- 233-"+@time+"- @error @serror "? ; :Device2ResourceAffectation
?"- 234-"+@time+"- @error @serror "? ;****************************************************************************
?"- 235-"+@time+"- @error @serror "? :device2resourceaffectation
?"- 236-"+@time+"- @error @serror "? For Each $processedresourcename IN $resourcenamesarray
?"- 237-"+@time+"- @error @serror "? $dummy = LDel("=")
?"- 238-"+@time+"- @error @serror "? $resourcename = $processedresourcename
?"- 239-"+@time+"- @error @serror "? $dummy = Info("Connecting To " + $resourcename + " ...")
?"- 240-"+@time+"- @error @serror "? Use "$DeviceName" "$ResourceName"
?"- 241-"+@time+"- @error @serror "? If @error = 0
?"- 242-"+@time+"- @error @serror "? $dummy = Info($devicename + " Connected To " + $resourcename)
?"- 243-"+@time+"- @error @serror "? $dummy = LDel("*")
?"- 244-"+@time+"- @error @serror "? $dummy = Dir("$Proc2Execute")
?"- 245-"+@time+"- @error @serror "? If $dummy <> "" AND @error = 0
?"- 246-"+@time+"- @error @serror "? $dummy = Info("Calling External Script : " + $proc2execute)
?"- 247-"+@time+"- @error @serror "? Call "$Proc2Execute"
?"- 248-"+@time+"- @error @serror "? $dummy = Info("Returning from Ext. Script : " + $proc2execute)
?"- 249-"+@time+"- @error @serror "? Else
?"- 250-"+@time+"- @error @serror "? If $dummy = ""
?"- 251-"+@time+"- @error @serror "? $dummy = Info("Calling Internal Procedure : JobToDo")
?"- 252-"+@time+"- @error @serror "? Gosub JobToDo
?"- 253-"+@time+"- @error @serror "? $dummy = Info("Returning From Internal Proc. : JobToDo")
?"- 254-"+@time+"- @error @serror "? Else
?"- 255-"+@time+"- @error @serror "? $contexterror = "Trying to find Script : " + $proc2execute + " Specified in " + $parmsfname
?"- 256-"+@time+"- @error @serror "? $noerror = @error
?"- 257-"+@time+"- @error @serror "? $stringerror = @serror
?"- 258-"+@time+"- @error @serror "? $fatal = 1
?"- 259-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 260-"+@time+"- @error @serror "? EndIf
?"- 261-"+@time+"- @error @serror "? EndIf
?"- 262-"+@time+"- @error @serror "? $dummy = LDel("*")
?"- 263-"+@time+"- @error @serror "?
?"- 264-"+@time+"- @error @serror "? $dummy = Info("DisConnecting From " + $resourcename + " ...")
?"- 265-"+@time+"- @error @serror "? Use "$DeviceName" /Del
?"- 266-"+@time+"- @error @serror "? If @error = 0
?"- 267-"+@time+"- @error @serror "? $dummy = Info($devicename + " Correctly DisConnected From " + $resourcename)
?"- 268-"+@time+"- @error @serror "? Else
?"- 269-"+@time+"- @error @serror "? $contexterror = "DisConnection From " + $resourcename + " For " + $devicename
?"- 270-"+@time+"- @error @serror "? $noerror = @error
?"- 271-"+@time+"- @error @serror "? $stringerror = @serror
?"- 272-"+@time+"- @error @serror "? $fatal = 1
?"- 273-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 274-"+@time+"- @error @serror "? EndIf
?"- 275-"+@time+"- @error @serror "? Else
?"- 276-"+@time+"- @error @serror "? $contexterror = "Connection To " + $resourcename + " For " + $devicename
?"- 277-"+@time+"- @error @serror "? $noerror = @error
?"- 278-"+@time+"- @error @serror "? $stringerror = @serror
?"- 279-"+@time+"- @error @serror "? $fatal = 0
?"- 280-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 281-"+@time+"- @error @serror "? EndIf
?"- 282-"+@time+"- @error @serror "? Next
?"- 283-"+@time+"- @error @serror "?
?"- 284-"+@time+"- @error @serror "? Return
?"- 285-"+@time+"- @error @serror "?
?"- 286-"+@time+"- @error @serror "? ;****************************************************************************
?"- 287-"+@time+"- @error @serror "? ; :Check4AvailableDevice
?"- 288-"+@time+"- @error @serror "? ;****************************************************************************
?"- 289-"+@time+"- @error @serror "? :check4availabledevice
?"- 290-"+@time+"- @error @serror "? $potentialdevicenameslist = "Y:","X:","W:","V:","U:",
?"- 291-"+@time+"- @error @serror "? "T:","S:","R:","Q:","P:","O:",
?"- 292-"+@time+"- @error @serror "? "N:","M:","L:","K:","J:","I:",
?"- 293-"+@time+"- @error @serror "? "H:","G:","F:","E:","D:"
?"- 294-"+@time+"- @error @serror "? $potentialdevicenameslistidx = 0
?"- 295-"+@time+"- @error @serror "? $potentialdevice = ""
?"- 296-"+@time+"- @error @serror "?
?"- 297-"+@time+"- @error @serror "? If $devicename = ""
?"- 298-"+@time+"- @error @serror "? ; No DeviceName found in parameters file
?"- 299-"+@time+"- @error @serror "? $dummy = Info("Scanning For One Potential Device ...")
?"- 300-"+@time+"- @error @serror "? $potentialdevice = $potentialdevicenameslist[$potentialdevicenameslistidx]
?"- 301-"+@time+"- @error @serror "? While $devicename = "" AND $potentialdevicenameslistidx < 21
?"- 302-"+@time+"- @error @serror "? If Dir("$PotentialDevice" + "\*.*") = ""
?"- 303-"+@time+"- @error @serror "? $devicename = $potentialdevice
?"- 304-"+@time+"- @error @serror "? Else
?"- 305-"+@time+"- @error @serror "? ;$Dummy = Info("Device " + $PotentialDevice + " Is Already In Use")
?"- 306-"+@time+"- @error @serror "? $devicename = ""
?"- 307-"+@time+"- @error @serror "? EndIf
?"- 308-"+@time+"- @error @serror "? $potentialdevicenameslistidx = $potentialdevicenameslistidx + 1
?"- 309-"+@time+"- @error @serror "? $potentialdevice = $potentialdevicenameslist[$potentialdevicenameslistidx]
?"- 310-"+@time+"- @error @serror "? Loop
?"- 311-"+@time+"- @error @serror "? Else
?"- 312-"+@time+"- @error @serror "? ; A Value For $DeviceName Has Been Set In ParmsFile
?"- 313-"+@time+"- @error @serror "? ; Checks If Range (D To Y) and Syntax (Letter & Double Dot) are Correct
?"- 314-"+@time+"- @error @serror "? ; This is Performed By Comparing With the values previously declared
?"- 315-"+@time+"- @error @serror "? ; in Array $PotentialDeviceNamesList
?"- 316-"+@time+"- @error @serror "? $dummytemp = Ucase($devicename)
?"- 317-"+@time+"- @error @serror "? $devicename = ""
?"- 318-"+@time+"- @error @serror "? For Each $potentialdevice IN $potentialdevicenameslist
?"- 319-"+@time+"- @error @serror "? If $dummytemp = $potentialdevice
?"- 320-"+@time+"- @error @serror "? $devicename = $dummytemp
?"- 321-"+@time+"- @error @serror "? Else
?"- 322-"+@time+"- @error @serror "? EndIf
?"- 323-"+@time+"- @error @serror "? Next
?"- 324-"+@time+"- @error @serror "?
?"- 325-"+@time+"- @error @serror "? If $devicename = ""
?"- 326-"+@time+"- @error @serror "? ; This declared Device was not in the list of $PotentialDeviceNamesList
?"- 327-"+@time+"- @error @serror "? $contexterror = "Can't Connect The Device " + $dummytemp + " To AnyThing !"
?"- 328-"+@time+"- @error @serror "? $noerror = "No Error Number"
?"- 329-"+@time+"- @error @serror "? $stringerror = "No Error Text"
?"- 330-"+@time+"- @error @serror "? $fatal = 1
?"- 331-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 332-"+@time+"- @error @serror "? Else
?"- 333-"+@time+"- @error @serror "? If Dir("$DeviceName" + "\*.*") = ""
?"- 334-"+@time+"- @error @serror "? ; This declared Device was correctly declared And is'nt already in Use
?"- 335-"+@time+"- @error @serror "? Else
?"- 336-"+@time+"- @error @serror "? $contexterror = "Device " + $devicename + " Is Already In Use"
?"- 337-"+@time+"- @error @serror "? $noerror = "No Error Number"
?"- 338-"+@time+"- @error @serror "? $stringerror = "No Error Text"
?"- 339-"+@time+"- @error @serror "? $fatal = 0
?"- 340-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 341-"+@time+"- @error @serror "? $devicename = ""
?"- 342-"+@time+"- @error @serror "? EndIf
?"- 343-"+@time+"- @error @serror "? EndIf
?"- 344-"+@time+"- @error @serror "? EndIf
?"- 345-"+@time+"- @error @serror "?
?"- 346-"+@time+"- @error @serror "? If $devicename = ""
?"- 347-"+@time+"- @error @serror "? ; Declared DeviceName unavailable or no ScannedDeviceName Available
?"- 348-"+@time+"- @error @serror "? $contexterror = "Unable To Connect A Device"
?"- 349-"+@time+"- @error @serror "? $noerror = "No Error Number"
?"- 350-"+@time+"- @error @serror "? $stringerror = "No Error Text"
?"- 351-"+@time+"- @error @serror "? $fatal = 1
?"- 352-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 353-"+@time+"- @error @serror "? Else
?"- 354-"+@time+"- @error @serror "? $dummy = Info("Using Device " + $devicename)
?"- 355-"+@time+"- @error @serror "? EndIf
?"- 356-"+@time+"- @error @serror "?
?"- 357-"+@time+"- @error @serror "? Return
?"- 358-"+@time+"- @error @serror "?
?"- 359-"+@time+"- @error @serror "? ;****************************************************************************
?"- 360-"+@time+"- @error @serror "? ; :ErrorHandling
?"- 361-"+@time+"- @error @serror "? ;****************************************************************************
?"- 362-"+@time+"- @error @serror "? :errorhandling
?"- 363-"+@time+"- @error @serror "? ;(Needs Actualized Values For $ContextError, $NoError, $StringError, $Fatal)
?"- 364-"+@time+"- @error @serror "?
?"- 365-"+@time+"- @error @serror "? Beep
?"- 366-"+@time+"- @error @serror "? $dummy = LDel("*")
?"- 367-"+@time+"- @error @serror "? $dummy = Info("* FAILED : " + $contexterror)
?"- 368-"+@time+"- @error @serror "? $dummy = Info("* [" + $noerror + "] " + $stringerror)
?"- 369-"+@time+"- @error @serror "? $dummy = LDel("*")
?"- 370-"+@time+"- @error @serror "?
?"- 371-"+@time+"- @error @serror "? If $fatal = 1
?"- 372-"+@time+"- @error @serror "? Beep
?"- 373-"+@time+"- @error @serror "? $dummy = LDel("*")
?"- 374-"+@time+"- @error @serror "? $dummy = Info("* Aborting Script " + $scriptname + " ...")
?"- 375-"+@time+"- @error @serror "? $dummy = LDel("*")
?"- 376-"+@time+"- @error @serror "?
?"- 377-"+@time+"- @error @serror "? Quit
?"- 378-"+@time+"- @error @serror "? Else
?"- 379-"+@time+"- @error @serror "?
?"- 380-"+@time+"- @error @serror "? EndIf
?"- 381-"+@time+"- @error @serror "?
?"- 382-"+@time+"- @error @serror "? Return
?"- 383-"+@time+"- @error @serror "?
?"- 384-"+@time+"- @error @serror "? ;****************************************************************************
?"- 385-"+@time+"- @error @serror "? ; :InitExecLogFileJobs
?"- 386-"+@time+"- @error @serror "? ;****************************************************************************
?"- 387-"+@time+"- @error @serror "? :initexeclogfilejobs
?"- 388-"+@time+"- @error @serror "?
?"- 389-"+@time+"- @error @serror "? If Exist($execlogfname)
?"- 390-"+@time+"- @error @serror "? Del $execlogfname
?"- 391-"+@time+"- @error @serror "? Else
?"- 392-"+@time+"- @error @serror "? EndIf
?"- 393-"+@time+"- @error @serror "? If Open($execlogfhndle, $execlogfname, 5) = 0
?"- 394-"+@time+"- @error @serror "? $dummy = Info("Opening Log File : " + $execlogfname)
?"- 395-"+@time+"- @error @serror "? Else
?"- 396-"+@time+"- @error @serror "? $contexterror = "Opening Log File : " + $execlogfname
?"- 397-"+@time+"- @error @serror "? $noerror = @error
?"- 398-"+@time+"- @error @serror "? $stringerror = @serror
?"- 399-"+@time+"- @error @serror "? $fatal = 0
?"- 400-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 401-"+@time+"- @error @serror "? $infomode = 1
?"- 402-"+@time+"- @error @serror "? $dummy = Info("Due to the preceding error, InfoMode is now forced To 1")
?"- 403-"+@time+"- @error @serror "? EndIf
?"- 404-"+@time+"- @error @serror "?
?"- 405-"+@time+"- @error @serror "? Return
?"- 406-"+@time+"- @error @serror "?
?"- 407-"+@time+"- @error @serror "? ;****************************************************************************
?"- 408-"+@time+"- @error @serror "? ; :EndExecLogFileJobs
?"- 409-"+@time+"- @error @serror "? ;****************************************************************************
?"- 410-"+@time+"- @error @serror "? :endexeclogfilejobs
?"- 411-"+@time+"- @error @serror "?
?"- 412-"+@time+"- @error @serror "? $dummy = Info("Closing Log File : " + $execlogfname)
?"- 413-"+@time+"- @error @serror "? If Close($execlogfhndle) = 0
?"- 414-"+@time+"- @error @serror "? Else
?"- 415-"+@time+"- @error @serror "? $contexterror = "Closing Log File : " + $execlogfname
?"- 416-"+@time+"- @error @serror "? $noerror = @error
?"- 417-"+@time+"- @error @serror "? $stringerror = @serror
?"- 418-"+@time+"- @error @serror "? $fatal = 0
?"- 419-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 420-"+@time+"- @error @serror "? EndIf
?"- 421-"+@time+"- @error @serror "?
?"- 422-"+@time+"- @error @serror "? Return
?"- 423-"+@time+"- @error @serror "?
?"- 424-"+@time+"- @error @serror "? ;***********************************************
?"- 425-"+@time+"- @error @serror "? ; Declare Functions For General Purpose
?"- 426-"+@time+"- @error @serror "? ;***********************************************
?"- 427-"+@time+"- @error @serror "? Function Info($infotext)
?"- 428-"+@time+"- @error @serror "?
?"- 429-"+@time+"- @error @serror "? Select
?"- 430-"+@time+"- @error @serror "? Case
$infomode = 0
?"- 431-"+@time+"- @error @serror "? ; No Report At All
?"- 432-"+@time+"- @error @serror "? Case
$infomode = 1
?"- 433-"+@time+"- @error @serror "? ; Report To Screen Only
?"- 434-"+@time+"- @error @serror "? ? $infotext
?"- 435-"+@time+"- @error @serror "? Case
$infomode = 2
?"- 436-"+@time+"- @error @serror "? ; Report To Log File And Screen
?"- 437-"+@time+"- @error @serror "? ? $infotext
?"- 438-"+@time+"- @error @serror "? $dummy = WriteLine($execlogfhndle, $infotext + Chr(13) + Chr(10))
?"- 439-"+@time+"- @error @serror "? If $dummy = 0
?"- 440-"+@time+"- @error @serror "? Else
?"- 441-"+@time+"- @error @serror "? $contexterror = "Writing in Log File : " + $execlogfname
?"- 442-"+@time+"- @error @serror "? $noerror = @error
?"- 443-"+@time+"- @error @serror "? $stringerror = @serror
?"- 444-"+@time+"- @error @serror "? $fatal = 0
?"- 445-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 446-"+@time+"- @error @serror "? EndIf
?"- 447-"+@time+"- @error @serror "? Case
$infomode = 3
?"- 448-"+@time+"- @error @serror "? ; Report To Log File Only
?"- 449-"+@time+"- @error @serror "? $dummy = WriteLine($execlogfhndle, $infotext + Chr(13) + Chr(10))
?"- 450-"+@time+"- @error @serror "? If $dummy = 0
?"- 451-"+@time+"- @error @serror "? Else
?"- 452-"+@time+"- @error @serror "? $contexterror = "Writing in Log File : " + $execlogfname
?"- 453-"+@time+"- @error @serror "? $noerror = @error
?"- 454-"+@time+"- @error @serror "? $stringerror = @serror
?"- 455-"+@time+"- @error @serror "? $fatal = 0
?"- 456-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 457-"+@time+"- @error @serror "? EndIf
?"- 458-"+@time+"- @error @serror "? Case
1
?"- 459-"+@time+"- @error @serror "? ; Report To ... Who Knows ...
?"- 460-"+@time+"- @error @serror "? EndSelect
?"- 461-"+@time+"- @error @serror "?
?"- 462-"+@time+"- @error @serror "? EndFunction
?"- 463-"+@time+"- @error @serror "?
?"- 464-"+@time+"- @error @serror "? Function LDel($charactertype)
?"- 465-"+@time+"- @error @serror "? Select
?"- 466-"+@time+"- @error @serror "? Case
$charactertype = "-"
?"- 467-"+@time+"- @error @serror "? $dummy = Info("-------------------------------------------------------------------------------")
?"- 468-"+@time+"- @error @serror "? Case
$charactertype = "*"
?"- 469-"+@time+"- @error @serror "? $dummy = Info("*********************************************")
?"- 470-"+@time+"- @error @serror "? Case
$charactertype = "="
?"- 471-"+@time+"- @error @serror "? $dummy = Info("===============================================================================")
?"- 472-"+@time+"- @error @serror "? Case
1
?"- 473-"+@time+"- @error @serror "? EndSelect
?"- 474-"+@time+"- @error @serror "? EndFunction
?"- 475-"+@time+"- @error @serror "?
?"- 476-"+@time+"- @error @serror "?
?"- 477-"+@time+"- @error @serror "? ;****************************************************************************
?"- 478-"+@time+"- @error @serror "? ; :JobToDo
?"- 479-"+@time+"- @error @serror "? ;****************************************************************************
?"- 480-"+@time+"- @error @serror "? :jobtodo
?"- 481-"+@time+"- @error @serror "? ; Tries To Delete Files in Logiciel$.
?"- 482-"+@time+"- @error @serror "? ; Files are loc. in Rapports\Stations\McAfee\.
?"- 483-"+@time+"- @error @serror "? ; Files older than 1 months have 2 be deleted.
?"- 484-"+@time+"- @error @serror "?
?"- 485-"+@time+"- @error @serror "?
?"- 486-"+@time+"- @error @serror "? $fileanddircount = 0
?"- 487-"+@time+"- @error @serror "? $location = ""
?"- 488-"+@time+"- @error @serror "? $path = $devicename + $location
?"- 489-"+@time+"- @error @serror "?
?"- 490-"+@time+"- @error @serror "? $dummy = Dir($path + "\*.")
?"- 491-"+@time+"- @error @serror "? If $dummy <> "" AND @error = 0
?"- 492-"+@time+"- @error @serror "? While @error = 0 AND $dummy <> ""
?"- 493-"+@time+"- @error @serror "? $fileanddircount = $fileanddircount + 1
?"- 494-"+@time+"- @error @serror "? $dummy = Dir()
?"- 495-"+@time+"- @error @serror "? Loop
?"- 496-"+@time+"- @error @serror "? $dummy = Info("File(s) And Dir(s) : " + "$FileAndDirCount" + " found")
?"- 497-"+@time+"- @error @serror "? Else
?"- 498-"+@time+"- @error @serror "? ? @error
?"- 499-"+@time+"- @error @serror "? EndIf
?"- 500-"+@time+"- @error @serror "?
?"- 501-"+@time+"- @error @serror "? Return
?"- 502-"+@time+"- @error @serror "?
?"- 503-"+@time+"- @error @serror "? $location = "\Rapports\Stations\McAfee\"
?"- 504-"+@time+"- @error @serror "? $path = $devicename + $location
?"- 505-"+@time+"- @error @serror "?
?"- 506-"+@time+"- @error @serror "? $ty = Val(@year)
?"- 507-"+@time+"- @error @serror "? $tm = Val(@monthno)
?"- 508-"+@time+"- @error @serror "?
?"- 509-"+@time+"- @error @serror "? If $tm > 1
?"- 510-"+@time+"- @error @serror "? $tm = $tm - 1
?"- 511-"+@time+"- @error @serror "? Else
?"- 512-"+@time+"- @error @serror "? $ty = $ty - 1
?"- 513-"+@time+"- @error @serror "? $tm = (12 + $tm) - 1
?"- 514-"+@time+"- @error @serror "? EndIf
?"- 515-"+@time+"- @error @serror "?
?"- 516-"+@time+"- @error @serror "? If $tm > 9
?"- 517-"+@time+"- @error @serror "? $ramdate = "$Ty" + "/" + "$Tm"
?"- 518-"+@time+"- @error @serror "? Else
?"- 519-"+@time+"- @error @serror "? $ramdate = "$Ty" + "/0" + "$Tm"
?"- 520-"+@time+"- @error @serror "? EndIf
?"- 521-"+@time+"- @error @serror "?
?"- 522-"+@time+"- @error @serror "? $ramdate = $ramdate + "/01 00:00:00"
?"- 523-"+@time+"- @error @serror "? $dummy = Info("Deleting Files < " + $ramdate)
?"- 524-"+@time+"- @error @serror "?
?"- 525-"+@time+"- @error @serror "? $dummyftime = ""
?"- 526-"+@time+"- @error @serror "? $dummyresponse = ""
?"- 527-"+@time+"- @error @serror "? $dummyfsize = 0
?"- 528-"+@time+"- @error @serror "? $totalfilecounter = 0
?"- 529-"+@time+"- @error @serror "? $badfilecounter = 0
?"- 530-"+@time+"- @error @serror "?
?"- 531-"+@time+"- @error @serror "? If Dir($path + "\Nul") = ""
?"- 532-"+@time+"- @error @serror "? $contexterror = "Searching Directory : " + $path
?"- 533-"+@time+"- @error @serror "? $noerror = @error
?"- 534-"+@time+"- @error @serror "? $stringerror = @serror
?"- 535-"+@time+"- @error @serror "? $fatal = 0
?"- 536-"+@time+"- @error @serror "? Gosub ErrorHandling
?"- 537-"+@time+"- @error @serror "? Else
?"- 538-"+@time+"- @error @serror "? $dummyresponse = Dir($path + "\*.*")
?"- 539-"+@time+"- @error @serror "? While $dummyresponse <> ""
?"- 540-"+@time+"- @error @serror "? If $dummyresponse <> '.' AND $dummyresponse <> '..'
?"- 541-"+@time+"- @error @serror "? $dummyftime = GetFileTime($path + $dummyresponse)
?"- 542-"+@time+"- @error @serror "? If $dummyftime < $ramdate
?"- 543-"+@time+"- @error @serror "? Del $path + $dummyresponse
?"- 544-"+@time+"- @error @serror "? $badfilecounter = $badfilecounter + 1
?"- 545-"+@time+"- @error @serror "? Else
?"- 546-"+@time+"- @error @serror "? EndIf
?"- 547-"+@time+"- @error @serror "? $filecounter = $filecounter + 1
?"- 548-"+@time+"- @error @serror "? Else
?"- 549-"+@time+"- @error @serror "? EndIf
?"- 550-"+@time+"- @error @serror "? $dummyresponse = Dir("")
?"- 551-"+@time+"- @error @serror "? Loop
?"- 552-"+@time+"- @error @serror "? $dummy = Info("Scanned : " + "$FileCounter" + " File(s)")
?"- 553-"+@time+"- @error @serror "? $dummy = Info("Deleted : " + "$BadFileCounter" + " File(s)")
?"- 554-"+@time+"- @error @serror "? EndIf
?"- 555-"+@time+"- @error @serror "?
?"- 556-"+@time+"- @error @serror "? Return
?"- end-"+@time+"- @error @serror "?
? "-"
? "-"+Lcase(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.04e script ending."
? "-"
If (InStr("-4.1x-","-"+SubStr(@kix,1,3)+"x-") <> 0)
? "-"+@cpu+" ("+@mhz+" Mhz, memory "+MemorySize()+" MB)"
EndIf
? "-"
;($begin)
;
; tue 18-jun-2002 13:48:19 (kix 4.10 vs 3.04e)
;
;Informative KIXSTRIP: no errors found (input=556 output=556 skip=0).
;
;Informative KIXSTRIP: 47 block_structures found.
;Informative KIXSTRIP: 2 UDF's found.
;Informative KIXSTRIP: 9 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 CALL
;Informative KIXSTRIP: 2 ENDFUNCTION
;Informative KIXSTRIP: 2 FUNCTION
;Informative KIXSTRIP: 30 GOSUB
;Informative KIXSTRIP: 1 QUIT
;Informative KIXSTRIP: 11 RETURN
;Informative KIXSTRIP: 2 USE
;
;($end)
When I run it with the same parms file as previously, here's the debug file obtained :
code:
-tuesday 2002/06/18 13:51:21- kixtart 4.10 Release Candidate 2/3.04e script starting.
-
-curdir: u:\dev\kixutils\_connect
-scriptdir: u:\dev\kixutils\_connect
-scriptname: connect1.kix
-startdir: u:\dev\kixutils\_connect
-
-userid: Restricted/Restricted
-user priv: admin
-version: inwin=1/dos=5.1/productsuite=256/producttype=Windows XP Professional/csd=
-
- start-13:51:21- 0 Opération réussie.
- 1-13:51:21- 0 Opération réussie.
- 2-13:51:21- 0 Opération réussie.
- 3-13:51:21- 0 Opération réussie.
-
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 671 anonymous users online.
|
|
|
