Write error description to database? 1

[meldrape]

Greetings, I've taken a script to collect computer information and modified it for our IT dept needs, but I don't know how to capture errors. I only know how to do on error resume next when looping through ip addresses. What would be neat is if I could capture the error info and move on to the next one. Does anybody have any ideas? Thanks.

' Get Model, Manufacturer, Computername and Memory 
Set CompSysSet = GetObject(strWinMgt).ExecQuery("select * from Win32_ComputerSystem")
For Each CompSys In CompSysSet
strModel = CompSys.Model
ComputerName = CompSys.Name
strVendor = CompSys.Manufacturer
intRAM = Clng(CompSys.TotalPhysicalMemory/1048576 )
Next

I'm looping through a list of ip addresses. some don't really exist and some of the users don't have their machines turned on. Either way, if I comment out the on error statement, it kills my script. Many thanks!!

 

[gjconely]

I normally use something like:


mycode......

' Check for an error
if err.number<>0 then
' there is an error, do something
end if

morecode.....


Greg Conely

http://www.ImageMentor.net

http://www.seo-position-plus.com

 

[HitechUser]

meldrape,

I may not be completly sure how/where this is running, but I believe this will work.

As you stated you will need to use the "On Error Resume next". Then you need to test the error condition. Insert your "output code". Then clear the error object. See the sample script below.

____________

On Error Resume Next
Set Computer = GetObject("winmgmts:")
If Err <> 0 Then
Wscript.Echo Err.Number & " -- " & Err.Description
Err.Clear
End If
'The next line will generate an error "ExcQuery" vs "ExecQuery"
Set ServiceList = Computer.ExcQuery("SELECT * FROM Win32_Service")
If Err <> 0 Then
Wscript.Echo Err.Number & " -- " & Err.Description
Err.Clear
End If

Run this script to see the test.

I hope this helps...

 

[meldrape]

Thanks, Hitech, I'll give that a try and let you know how it worked. Many thanks again!!

 

[meldrape]

Thanks Hitech. Worked great.