WMI中的DateTime数据类型保存的时间格式是UTC,与VBS中的时间类型不同。
有两种方法可以转换,一种是自己写个函数解析:
Function WMIDateStringToDate(DateTime) WMIDateStringToDate = _ CDate(Mid(DateTime, 5, 2) &_ "/" &_ Mid(DateTime, 7, 2) &_ "/" &_ Left(DateTime, 4) &_ " " &_ Mid (DateTime, 9, 2) &_ ":" &_ Mid(DateTime, 11, 2) &_ ":" &_ Mid(DateTime, 13, 2)) End Function
另一种是使用SWbemDateTime对象
Function WMIDateStringToDate(DateTime) Set WbemDateTime = _ CreateObject("WbemScripting.SWbemDateTime") WbemDateTime.Value = DateTime WMIDateStringToDate = WbemDateTime.GetVarDate() End Function