Тема: VBScript: определение часового пояса и летнего времени с помощью WMI
Dim objWMI, objCollection, objItem
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set objCollection = objWMI.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objItem In objCollection
If objItem.DaylightInEffect Then
WScript.Echo "Смещение относительно Гринвича (час.): " & objItem.CurrentTimeZone \ 60 & _
vbNewLine & "Режим ""Автоматический переход на летнее время и обратно"" включен."
Else
WScript.Echo "Смещение относительно Гринвича (час.): " & objItem.CurrentTimeZone \ 60 & _
vbNewLine & "Режим ""Автоматический переход на летнее время и обратно"" отключен."
End If
Next
Set objCollection = Nothing
Set objWMI = Nothing
Автор примера - Dmitrii.
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.