19-06-2007, 23:03
|
|
מנהל פורום מערכות הפעלה - הרובע המייקרוסופטי.
|
|
חבר מתאריך: 07.10.04
הודעות: 13,777
|
|
...
ניתן לבצע זאת בקלות רבה אפילו יותר באמצעות WMI
קוד:
'================================================= =========================
' The following function will test if a machine is reachable via a ping
' using WMI and the Win32_PingStatus Class
'================================================= =========================
If Reachable("10.50.138.48") Then
WScript.Echo "Computer is Reachable!"
Else
WScript.Echo "Computer is Unreachable!"
End If
Function Reachable(strComputer)
' *** On Error Resume Next
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 'if computer is unreacable, return false
*** Else
*** *** Reachable = True 'if computer is reachable, return true
*** End If
Next
End Function
http://www.visualbasicscript.com/m_42535/tm.htm
_____________________________________
|