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

on error resume next
while true
'***********************************************************
'First pass - create an ISWbemServices object with "default"
'impersonation level
'***********************************************************

set service = GetObject("winmgmts:")

select case service.security_.impersonationlevel

case 1
	ImpLevel = "Anonymous"
case 2 
	ImpLevel = "Identify"
case 3
	ImpLevel = "Impersonate"
case 4
	ImpLevel = "Delegate"

end select

WScript.Echo ""
WScript.Echo ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
WScript.Echo ">>Attempting enumeration of Win32_Process with impersonation set to " _
			& ImpLevel
WScript.Echo ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
WScript.Echo ""

for each Process in service.InstancesOf ("win32_process")
	WScript.Echo Process.ProcessId, Process.name
next

if err <> 0 then 
	WScript.Echo "*** FAILED - as expected ***"
	err.clear
else
	WScript.Echo "*** SUCCEEDED - error ***"
end if

'****************************************************************
'Second pass - create an ISWbemServices object with Impersonation
'"enabled"
'****************************************************************

set service = GetObject("winmgmts:{impersonationLevel=impersonate}")

select case service.security_.impersonationlevel

case 1
	ImpLevel = "Anonymous"
case 2 
	ImpLevel = "Identify"
case 3
	ImpLevel = "Impersonate"
case 4
	ImpLevel = "Delegate"

end select

WScript.Echo ""
WScript.Echo ""
WScript.Echo ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
WScript.Echo ">>Attempting enumeration of Win32_Process with impersonation set to " _
			& ImpLevel 
WScript.Echo ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
WScript.Echo ""



for each Process in service.InstancesOf ("win32_process")
	WScript.Echo Process.ProcessId, Process.name
next

WScript.Echo ""

if err <> 0 then 
	WScript.Echo "*** FAILED - error ***"
else
	WScript.Echo "*** SUCCEEDED - as expected ***"
	err.clear
end if

'****************************************************************
'Third pass - create an ISWbemServices object with Impersonation
'"anonymous"
'****************************************************************

set service = GetObject("winmgmts:{impersonationLevel=anonymous}")

select case service.security_.impersonationlevel

case 1
	ImpLevel = "Anonymous"
case 2 
	ImpLevel = "Identify"
case 3
	ImpLevel = "Impersonate"
case 4
	ImpLevel = "Delegate"

end select

WScript.Echo ""
WScript.Echo ""
WScript.Echo ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
WScript.Echo ">>Attempting enumeration of Win32_Process with impersonation set to " _
			& ImpLevel 
WScript.Echo ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
WScript.Echo ""



for each Process in service.InstancesOf ("win32_process")
	WScript.Echo Process.ProcessId, Process.name
next

WScript.Echo ""

if err <> 0 then 
	WScript.Echo "*** FAILED - as expected ***"
	err.clear
else
	WScript.Echo "*** SUCCEEDED - error ***"
end if

'****************************************************************
'Third pass - create an ISWbemServices object with Impersonation
'"delegate"
'****************************************************************

set service = GetObject("winmgmts:{impersonationLevel=delegate}")

select case service.security_.impersonationlevel

case 1
	ImpLevel = "Anonymous"
case 2 
	ImpLevel = "Identify"
case 3
	ImpLevel = "Impersonate"
case 4
	ImpLevel = "Delegate"

end select

WScript.Echo ""
WScript.Echo ""
WScript.Echo ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
WScript.Echo ">>Attempting enumeration of Win32_Process with impersonation set to " _
			& ImpLevel 
WScript.Echo ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
WScript.Echo ""



for each Process in service.InstancesOf ("win32_process")
	WScript.Echo Process.ProcessId, Process.name
next

WScript.Echo ""

if err <> 0 then 
	WScript.Echo "*** FAILED - as expected ***"
	err.clear
else
	WScript.Echo "*** SUCCEEDED - error ***"
end if

wend