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.
28 lines
731 B
28 lines
731 B
on error resume next
|
|
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
|