администрирование, JavaScript, WMI

Как скрипт на vba

Код (Text):

1. strComputer = "."
2. Set objWMIService = GetObject(_
3.     "winmgmts:\\" & strComputer & "\root\cimv2")
4. Set colPings = objWMIService.ExecQuery _
5.     ("Select * From Win32_PingStatus where Address = '192.168.1.1'")
6.  
7. For Each objStatus in colPings
8.     If IsNull(objStatus.StatusCode) _
9.         or objStatus.StatusCode<>0 Then
10.         WScript.Echo "Computer did not respond."
11.     Else
12.         Wscript.Echo "Computer responded."
13.     End If
14. Next

Переделать на JavaScript ?
Сделал так:

Код (Text):

1. ObjPing = GetObject("winmgmts:").InstancesOf ("\\.\root\cimv2");
2. colPings = ObjPing.ExecQuery ("Select * From Win32_PingStatus where Address = '192.168.1.1'"); //здесь валится, нету в объекте свойства ExecQuery
3. WScript.Echo(ObjPing.Address);

 

гугл отменили?
хотя бы здесь есть пример http://social.msdn.microsoft.com/Forums/en-US/netfxjscript/thread/659030c8-bcf5-4542-bbc6-eaf9679e090a

 

n0name
Большое спасибо ) не то гуглил...

 

Еще возник вопрос как к примеру установить значение Timeout в Win32_PingStatus.

 

Такой запрос почему то не работает(... а мне всего то нужно изменить таймаут для пинга.
"Select * From Win32_PingStatus where (Address = 'www.mail.ru' Timeout = 100 )"
Туплю нужно ведь AND...
colItems = objWmgtRoot.ExecQuery ("Select * From Win32_PingStatus where (Address = '"+objArgs(i)+"'"+ "AND Timeout =" +t+")");