Programma connessione internet.

[Vultus]

Ciao a tutti.

Avendo il modem da un'altra parte mi servirebbe, se esiste, un programma che
indichi appunto lo stato della connessione internet. In pratica i due led quello internet (il mondo) e quello dell'adsl.

Grazie.

[x_Master_x]

A che pro? Vuoi sapere se/quando la connessione è attiva e riesci a navigare? Semplicamente puoi fare il ping verso google.it tramite CMD

[Vultus]

Più che altro mi servirebbe per controllare direttamente sul pc le cadute di linea.
Ad esempio se c'è una disconnessione, questo programma me la segnala.

[x_Master_x]

Prova con questo VBS:

' x_Master_x
Dim Infinite, Result, Return
Infinite = 1

Do While Infinite = 1
Result = PingSite("www.google.it")
If Result = False Then
Return = MsgBox("Nessuna connessione trovata", vbSystemModal, "Errore")
WScript.Quit
End If
WScript.Sleep 5000
Loop

Function PingSite(Website)
Dim intStatus, objHTTP
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Open "GET", "http://" & Website & "/", False
objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MyApp 1.0; Windows NT 5.1)"
On Error Resume Next
objHTTP.Send
intStatus = objHTTP.Status
On Error Goto 0
If intStatus = 200 Then
PingSite = True
Else
PingSite = False
End If
Set objHTTP = Nothing
End Function


Copia-incolla lo script su un Blocco note, salva con estensione .VBS ( non .txt.vbs, l'estensione è diversa ) ed eseguilo.
Ogni 5 secondi ( WScript.Sleep 5000 = millisecondi = 5 secondi, se preferisci puoi aumentare il valore ) verificherà se la connessione è attiva, altrimenti verrà visualizzato un messaggio di errore.

Se hai bisogno di qualcosa di più complesso prova a cercare su un motore di ricerca ( network / bandwidth monitor ) oppure vedi se sul sito della casa madre se c'è un software di gestione del tuo modem

[Vultus]

Non parte.

[x_Master_x]

Che significa "non parte"? Hai qualche errore?
Una volta avviato non deve darti nessun segnale, solo se non trova la connessione attiva ( ergo non riesce a fare il ping verso google.it ) avrai il messaggio, tutto qui.

EDIT: Aggiunta versione breve senza WMI

[Vultus]

Ok!
Credevo si aprisse anche una finestra del prompt.

Allora grazie. Lo proverò.

[Vultus]

Come si fa a interromperlo?

Risolto:
basta riavviare il pc o spegnerlo.

[x_Master_x]

Lo puoi terminare tramite Task Manager alla voce wscript.exe, non é necessario riavviare.

[Vultus]

Grazie. :)