VBS显示当前标准时间

VBS显示当前标准时间，例如：执行下面的代码则显示：2013-05-11 19:10:11

Option Explicit Dim blnDate, blnTimeDim dtmDateDim intDay, intFormat, intHour, intMin, intMonth, intSec, intUTC, intValid, intYearDim strISO With WScript.Arguments" Check command line argumentsIf .Unnamed.Count = 0 Then dtmDate = NowIf .Unnamed.Count > 0 Then dtmDate = .Unnamed（0）If .Unnamed.Count > 1 Then dtmDate = dtmDate & " " & .Unnamed（1）If .Unnamed.Count > 2 Then dtmDate = dtmDate & " " & .Unnamed（2）If .Unnamed.Count > 3 Then SyntaxOn Error Resume NextdtmDate = CDate（ dtmDate ）If Err ThenOn Error Goto 0SyntaxEnd IfOn Error Goto 0If Not IsDate（ dtmDate ） Then SyntaxintValid = 0blnDate = TrueblnTime = TrueIf .Named.Exists（ "D" ） ThenblnDate = TrueblnTime = FalseintValid = intValid + 1End IfIf .Named.Exists（ "T" ） ThenblnDate = FalseblnTime = TrueintValid = intValid + 1End IfIf intValid <> .Named.Count Then SyntaxIf intValid > 1 Then SyntaxEnd With " Format the output stringintYear = DatePartLZ（ "yyyy", dtmDate ）intMonth = DatePartLZ（ "m", dtmDate ）intDay= DatePartLZ（ "d", dtmDate ）intHour = DatePartLZ（ "h", dtmDate ）intMin= DatePartLZ（ "n", dtmDate ）intSec= DatePartLZ（ "s", dtmDate ）If blnDate Then strISO = intYear & "-" & intMonth & "-" & intDayIf blnTime Then strISO = strISO & " " & intHour & ":" & intMin & ":" & intSec" Display the resultWScript.Echo Trim（ strISO ）Function DatePartLZ（ myInterval, myDate ）" Add a leading zero to the DatePart（） if necessaryDim strDatePartstrDatePart = DatePart（ myInterval, myDate ）If Len（ strDatePart ） < 2 Then strDatePart = "0" & strDatePartDatePartLZ = strDatePartEnd FunctionSub SyntaxWScript.Echo vbcrlf _& "Date2ISO.vbs, Version 1.02" _& vbCrLf _& "Convert any date/time to ISO date/time" _& vbCrLf & vbCrLf _& "Usage: CSCRIPT.EXE //NoLogo Date2ISO.vbs date [ time ] [ /D | /T ]" _& vbCrLf & vbCrLf _& "Where: ""date""is the date to convert （default: current date/time）" _& vbCrLf _& """time""is the optional time to convert" _& vbCrLf _& "/Dreturn date only （default: both date and time）" _& vbCrLf _& "/Treturn time only （/D and /T are mutually exclusive）" _& vbCrLf & vbCrLf _& "Note:If the specified date is ambiguous, the current user"s date" _& vbCrLf _& "and time format is assumed." _& vbCrLf & vbCrLf _& "Written by Rob van der Woude" _& vbCrLf _& "http://www.robvanderwoude.com"WScript.Quit 1End Sub

附上一段VBS校对系统时间的代码给大家参考下

"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能够有所帮助。