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

[ROSTAM2]

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

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

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")

strComputer = "196.128.54.59"

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