ºßºß¹þºÙ£¡¿ìʹÓÃWMI£º- 'VBSУ׼ϵͳʱ¼ä BY BatMan http://www.bathome.net
- 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, y, M, D, H, MI, S, NewDateTime
- DM = DateAdd("S", Num, Now())
- y = Year(DM)
- M = Right(0 & Month(DM), 2)
- D = Right(0 & Day(DM), 2)
- H = Right(0 & Hour(DM), 2)
- MI = Right(0 & Minute(DM), 2)
- S = Right(0 & Second(DM), 2)
- '½«Ê±¼äת»¯³ÉUTC¸ñʽ
- NewDateTime = y & M & D & H & MI & S & ".000000+480"
- Dim objWMI, objItems, objItem
- Set objWMI = GetObject("winmgmts:{(systemtime)}!\\.\Root\Cimv2")
- Set objItems = objWMI.ExecQuery("Select * From Win32_OperatingSystem")
- For Each objItem In objItems
- objItem.SetDateTime NewDateTime
- Next
- Set objWMI = Nothing
- 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
¸´ÖÆ´úÂë
|