Help with retreiving hardware information

[Isaac]

Hello,

I'm trying to get this script working. Bascially, it gets a list of
computers from AD, then loops through them to gather hardware informatino
(which it writes to a text file). It runs fine for the first computer, echos
its name then runs the WMI component.

The problem is that after if echos the second computer name it it gets to
line 43 and dies with an error. I'm really new to VB scripting, so I was
hoping someone here could help be figure out what's wrong. Below is the
script in question. Notice that the AD computers are in an OU and not the
default computer container.


-- Begin Paste

'****** This part gets all objetcts at the given AD location (OU, Container,
etc)

Set objDictionary = CreateObject("S cripting.Dictio nary")
i = 0

Set objOU = GetObject("LDAP ://OU=DOMAINNAMECo mputers, DC=DOMAINNAME,
DC=local")
objOU.Filter = Array("Computer ")

For Each objComputer in objOU
objDictionary.A dd i,objComputer.C N
i = i + 1

Next

For Each objItem in objDictionary
strComputer = objDictionary.I tem(objItem)

Wscript.echo strComputer

'***** Open Text File for Output, named %Computername%. tsv in c:\scripts

Set objFSO = CreateObject("S cripting.FileSy stemObject")
Set objTextFile = objFSO.CreateTe xtFile("c:\scri pts\" & strComputer &
".tsv")

' Enumerates Software
Set objWMIService = GetObject("winm gmts:" _
& "{impersonation Level=impersona te}!\\" & strComputer & "\root\cimv 2")
Set colSoftware = objWMIService.E xecQuery _
("SELECT * FROM Win32_Product")
objTextFile.Wri teLine "Caption" & vbtab & _
"Descriptio n" & vbtab & "Identifyin g Number" & vbtab & _
"Install Date" & vbtab & "Install Location" & vbtab & _
"Install State" & vbtab & "Name" & vbtab & _
"Package Cache" & vbtab & "SKU Number" & vbtab & "Vendor" & vbtab _
& "Version"
For Each objSoftware in colSoftware
objTextFile.Wri teLine objSoftware.Cap tion & vbtab & _
objSoftware.Des cription & vbtab & _
objSoftware.Ide ntifyingNumber & vbtab & _
objSoftware.Ins tallDate & vbtab & _
objSoftware.Ins tallLocation & vbtab & _
objSoftware.Ins tallState & vbtab & _
objSoftware.Nam e & vbtab & _
objSoftware.Pac kageCache & vbtab & _
objSoftware.SKU Number & vbtab & _
objSoftware.Ven dor & vbtab & _
objSoftware.Ver sion

Next

Next

objTextFile.Clo se

------
End Paste

Any help is most appreciated!

Thanks!

[Isaac]

Sorry wrong group.
"Isaac" <pi********@NG. com> wrote in message
news:eH******** ******@TK2MSFTN GP12.phx.gbl...

Hello,

I'm trying to get this script working. Bascially, it gets a list of
computers from AD, then loops through them to gather hardware informatino
(which it writes to a text file). It runs fine for the first computer, echos its name then runs the WMI component.

The problem is that after if echos the second computer name it it gets to
line 43 and dies with an error. I'm really new to VB scripting, so I was
hoping someone here could help be figure out what's wrong. Below is the
script in question. Notice that the AD computers are in an OU and not the
default computer container.


-- Begin Paste

'****** This part gets all objetcts at the given AD location (OU, Container, etc)

Set objDictionary = CreateObject("S cripting.Dictio nary")
i = 0

Set objOU = GetObject("LDAP ://OU=DOMAINNAMECo mputers, DC=DOMAINNAME,
DC=local")
objOU.Filter = Array("Computer ")

For Each objComputer in objOU
objDictionary.A dd i,objComputer.C N
i = i + 1

Next

For Each objItem in objDictionary
strComputer = objDictionary.I tem(objItem)

Wscript.echo strComputer

'***** Open Text File for Output, named %Computername%. tsv in c:\scripts

Set objFSO = CreateObject("S cripting.FileSy stemObject")
Set objTextFile = objFSO.CreateTe xtFile("c:\scri pts\" & strComputer &
".tsv")

' Enumerates Software
Set objWMIService = GetObject("winm gmts:" _
& "{impersonation Level=impersona te}!\\" & strComputer & "\root\cimv 2")
Set colSoftware = objWMIService.E xecQuery _
("SELECT * FROM Win32_Product")
objTextFile.Wri teLine "Caption" & vbtab & _
"Descriptio n" & vbtab & "Identifyin g Number" & vbtab & _
"Install Date" & vbtab & "Install Location" & vbtab & _
"Install State" & vbtab & "Name" & vbtab & _
"Package Cache" & vbtab & "SKU Number" & vbtab & "Vendor" & vbtab _
& "Version"
For Each objSoftware in colSoftware
objTextFile.Wri teLine objSoftware.Cap tion & vbtab & _
objSoftware.Des cription & vbtab & _
objSoftware.Ide ntifyingNumber & vbtab & _
objSoftware.Ins tallDate & vbtab & _
objSoftware.Ins tallLocation & vbtab & _
objSoftware.Ins tallState & vbtab & _
objSoftware.Nam e & vbtab & _
objSoftware.Pac kageCache & vbtab & _
objSoftware.SKU Number & vbtab & _
objSoftware.Ven dor & vbtab & _
objSoftware.Ver sion

Next

Next

objTextFile.Clo se

------
End Paste

Any help is most appreciated!

Thanks!