Add a column to your script with the tcp/ip address of each server and do a ping perhaps ?
Something like this will get you started on the ping bit itself - do a google for 'vbscript smtp mail' and Im sure you'll find plenty of code for emailing yourself
If Reachable("10.50.138.48") Then
WScript.Echo "Computer is Reachable!"
Else
WScript.Echo "Computer is Unreachable!"
End If
Function Reachable(strComputer)
Dim wmiQuery, objWMIService, objPing, objStatus
wmiQuery = "Select * From Win32_PingStatus Where Address = '" & strComputer & "'"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objPing = objWMIService.ExecQuery(wmiQuery)
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) Or objStatus.Statuscode<>0 Then
Reachable = False
Else
Reachable = True
End If
Next
End Function
ref :
http://www.visualbasicscript.com/Ping-WMI-amp-NonWMI-Versions-Functions-amp-Simple-Connectivity-Monitor-m42535.aspx[
^]