by Anonymous (267 Submissions)
Category: Windows System Services
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sun 4th May 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
WMI sample - retrieves the time zone setting of a local or remote computer. Written in VBScript. Uses Win32_TimeZone WMI class.
VBcoders
' This script lists the time zone setting of a local or remote computer.
' Goto http://www.activexperts.com/activmonitor and click on WMI Samples
' for more samples
Sub ListTimeZoneProperties( strComputer )
Dim objWMIService, colItems
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_TimeZone",,48)
For Each objItem in colItems
Wscript.Echo "Bias: " & objItem.Bias
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "DaylightBias: " & objItem.DaylightBias
Wscript.Echo "DaylightDay: " & objItem.DaylightDay
Wscript.Echo "DaylightDayOfWeek: " & objItem.DaylightDayOfWeek
Wscript.Echo "DaylightHour: " & objItem.DaylightHour
Wscript.Echo "DaylightMillisecond: " & objItem.DaylightMillisecond
Wscript.Echo "DaylightMinute: " & objItem.DaylightMinute
Wscript.Echo "DaylightMonth: " & objItem.DaylightMonth
Wscript.Echo "DaylightName: " & objItem.DaylightName
Wscript.Echo "DaylightSecond: " & objItem.DaylightSecond
Wscript.Echo "DaylightYear: " & objItem.DaylightYear
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "SettingID: " & objItem.SettingID
Wscript.Echo "StandardBias: " & objItem.StandardBias
Wscript.Echo "StandardDay: " & objItem.StandardDay
Wscript.Echo "StandardDayOfWeek: " & objItem.StandardDayOfWeek
Wscript.Echo "StandardHour: " & objItem.StandardHour
Wscript.Echo "StandardMillisecond: " & objItem.StandardMillisecond
Wscript.Echo "StandardMinute: " & objItem.StandardMinute
Wscript.Echo "StandardMonth: " & objItem.StandardMonth
Wscript.Echo "StandardName: " & objItem.StandardName
Wscript.Echo "StandardSecond: " & objItem.StandardSecond
Wscript.Echo "StandardYear: " & objItem.StandardYear
Next
End Sub
' Main
Dim strComputer
Do
strComputer = inputbox( "Please enter a computername or . for local computer", "Input" )
Loop until strComputer <> ""
ListTimeZoneProperties( strComputer )
WScript.Echo( vbCrlf & "For more samples, goto http://www.activexperts.com/activmonitor and click" )
WScript.Echo( "on WMI samples" )
No comments have been posted about WMI sample - retrieves the time zone setting of a local or remote computer. Written in VBScript. Us. Why not be the first to post a comment about WMI sample - retrieves the time zone setting of a local or remote computer. Written in VBScript. Us.
