VBS script (Ping)

[jnwb]

Hallo mensen,

Ik wil in vbscript een ping tool maken die het volgende doet:

1:- je moet site intypen (inputbox)
2:- het script pingt naar de site
3:- Er wordt een txt aangemaakt met daarin het IP adres van de website.

Een soort whois tool dus....

 

[kloentje2]

Ik weet wel hoe 1 gaat.

InputBox "Iets"

 

[Ellasar]

even in elkaar gerost. Kan vast nog iets netter...
het resultaat moet je zelf nog even naar een txt'tje gooien. Daar had ik geen zin meer in.

'Vraag om input
strComputer = InputBox("Vul een IP adres of computernaam in", "Ping",  "Localhost")
'Voer ping uit en echo dat naar het msgbox
wscript.echo ping(strComputer)

'Functie om te pingen
Function Ping(strHost)
    Dim oPing, oRetStatus, bReturn
    Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address='" & strHost & "'")
 
    For Each oRetStatus In oPing
        If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode <> 0 Then
            'Tging niet goed
	    bReturn = "Status code is " & oRetStatus.StatusCode
        Else
	    'Tging wel goed
            bReturn = "Bytes = " & vbTab & vbTab & oRetStatus.BufferSize & vbcrlf & _
			 "Time (ms) = " & vbTab & oRetStatus.ResponseTime & vbcrlf & _
            		 "TTL (s) = " & vbTab & vbTab & oRetStatus.ResponseTimeToLive
        End If
        Set oRetStatus = Nothing
    Next
    Set oPing = Nothing
 
    Ping = bReturn
End Function

Meer info over het WMI object W32_PingStatus (met nog meer voorbeelden) http://msdn.microsoft.com/en-us/library/windows/desktop/aa394350(v=vs.85).aspx