Find YOur Zone Time
'If you want find specific local time zone.
Function Local_TimeZone()
Dim strComputer,oWMIService,oComputer, allColComputer
strComputer = “.”
Set oWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” _
& strComputer & “\root\cimv2″)
Set allColComputer = oWMIService.ExecQuery _
(“Select * from Win32_TimeZone”)
For Each oComputer in allColComputer
msgbox oComputer.Description
Exit For
Next
Set oComputer = Nothing
Set allColComputer = Nothing
Set oWMIService = Nothing
End Function
Advertisement
Like this:
Be the first to like this post.
By
chinnu9999, on
February 5, 2011 at 7:06 am, under Uncategorized. No Comments
or leave a trackback:
Trackback URL.
