You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
751 B
31 lines
751 B
on error resume next
|
|
while true
|
|
Set Locator = CreateObject("WbemScripting.SWbemLocator")
|
|
|
|
WScript.Echo "Remote Case"
|
|
WScript.Echo "***********"
|
|
WScript.Echo ""
|
|
|
|
Set Service = Locator.ConnectServer ("ludlow","root\default")
|
|
|
|
if err <> 0 then
|
|
WScript.Echo "Error:-", Err.Description, Err.Number, Err.Source
|
|
end if
|
|
|
|
WScript.Echo Service.Security_.AuthenticationLevel
|
|
WScript.Echo Service.Security_.ImpersonationLevel
|
|
|
|
WScript.Echo "Local Case"
|
|
WScript.Echo "**********"
|
|
WScript.Echo ""
|
|
|
|
Set Service = Locator.ConnectServer
|
|
|
|
if err <> 0 then
|
|
WScript.Echo "Error:-", Err.Description, Err.Number, Err.Source
|
|
end if
|
|
|
|
WScript.Echo Service.Security_.AuthenticationLevel
|
|
WScript.Echo Service.Security_.ImpersonationLevel
|
|
|
|
wend
|