Listing 2: Code to Display Windows XP Deployment Considerations in Dialog Boxes
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)
For Each objItem in colItems
    Wscript.Echo "SystemName: " & objItem.SystemName
    Wscript.Echo "CPU: " & objItem.Name
Next

Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings 
    Wscript.Echo "Physical Memory: " & objComputer.TotalPhysicalMemory
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive",,48)
For Each objItem in colItems
    Wscript.Echo "Drive Size: " & objItem.Size
    Wscript.Echo "Partitions: " & objItem.Partitions
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskPartition",,48)
For Each objItem in colItems
    Wscript.Echo "PartitionID: " & objItem.DeviceID
    Wscript.Echo "Size: " & objItem.Size
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController",,48)
For Each objItem in colItems
    Wscript.Echo "VideoMfr: " & objItem.AdapterCompatibility
    Wscript.Echo "VideoRAM: " & objItem.AdapterRAM
    Wscript.Echo "VideoAdapter: " & objItem.Name
    Wscript.Echo "VideoProcessor: " & objItem.VideoProcessor
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_Keyboard",,48)
For Each objItem in colItems
    Wscript.Echo "Keyboard: " & objItem.Description
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_PointingDevice",,48)
For Each objItem in colItems
    Wscript.Echo "Mouse: " & objItem.Description
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive",,48)
For Each objItem in colItems
    Wscript.Echo "CDDrive: " & objItem.Caption
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48)
For Each objItem in colItems
    Wscript.Echo "NIC: " & objItem.Name
Next