Передача учетных данных для вызова WMI в VBScript

У меня есть VBScript внутри HTA, получающий статус ping от локального вызова WMI .. У меня также есть функция для получения времени последней перезагрузки удаленного компьютера ..

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, чтобы он работал как любой, только с данными администратора?