We recently updated our
Terms and Conditions for TechRepublic Premium.
By clicking continue, you agree to these updated terms.
Welcome back!
Invalid email/username and password combination supplied.
Reset password
An email has been sent to you with instructions on how to reset your password.
Welcome to TechRepublic!
Username must be unique. Password must be a minimum of 6 characters and have any 3 of the 4 items: a number (0 through 9), a special character (such as !, $, #, %), an uppercase character (A through Z) or a lowercase (a through z) character (no spaces).
A vbscript will do it
————–
Option Explicit
Dim objShell, strSubnet, i
Set objShell = CreateObject(“WScript.Shell”)
strSubnet = “10.130.32.” ‘Obviously set this to yours! And note the trailing stop
For i = 1 to 255
If IsUp(strSubnet & i) Then
wscript.echo strSubnet & i & ” is up”
End If
Next
wscript.quit(0)
‘ ———————————
Function IsUp(sIPAddress)
Dim stdOut, objScriptExec, strPingResults
Set StdOut = WScript.StdOut
On Error Resume Next
Set objScriptExec = objShell.Exec(“ping -n 2 -w 500 ” & sIPAddress)
strPingResults = LCase(objScriptExec.StdOut.ReadAll)
Set stdOut = Nothing
set objScriptExec = Nothing
IsUp = False
If InStr(strPingResults, “reply from”) Then IsUp = True
End Function
—————
Save it as, say, scansubnet.vbs and then run cscript scansubnet.vbs in a CMD box.