用VBS修改（設(shè)置）系統(tǒng)時間和日期的代碼
更新時間：2013年01月13日 23:42:54 作者：
用 VBS 把系統(tǒng)的時間修改到2038年1月19日3時14分07秒之后，這樣某些依賴于 Unix 時間戳的程序就會出問題。那么怎樣用 VBS 修改系統(tǒng)的時間呢
那天跟別人聊到 Y2K38 問題，于是想到一個惡作劇：用 VBS 把系統(tǒng)的時間修改到2038年1月19日3時14分07秒之后，這樣某些依賴于 Unix 時間戳的程序就會出問題。那么怎樣用 VBS 修改系統(tǒng)的時間呢？
最簡單也是最沒有技術(shù)含量的方法就是調(diào)用 cmd 的 date 和 time 命令：
'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
比較有技術(shù)含量的方法是用 WMI 的 Win32_OperatingSystem 類的 SetDateTime 方法：
'Author: Demon
'Website: http://demon.tw
'Date : 2011/4/27
dtmNewDateTime = "20380119031408.000000+480" 'UTC時間
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 在開啟 UAC 的情況下需要管理員權(quán)限才能修改時間，一點也不好玩。
最簡單也是最沒有技術(shù)含量的方法就是調(diào)用 cmd 的 date 和 time 命令：
復(fù)制代碼 代碼如下:
'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
比較有技術(shù)含量的方法是用 WMI 的 Win32_OperatingSystem 類的 SetDateTime 方法：
復(fù)制代碼 代碼如下:
'Author: Demon
'Website: http://demon.tw
'Date : 2011/4/27
dtmNewDateTime = "20380119031408.000000+480" 'UTC時間
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 在開啟 UAC 的情況下需要管理員權(quán)限才能修改時間，一點也不好玩。
參考鏈接：Hey, Scripting Guy! How Can I Set the Date and Time on a Computer?
來自: http://demon.tw/programming/vbs-modify-system-time.html
相關(guān)文章
基于邏輯運算的簡單權(quán)限系統(tǒng)(原理,設(shè)計,實現(xiàn)) VBS 版
基于邏輯運算的簡單權(quán)限系統(tǒng)(原理,設(shè)計,實現(xiàn)) VBS 版...2007-03-03
VBS教程：正則表達式簡介 -建立正則表達式...2006-11-11
這篇文章主要介紹了VBS怎么獲取指定目錄下的文件列表,需要的朋友可以參考下2019-12-12
一個收集的下載木馬并運行的VBS代碼...2007-03-03
VBS教程：VBScript 語句-Property Set 語句
VBS教程：VBScript 語句-Property Set 語句...2006-11-11
VBS教程：屬性-VolumeName 屬性...2006-11-11
可以修改腳本自身運行次數(shù)的vbs(Self modifying script)
通過腳本修改腳本的內(nèi)容，這里以統(tǒng)計腳本運行次數(shù)為例，想學習vbs的朋友可以參考下2013-08-08
這篇文章主要介紹了列出機器上vbs所有能調(diào)用的組件,需要的朋友可以參考下2008-08-08
使用SAFEARRAY返回的代碼...2007-03-03
Win2003里用命令行刷新硬件列表，以掃描硬件改動的實現(xiàn)代碼
在Windows Server 2003里面實現(xiàn)用命令行刷新硬件列表，以掃描硬件改動，怎么實現(xiàn)2012-05-05