Пинг (ping) из 1С

Function Avaible(IP) Export
   Try
      ServicesSet = GetCOMObject("winmgmts:{impersonationLevel=impersonate}");
      Items = ServicesSet.ExecQuery("SEL ECT StatusCode fr om Win32_PingStatus WHERE address = '" + IP + "' AND Timeout=10");
   Except
      Return Undefined;
   EndTry;
   For Each Item In Items Do
      If Item.StatusCode = 0 Then
         Return True;
      Else
         Return False;
      EndIf;
   EndDo;
EndFunction

 

A. The Windows Management Instrumentation (WMI) classes in Windows XP and later provide a Win32_PingStatus object that you can use to ping a machine. The following script, which you can download at http://www.windowsitpro.com/articles/download/vbpinging.zip uses this object to ping a passed hostname or IP address. Because of space constraints, some lines wrap to two lines.



Option Explicit

Dim strHost

' Check that all arguments required have been passed.
If Wscript.Arguments.Count < 1 Then
    Wscript.Echo "Arguments <Host> required. For example:" & vbCrLf _
    & "cscript vbping.vbs savdaldc01"
    Wscript.Quit(0)
End If

strHost = Wscript.Arguments(0)

if Ping(strHost) = True then
    Wscript.Echo "Host " & strHost & " contacted"
Else
    Wscript.Echo "Host " & strHost & " could not be contacted"
end if

Function Ping(strHost)

    dim objPing, objRetStatus

    set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
      ("sel ect * fr om Win32_PingStatus where address = '" & strHost & "'")

    for each objRetStatus in objPing
        if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then
    Ping = False
            'WScript.Echo "Status code is " & objRetStatus.StatusCode
        else
            Ping = True
            'Wscript.Echo "Bytes = " & vbTab & objRetStatus.BufferSize
            'Wscript.Echo "Time (ms) = " & vbTab & objRetStatus.ResponseTime
            'Wscript.Echo "TTL (s) = " & vbTab & objRetStatus.ResponseTimeToLive
        end if
    next
End Function 

IsNull(objRetStatus.StatusCode) 

  scrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");
  scrptCtrl.language="vbscript";
  scrptCtrl.addcode("
|Function Avaible()
|Set objWMIService = GetObject(""winmgmts:{impersonationLevel=impersonate}"")
|Set objPing = objWMIService.ExecQuery(""sel ect * fr om Win32_PingStatus where address = '"+name+"'"")
|For Each objStatus in objPing
|If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
|	Avaible = 0
|Else
|	Avaible = 1
|End If
|Next
|End function
|");
Рез = ScrptCtrl.Run("Avaible");

// Функция Avaible проверяет "пингуется" ли указанный IP
Function Avaible(IP) Export
	Try
		ServicesSet = GetCOMObject("winmgmts:{impersonationLevel=impersonate}");
		Items = ServicesSet.ExecQuery("SEL ECT StatusCode fr om Win32_PingStatus WHERE address = '" + IP + "' AND Timeout=10");
	Except
		Return Undefined;
	EndTry;
	For Each Item In Items Do
		If Item.StatusCode = 0 Then
			Return True;
		Else
			Return False;
		EndIf;
	EndDo;
EndFunction

ServicesSet = GetCOMObject("winmgmts:{impersonationLevel=impersonate}!\\" + IP + "\root\cimv2");
Items = ServicesSet.ExecQuery("SEL ECT * FROM Win32_NetworkAdapterConfiguration");
	For Each Item In Items Do
		Попытка
			Если СокрЛП(Item.DNSHostName) <> "" Тогда
				// IP
				Для каждого IPAddress Из Item.IPAddress Цикл
					Если СокрЛП(IPAddress) <> "" Тогда
						//......................................
					КонецЕсли;	
				КонецЦикла;
				// Default IP Gateway
				Для каждого DefaultIPGateway Из Item.DefaultIPGateway Цикл
					Если СокрЛП(DefaultIPGateway) <> "" Тогда
						//......................................
					КонецЕсли;	
				КонецЦикла;
			КонецЕсли;
		Исключение
		КонецПопытки;
	EndDo;