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

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

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

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
strComputer = "196.128.54.59"
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