Forum Discussion
AlexanderM
15 years agoStaff
Hello Madhi,
Here is the VBScript version of the code:
Sub Main
Dim timezone
' Time zones:
' HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones
timezone = "Central Europe Standard Time"
setTimeZone(timezone)
End Sub
Function setTimeZone(timezone)
Dim WshShell, cmdLine, WshShellExec
Set WshShell = Sys.OleObject("WScript.Shell")
cmdLine = "RunDLL32.exe shell32.dll,Control_RunDLL timedate.cpl,,/Z"
Set WshShellExec = WshShell.Exec(cmdLine + timezone)
End Function
Related Content
- 11 years ago
- 5 years ago