1
2
3
4
5
6
7
8
9
10
11
| Dim daytime
daytime = formatdatetime(now(), 2)
wscript.echo "Now is: " & daytime
wscript.echo "Change system data to 2010/12/18..."
Set os =WScript.CreateObject("WScript.Shell")
os.run "cmd /c date 2010/12/18", 0, True
wscript.sleep 3000
wscript.echo "Call some.exe"
os.run ".\some.exe", 1, True
wscript.echo "Restore system data to " & daytime
os.run "cmd /c date " & daytime, 0, True
|