脚本要查看自Windows 10上重新启动以来的天数

Question

在Windows 10设备上重新启动以来，VB脚本以下是为了获取自上次重新启动以来的天数。目的是将脚本作为计划任务运行，如果天数小于13，则它将退出0，而无需采取任何措施。如果天数高于13，则退出1。该脚本在许多设备上工作正常。但是在某些设备上，它显示了天数的负值。克服问题的任何建议。

带有

问题

    ON ERROR RESUME NEXT

'Set Variables
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objfso = CreateObject("Scripting.FileSystemObject")
Set wshell = CreateObject("WScript.Shell")


strComputer = "."
str_folder = "C:\Temp\LogFolder"
str_logfile = str_folder & "\Logfile.log"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOS in colOperatingSystems
    dtmBootup = objOS.LastBootUpTime
    dtmLastBootupTime = WMIDateStringToDate(dtmBootup)
    dtmSystemUptime = DateDiff("n", dtmLastBootUpTime, Now)
    numUptDays = (dtmSystemUptime \ 60 ) \ 24
Next

Function WMIDateStringToDate(dtmBootup)
    WMIDateStringToDate = CDate(Mid(dtmBootup, 5, 2) & "/" & _
        Mid(dtmBootup, 7, 2) & "/" & Left(dtmBootup, 4) _
            & " " & Mid (dtmBootup, 9, 2) & ":" & _
                Mid(dtmBootup, 11, 2) & ":" & Mid(dtmBootup,13, 2))
End Function

If numUptDays > 13 Then
'Create Folder
If not objfso.FolderExists(str_folder) Then 
    objfso.CreateFolder str_folder
End If

'Create Log File
If not objfso.FileExists(str_logfile) Then 
    Set objFile = objFSO.CreateTextFile(str_logfile)
    objFile.Close
End If

'Update Log File - Rebooting
str_text = "Restart Required"
UpdateLog(Now & " -- " & str_text)
'quit and set exit code
wscript.quit(1)

Else

'Create Folder
If not objfso.FolderExists(str_folder) Then 
    objfso.CreateFolder str_folder
End If


'Create Log File
If not objfso.FileExists(str_logfile) Then 
    Set objFile = objFSO.CreateTextFile(str_logfile)
    objFile.Close
End If


'Update Log File - Reboot not Required
str_text = " days since last reboot. No reboot required."
UpdateLog(Now & " -- " & numUptDays & str_text)
'quit and set exit code
wscript.quit(0)
End If

'Function to Update LogFile
 Function UpdateLog(str_text)
    Set objFile = objfso.OpenTextFile(str_logfile, ForAppending, TristateFalse)
    objFile.Write str_text & vbcrlf
    objFile.Close
 End Function

Answer 1

由于日期格式差异，该脚本无法在某些设备上使用。该脚本使用MM/DD/YYYY，但从本地计算机继承其语言环境设置。如果本地计算机使用DD/mm/yyyy格式，则脚本将返回不正确的结果。

为了确保脚本运行相同，无论机器的语言环境如何，脚本都必须具有明确的设置。最好是在脚本顶部附近的某个地方设置。在这种情况下，需要添加的行是：

Setlocale("en-us")