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

'***************************************************************************
'This script tests the manipulation of context values, in the case that the
'context value is an array type
'***************************************************************************
On Error Resume Next
while true
Set Locator = CreateObject("WbemScripting.SWbemLocator")

Set Service = Locator.ConnectServer()

if Err <> 0 Then
	WScript.Echo Err.Description
	Err.Clear
End if

wend