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

براي همگام سازي 1 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