Help! I need assistance with an administrative VBscript.

[elmorro]

I have written a script that iterates through all the computers in my domain and returns their processor information.
I do this using a FOR LOOP and the computers IP address.
For example:


Dim strComputer, intX
FOR intX = 1 to 256
strComputer = "10.170.80." & intX
set wmiLocator = CreateObject "WbemScripting.SWbemLocator")
set objWMIService = wmiLocator.ConnectServer strcomputer,,AdminID,password)

MsgBox ProcessorID
NEXT


This works fine most of the time except for when it gets to an IP address that is not used, then the script displays an error and exits the script. I want to be able to iterate through all 256 possible IP address, but I also want the script to determine if the IP address belongs to a computer and if it doesn’t to iterate to the next possible address and not just exit the script.

How can I do this?

Thanks in advance,
elmorro

 

[tsuji]

[tt]
Dim strComputer, intX
set wmiLocator = CreateObject("WbemScripting.SWbemLocator")
FOR intX = 1 to 256
strComputer = "10.170.80." & intX
on error resume next
set objWMIService = wmiLocator.ConnectServer(strcomputer,,AdminID,password)
if err.number=0 then
MsgBox ProcessorID
else
err.clear
end if
on error goto 0
NEXT
[/tt]

 

[elmorro]

Thanks tsuji. I will try your suggestion and post my results.

elmorro

 

[elmorro]

tsuji,
I tried your suggestion and it did stop the script from crashing, but it did not finish looping through all 256 possible IP addresses.

Is there a way to get the script to continue looping even after encountering an error? For example, if the script generates an error because it does not recognize 10.170.80.10 as an existing IP address I want it to then move on to 10.170.80.11 and so on. How can I accomplish this?

Thanks in advance,
elmorro

 

[tsuji]

It will loop. Only you have to make sure the function ProcessID return a string in case it gets connected. msgbox null will be a runtime error out of the control of the above.