將dd monthname yyyy轉換爲dd-mm-yy並檢查當前系統日期

Question

如果防病毒未更新超過5天，我想鎖定或重新啓動/關閉Windows系統。

因此，我決定從AV應用程序獲取最新更新的數據並將其重定向到文本文檔。但日誌中顯示的最後更新日期爲"dd monthname yyyy"。

我想將此日期與當前系統日期匹配。我需要在系統日期前5天驗證上次更新的日期。如果AV未更新5天或更多天，我想鎖定或重新啓動系統。我想通過使用vbsrcipt來實現這一點，這樣我就可以在組策略中進行部署。

這是我從Mcafee AV下面的樣本輸出日誌文件。

CommonShell Command Line Scanner Lite (VSCORE.15.6.0.1551) 

Engine Version  : 5900.7806 
Engine Load Time : 5312 milliseconds 
AV  DAT Version : 8673.0000 668571 detections Built 03 October 2017 

Extra DAT   :     0 detections 

請幫助使用vbscript代碼來完成相同的操作。

Answer 1

與setLocale的一點點幫助，CDATE（）懂英語MonthNames中：

Option Explicit 

SetLocale "en-us" ' now it understands "October", but won't do m/d/y 

Dim d : d = Date() 
Dim s 
For Each s In Split("03 October 2017*01 October 2017*29 September 2017", "*") 
    Dim di : di = CDate(s) 
    Dim dd : dd = Datediff("d", d, di) 
    WScript.Echo d, di, dd, CStr(dd < -4) 
Next 

（德國）輸出：

cscript 46570030.vbs 
04.10.2017 03.10.2017 -1 Falsch 
04.10.2017 01.10.2017 -3 Falsch 
04.10.2017 29.09.2017 -5 Wahr