How to modify system time and date with VBS
This article mainly introduces how to use VBS to modify the system time and date, the article is very detailed, has a certain reference value, interested friends must read it!
When I talked to someone about Y2K38 the other day, I thought of a prank: use VBS to change the system time to after 03:14:07 on January 19, 2038, so that some programs that rely on Unix timestamps will go wrong. So how to use VBS to modify the time of the system?
The simplest and least technical way is to call cmd's date and time commands:
The copy code is as follows:
'Author: Demon
'Website: http://demon.tw
Date: 2011-4-27
Dim WshShell
Set WshShell = CreateObject ("wscript.Shell")
WshShell.Run "cmd.exe / c date 2038-01-19", 0
WshShell.Run "cmd.exe / c time 3:14:08", 0
A more technical method is to use the SetDateTime method of the Win32_OperatingSystem class of WMI:
The copy code is as follows:
'Author: Demon
'Website: http://demon.tw
Date: 2011-4-27
DtmNewDateTime = "20380119031408.00000480" 'UTC time
StrComputer = "."
Set objWMIService = GetObject ("winmgmts: {(Systemtime)}\\" & strComputer & "\ root\ cimv2")
Set colOSes = objWMIService.ExecQuery ("Select * From Win32_OperatingSystem")
For Each objOS In colOSes
ObjOS.SetDateTime dtmNewDateTime
Next
Windows 7 requires administrator privileges to change the time when UAC is enabled, which is not fun at all.
The above is all the contents of the article "how to modify the system time and date with VBS". Thank you for reading! Hope to share the content to help you, more related knowledge, welcome to follow the industry information channel!
