[VB]Comando simile al GO TO

martedì 20 ottobre 2009 - 09.54

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Hope Profilo | Junior Member

71 messaggi | Data Invio: mar 20 ott 2009 - 09:54

Salve ragazzi,
Vi chiedo un piccolo aiuto,per uno script che sto tentando di creare.
Questo è una parte del mio codice:

1 Set WshShell = WScript.CreateObject("WScript.Shell")
2 Set WshExec = WshShell.Exec("ping -n 3 -w 2000 " & strTarget) '
3 strPingResults = LCase(WshExec.StdOut.ReadAll)
4 If InStr(strPingResults, "out") Then
5 WScript.Echo strTarget & " did not respond to ping"
6 Else
7 WScript.Echo strTarget & " respond to ping."
8 End If
9 "continuazione del programma

La variabile "strTarget" è data una un file di testo,io vorrei che se il pc risultasse spento (riga 5) lo script torni al successivo pc presente nel file di testo,invece dal punto 5 lo script va direttamente alla riga 9 e continua con l'esecuzione dello script.
Con un comando simile al "go to" io dopo la riga 5 gli direi di tornare all'inizio.
Sapete aiutarmi?
grazie mille

Saluti

angelotv Profilo | Guru

1.010 messaggi | Data Invio: mar 20 ott 2009 - 10:30

Fai un ciclo di lettura del file di testo all'interno del quale metti il tutto! Il GOTO è morto e sepolto.
by Angelo

carloalberto Profilo | Junior Member

166 messaggi | Data Invio: mar 20 ott 2009 - 10:40

Io userei un ciclo do while ... esempio
1 Set WshShell = WScript.CreateObject("WScript.Shell")
do while true
2 Set WshExec = WshShell.Exec("ping -n 3 -w 2000 " & strTarget) '
3 strPingResults = LCase(WshExec.StdOut.ReadAll)
4 If InStr(strPingResults, "out") Then
5 WScript.Echo strTarget & " did not respond to ping"
6 Else
7 WScript.Echo strTarget & " respond to ping."
7a exit do
8 End If
loop
9 "continuazione del programma

ho omesso il controllo che eventualmente devi mettere per uscire dopo enne tentativi

ciao

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !