' 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