windows-server-2003/admin/wmi/wbem/scripting/test/vbscript/stress/security.vbs

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