[VBScript] Commando blijft hangen.

[dmace]

Hoi,

Ik ben totaal geen scripting man, maar ik heb dit script 'bij elkaar geraapt' om remote de userprofielen van pc's te halen met de tool DELPROF.
Het leest een lijst van pc's, pingt de machine om te kijken of hij aanstaat, en moet dan het commando uitvoeren.
Helaas blijft het hangen als ik het commando laat uitvoeren.

code:

Set oFS = CreateObject("Scripting.FileSystemObject") 
Set oTS = oFS.OpenTextFile("c:\test\script\testpca.txt") 
Do Until oTS.AtEndOfStream 
strComputer = oTS.ReadLine 
arrPCs = Split(strNextLine , VbCrLf)

On Error Resume Next

Dim strTarget, strPingResults
strTarget = strComputer 

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("ping -n 3 -w 2000 " & strTarget) 'send 3 echo requests, waiting 2secs each
strPingResults = LCase(WshExec.StdOut.ReadAll)
If InStr(strPingResults, "reply from") Then
  WScript.Echo strTarget & " responded to ping."  
  Call Delpro
Else
  WScript.Echo strTarget & " did not respond to ping."
End If

Loop
oTS.Close 
WScript.Quit 

Function Delpro 
Dim strAnswer
Set wshell = WScript.CreateObject("WScript.Shell") 
Set WshDo = wshell.Exec ("delprof /Q /I /c:\\" & strComputer & "/D:2")
strAnswer = LCase(WshDo.StdOut.ReadAll)
If InStr(strAnswer, "Deleting") Then
    WScript.echo strComputer & " was cleaned."
Else
    WScript.Echo strComputer & " could not be cleaned. Access Denied!!!"
End If
WScript.Sleep(2000)
'Next
End Function

Als ik wshell.Run gebruik werkt het wel, maar krijg ik geen responses terug.
Wat doe ik fout?

[Brahiewahiewa]

Als je die "/I" nou eens weglaat uit de commandline van delprof, krijg je misschien wel een error te zien?

[dmace]

Brahiewahiewa schreef op vrijdag 08 augustus 2008 @ 12:09:
Als je die "/I" nou eens weglaat uit de commandline van delprof, krijg je misschien wel een error te zien?

Oh, die error laat zich alleen zien als er een actie niet uitgevoerd kan worden.
Dat is voor een later stadium. Als hij werkt begint de regel met "Deleting", maar soms staan de rechten niet goed, en krijg je "Access is denied".

Ik heb hem nu wel weggehaald om het effect te zien. Bedankt, want daar keek ik dus wel overheen.

Kennelijk loopt het script wel, maar reageert niet op de melding die terugkomt, zoals bij de ping die ik daarvoor deed.

[NMe]

We houden niet zo van dubbel posten op GoT.