' Incollare tutto il codice seguente in un file e salvarlo con estensione VBS per poterlo poi eseguire.
'Creare un file in disco C chiamato serverlist.txt in cui inserire la lista dei IP da controllare, uno su ogni riga
Option Explicit
Dim fso, oFile, sFileLocation ' variabili aggiunte
Dim i, arrComputer
Dim strComputer, bolPingResultn
Dim sSender, sRecipient
Dim sSubject, sTextBody
Dim sAttachment
Set fso = CreateObject("Scripting.FileSystemObject")
' creare un file in disco C chiamato serverlist.txt in cui inserire la lista dei IP da controllare, uno su ogni riga
sFileLocation = "C:\ServerList.txt"
' Apri il file.
Set oFile = fso.OpenTextFile(sFileLocation, ForReading, False)
' Controllo se vi sono errori
If Err.Number <> 0 Then
WScript.Echo "Error Opening File: " & sFileLocation
End If
' legge intero contenuto del file
Do While oFile.AtEndOfStream <> True
strComputer = oFile.ReadAll
Loop
' Chiude il file
oFile.Close
' Rilascia l'oggetto dalla memoria
Set oFile = Nothing
' Restituisce il contenuto del file se non vuoto
If Trim(strComputer) <> "" Then
' Crea un Array del file di testo
arrComputer = Split(strComputer, vbNewLine)
For i = 0 To UBound(arrComputer)
bolPingResult = Reachable(arrComputer(i))
If bolPingResult = False Then
' mittente e destinatario non devono essere gli stessi altrimenti si rischia l'errore di Relay
sSender = "tuamail@server.it" ' deve essere da dominio diverso rispetto al destinatario altrimenti si verifica errore relay
sRecipient = "destinatorario@gmail.com"
sSubject = "Errore Ping"
sTextBody = "L'indirizzo pingato non risponde, vedasi allegato." & vbNewLine & arrComputer(i)
'sAttachment = "C:\Serverlist.txt"
Call SendMail(sSender, sRecipient, sSubject, sTextBody, sAttachment)
End If
Next
Categorie: Android