PC info

[iceberg]

Can someone please help me out here....why doesn't my script work?

Thanks.

$Serverpath = (@DesktopDir)
$AuditFile = ($Serverpath & "\" & @ComputerName & ".TXT")
$strComputer = "."
$SN = ""

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem", 48)
$colItems = $objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", 48)

For $objItem in $colItems
    $SN = $objItem.IdentifyingNumber
    FileWrite($AuditFile, "ComputerName: " & @ComputerName)
    FileWrite($AuditFile, "Brand: " & $objItem.Manufacturer)
    FileWrite($AuditFile, "Model: " & $objItem.Model)
    FileWrite($AuditFile, "SN: " & $SN)
Next

MsgBox(0, "End", "Done")

[joell]

Can someone please help me out here....why doesn't my script work?

Thanks.

$Serverpath = (@DesktopDir)
$AuditFile = ($Serverpath & "\" & @ComputerName & ".TXT")
$strComputer = "."
$SN = ""

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem", 48)
$colItems = $objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", 48)

For $objItem in $colItems
    $SN = $objItem.IdentifyingNumber
    FileWrite($AuditFile, "ComputerName: " & @ComputerName)
    FileWrite($AuditFile, "Brand: " & $objItem.Manufacturer)
    FileWrite($AuditFile, "Model: " & $objItem.Model)
    FileWrite($AuditFile, "SN: " & $SN)
Next

MsgBox(0, "End", "Done")

Hi,

Better try this

Local $objItem, $colSystem, $colProduct, $bitOr = BitOR(0x10,0x20)
$Serverpath = (@DesktopDir)
$AuditFile = FileOpen("c:\temp\" & @ComputerName & ".TXT",2); erase previous file

If $AuditFile Then
    $strComputer = @Computername
    $SN = ""

    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
    $colSystem = $objWMIService.ExecQuery("Select Name, Manufacturer, Model from Win32_ComputerSystem WHERE Name='" & $strComputer & "'", "WQL", $bitOr)

    For $objItem in $colSystem
        FileWrite($AuditFile, "ComputerName: " & @ComputerName & @CRLF)
        FileWrite($AuditFile, "Brand: " & $objItem.Manufacturer & @CRLF)
        FileWrite($AuditFile, "Model: " & $objItem.Model & @CRLF)
    Next

        $colProduct = $objWMIService.ExecQuery("Select Caption, Name, IdentifyingNumber from Win32_ComputerSystemProduct" , "WQL", $bitOr)
    For $objItem in $colProduct
        FileWrite($AuditFile, "SN: " & $objItem.IdentifyingNumber)
    Next

    MsgBox(0, "End", "Done")
Else
    MsgBox(0, "Error", "Unable to create/open file")
    
EndIf

WHERE Name = in first query is optional, but in case you would try it on remote computers...

Joe

[iceberg]

thanks joell!

works great....just what I wanted.