mam VBScript wewnątrz HTA uzyskanie statusu ping z połączenia lokalnego WMI .. Mam też funkcję ostatni raz restart zdalnego komputera ..poświadczeń do WMI zadzwonić VBScript
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
To jest z grubsza to, co jest, oczywiście deklaruję zmienne i mam inną funkcję daty itp.
Działa to, jeśli IMI WMI dzwoni "localhost", ponieważ jestem administratorem lokalnym .. jednak podczas wykonywania połączenia WMI do zdalny serwer działa tylko wtedy, gdy jestem zalogowany na moim komputerze lokalnym przy użyciu konta administratora AD.
Czy istnieje sposób, w jaki mogę poprosić użytkownika o podanie nazwy użytkownika i hasła, a następnie przekazać to do wywołania WMI, aby działał tak, jak każdy z danymi administratora?
Hi Kragen, dziękuję za odpowiedź, jesteś w stanie powiedzieć mi, jeśli jego możliwości debugowania to? Zaimplementowałem to w moim kodzie i nie dostaję żadnych błędów .. jednak wciąż nie dostaję odpowiedzi i dlatego odmawia się dostępu. Jeśli uruchomię go, gdy jestem zalogowany jako konto administratora, działa dobrze ... – medoix
@medoix - Jeśli uruchomisz z włączonym debugowaniem skryptów, powinieneś móc umieścić instrukcję 'Stop' z przodu swojej funkcji, aby wymusić punkt przerwania. – Justin