ローカル WMI 呼び出しから ping ステータスを取得する HTA 内に VBScript があります。また、リモート PC の最後の再起動時刻を取得する関数もあります。
Function GetReboot(strComputer)
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("h", dtmLastBootUpTime, Now)
Wscript.Echo dtmSystemUptime
Next
GetReboot = dtmLastbootupTime
End Function
それは大まかに言えば、明らかに変数を宣言し、別の日付関数などを持っています..
これは、私がローカル管理者であるため、WMI で "localhost" を呼び出すと機能します。ただし、リモート サーバーへの WMI 呼び出しを行う場合、AD 管理者アカウントでローカル マシンにログインしている場合にのみ機能します。
ユーザーにユーザー名とパスワードの入力を求め、それを WMI 呼び出しに渡して、管理者の詳細だけで誰でも機能するようにする方法はありますか?