Text output format

> This is more of a VBScript question than WMI. You should store the WMI
> values in variables, so you can use them later in your script. Also, you
> should declare variables with "Dim" and always use "Option Explicit" as the
> first line in your script.
>
> Watch out for line wraps:
>
> Option Explicit
> Dim strComputer, objWMIService, colItems, objItem
> Dim ComputerName, ComputerModel, ComputerCaption, OsCaption
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
>
> Set colItems = objWMIService.ExecQuery("Select * from
> Win32_ComputerSystem",,48)
> For Each objItem in colItems
> ComputerName = objItem.Name
> ComputerModel = objItem.Model
> ComputerCaption = objItem.Caption
> Next
>
> Set colItems = objWMIService.ExecQuery("Select * from
> Win32_OperatingSystem",,48)
> For Each objItem in colItems
> OsCaption = objItem.Caption
> Next
>
> objFile.WriteLine ComputerName & "," & ComputerModel & "," & ComputerCaption
> & "," & OsCaption
>
>
>
> "Rick" <drummer10980@gmail.com> wrote in message
> news:1152898662.699858.191790@75g2000cwc.googlegro ups.com...

> > I'm using the following to ouput properties from the
> > Win32_ComputerSystem class. I want to include properties from the
> > Win32_OperatingSystem class on the same line as the
> > Win32_ComputerSystem class. I'm not sure how I would do this.
> >
> > Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> > "\root\cimv2")
> > Set colItems = objWMIService.ExecQuery("Select * from
> > Win32_ComputerSystem",,48)
> > For Each objItem in colItems
> >
> > objFile.WriteLine objItem.Name & "," & objItem.Model "," &
> > objItem.Caption
> >
> >
> > Thanks in advance
> > Rick
> >