مبتدی: بــــــــــــــــــــدســ ـت آوردن ساعت كامپيور متصل بـــه شبكه

براي همگام سازي شبكه Lan اگ نياز ب يك زمان دقيق باش ي اسكريپت هست ولي براي آماده سازي شبكه براي دسترسي لازمه

حالا ي سيستم ويندوز XP SP3 و ي سيستم ويندوز 10 ممكنه مشكل از مشابه نبودن ويندوزها باش ك اين اسكريپت خطا مي ده ؟؟

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
strComputer = "Windowz10"
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=Impersonate," _
 & "authenticationLevel=Pkt}!" _
 & strComputer & "rootcimv2")
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