VBscript Outsourcing to KiXtart

If you register the Kixtart.dll component you can invoke the "KiXtart.Application" interface to handle some basic inventory chores. This does not work from PowerShell v2 by the way.

On Error Resume Next
Set objKiX = CreateObject("KiXtart.Application")
If err.Number = 0 Then
    wscript.echo "Processor: " & vbTab & Trim(objKiX.CPU)
    wscript.echo "UserName: " & vbTab &  objKiX.UserId
    wscript.echo "Domain: " & vbTab &  objKiX.LDomain
    wscript.echo "MAC id: " & vbTab &  objKiX.Address
    wscript.echo "Privilege: " & vbTab & objKiX.Priv
    wscript.echo "Password Age: " & vbTab & objKiX.PwAge
    wscript.echo "ProductType: " & vbTab & objKiX.ProductType
    Set objKiX = Nothing
Else
    wscript.echo "kixtart.dll has not been registered"
End If