'VBS校准系统时间 BY BatMan 
Dim objXML, Url, Message 
Message = "恭喜你，本机时间非常准确无需校对！" 
Set objXML = CreateObject("MSXML2.XmlHttp") 
Url = "http://open.baidu.com/special/time/" 
objXML.open "GET", Url, False 
objXML.send() 
Do Until objXML.readyState = 4 : WScript.Sleep 200 : Loop 
Dim objStr, LocalDate 
objStr = objXML.responseText 
LocalDate = Now() 
Set objXML = Nothing 
Dim objREG, regNum 
Set objREG = New RegExp 
objREG.Global = True 
objREG.IgnoreCase = True 
objREG.Pattern = "window.baidu_time((d{13,}))" 
regNum = Int(objREG.Execute(objStr)(0).Submatches(0)) /1000 
Dim OldDate, BJDate, Num, Num1 
OldDate = "1970-01-01 08:00:00" 
BJDate = DateAdd("s", regNum, OldDate) 
Num = DateDiff("s", LocalDate, BJDate) 
If Abs(Num) >=1 Then 
Dim DM, DT, TM, objSHELL 
DM = DateAdd("S", Num, Now()) 
DT = DateValue(DM) 
TM = TimeValue(DM) 
If InStr(Now, "午") Then 
Dim Arr, Arr1, h24 
Arr = Split(TM, " ") 
Arr1 = Split(Arr(1), ":") 
h24 = Arr1(0) 
If Arr(0) = "下午" Then 
h24 = h24 + 12 
Else 
If h24 = 12 Then h24 = 0 
End If 
TM = h24 & ":" & Arr1(1) & ":" & Arr1(2) 
End If 
Set objSHELL = CreateObject("Wscript.Shell") 
objSHELL.Run "cmd /cdate " & DT, False, True 
objSHELL.Run "cmd /ctime " & TM, False, True 
Num1 = Abs(DateDiff("s", Now(), BJDate)) 
Message = "【校准前】" & vbCrLf _ 
& "标准北京时间为：" & vbTab & BJDate & vbCrLf _ 
& "本机系统时间为：" & vbTab & LocalDate & vbCrLf _ 
& "与标准时间相差：" & vbTab & Abs(Num) & "秒" & vbCrLf & vbCrLf _ 
& "【校准后】" & vbCrLf _ 
& "本机系统时间为：" & vbTab & Now() & vbCrLf _ 
& "与标准时间相差：" & vbTab & Num1 & "秒" 
Set objSHELL = Nothing 
End If 
WScript.Echo Message 

VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)
If(Lcase(Right(Wscript.FullName,11))="wscript.exe")ThenCreateObject("WScript.Shell").Run("%Comspec%/C"&Chr(34)&"modeconcols=100&Cscript.exe//NoLogo"&Chr(34)&Wscript.ScriptFullName&Chr(34)&"&&(Echo此

VBS合并一个文件夹里的TXT的实现代码
ConstForReading=1'VBS的这句不能少。dimxint,xinlu,jiuwdimobjfso,objoutputfile,f,fxdimobjTextFile,strtextSetobjFSO=CreateObject("Scripting.FileSystemObject")'创建FSO对象jiuw=inputbox("请输

VBS 硬盘读写统计(分区读写统计)
WinXP，Win7,Win8'原创内容转载、引用代码核心部分请注明出处硬盘读写统计.vbsIf(Lcase(Right(Wscript.FullName,11))="wscript.exe")ThenCreateObject("WScript.Shell").Run("%Comspec%/