ник: osmor
если это компьютер вашего домена -если вы имеете необходимые права в этом домене и на целевом компьютере
-если на целевом компьютре не установлено систем защиты вроде софтверного файервола
то можно:
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("ДоменноеИмяКомпьютера")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\" & strComputer & "
ootCIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_UTCTime", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Day: " & objItem.Day
WScript.Echo "DayOfWeek: " & objItem.DayOfWeek
WScript.Echo "Hour: " & objItem.Hour
WScript.Echo "Milliseconds: " & objItem.Milliseconds
WScript.Echo "Minute: " & objItem.Minute
WScript.Echo "Month: " & objItem.Month
WScript.Echo "Quarter: " & objItem.Quarter
WScript.Echo "Second: " & objItem.Second
WScript.Echo "WeekInMonth: " & objItem.WeekInMonth
WScript.Echo "Year: " & objItem.Year
WScript.Echo
Next
Next