'==========================================================================
'
'
' NAME: <IsArray.vbs>
'
' AUTHOR: Ed Wilson , MS
' DATE  : 4/22/2006
'
' COMMENT: <Use as a WMI Template>
'
'==========================================================================

Option Explicit 
'On Error Resume Next
dim strComputer
dim wmiNS
dim wmiQuery
dim objWMIService
dim colItems
dim objItem

strComputer = "."
wmiNS = "\root\cimv2"
wmiQuery = "Select * from win32_ComputerSystem"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS)
Set colItems = objWMIService.ExecQuery(wmiQuery)

For Each objItem in colItems
    Wscript.Echo "name: " & objItem.name
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer 
    Wscript.Echo "model: " & objItem.model
    Wscript.Echo "totalPhysicalMemory: " & objItem.totalPhysicalMemory
    Wscript.Echo "username: " & (objItem.username)
    
    If IsArray(objItem.SystemStartUpOptions) Then
  	Wscript.Echo "SystemStartupOptions: " & join(objItem.SystemStartupOptions, _
  		vbcrlf)
  	Else
  	WScript.Echo "SystemStartupOptions: " & objItem.SystemStartupOptions
  	End If
Next