; - Glenn - added debugging statements
; I don't indent debug code so I can remember it doesn't belong there!
call "tcLib.kxf"
tcInit(1)
; just disable each PC on network
$Task = "FSPinstall"
$ThisMyArray = "PC1", "PC2, "PC3"
$RC = RedirectOutput('c:\temp\status.log')
For Each $Element In $ThisMyArray
'PC is ' $Element ?
tcGetEvent($Element, $Task) ; load the bad task data
'GetEvent returned: ' @SERROR ?
'Task Array contains:' ?
For $I = 0 to 20
$I ' ' $a_tcTASK[$I] ?
Next
tcDefineTask("SUS=0") ; set it to Suspend (disable = 1, enable = 0)
'DefineTask returned: ' @SERROR ?
'Task Array contains:' ?
For $I = 0 to 20
$I ' ' $a_tcTASK[$I] ?
Next
'Compare the before/after values! Enter to continue: ' Gets $ ?
tcSetEvent($Element, $Task) ; update the task on the target
; Need to capture the errors here, since RedirectOutput will change them!
$EC = @ERROR
$ES = @SERROR
'SetEvent returned: ' $ES ?
$Element ' - ' $EC ' - ' $ES ?
Next
$RC = RedirectOutput('')