将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