ICEFLOWER2 Ответов: 0

Как занять время другого ПК по локальной сети

Как я могу взять дату и время других компьютеров по локальной сети??!

Почему этот скрипт не работает прямо в моей сети?

Что я уже пробовал:

<pre><pre lang="vb">
<pre>Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
strComputer = "DESKTOP-2ACDFQ"
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=Impersonate," _
    & "authenticationLevel=Pkt}!\\" _
    & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOS in colOperatingSystems
    dtmConvertedDate.Value = objOS.LastBootUpTime
    dtmLastBootUpTime = dtmConvertedDate.GetVarDate
    dtmSystemUptime =  Now
Wscript.Echo dtmSystemUptime 
Next

David_Wimbley

Вы не указали, какую ошибку получаете, поэтому, к сожалению, только вы знаете, почему скрипт не будет работать в вашей сети.

Вероятно, это связано с проблемой брандмауэра, учетных данных или разрешений.

0 Ответов