On Error Resume Next



Const wbemFlagReturnImmediately = &h10

Const wbemFlagForwardOnly = &h20



arrComputers = Array("DB-2003-01", "FS-2003-01", "NB-BAS", "WS-ANGELIKA", "WS-FRANS", "WS-STEFAN")

For Each strComputer In arrComputers

   WScript.Echo

   WScript.Echo "=========================================="

   WScript.Echo "Computer: " & strComputer

   WScript.Echo "=========================================="



   Clear objWMIService

   Clear colItems

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)



   Clear objItem

   For Each objItem In colItems

      WScript.Echo "CPU: " & objItem.Name

   Next



   Clear colItems

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)



   Clear objItem

   For Each objItem In colItems

      WScript.Echo "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory/1024/1024

   Next



   Clear colItems

   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", _

                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)



   Clear objItem

   For Each objItem In colItems

      WScript.Echo "Model: " & objItem.Model

      WScript.Echo "Size: " & objItem.Size/1024/1024/1024

   Next





Next



Function WMIDateStringToDate(dtmDate)

WScript.Echo dtm: 

	WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _

	Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _

	& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))

End Function










-------------------------

OUTPUT

-------------------------



==========================================

Computer: DB-2003-01

==========================================

CPU: Intel(R) Xeon(TM) CPU 2.80GHz

CPU: Intel(R) Xeon(TM) CPU 2.80GHz

TotalPhysicalMemory: 1279,4921875

Model: LSI MegaIDE #00 SCSI Disk Device

Size: 37,3060941696167



==========================================

Computer: FS-2003-01

==========================================

CPU: Intel(R) Xeon(TM) CPU 3.00GHz

CPU: Intel(R) Xeon(TM) CPU 3.00GHz

TotalPhysicalMemory: 2047,47265625

Model: HP LOGICAL VOLUME SCSI Disk Device

Size: 67,8316497802734



==========================================

Computer: NB-BAS

==========================================

CPU: Intel(R) Xeon(TM) CPU 3.00GHz

CPU: Intel(R) Xeon(TM) CPU 3.00GHz

TotalPhysicalMemory: 2047,47265625

Model: HP LOGICAL VOLUME SCSI Disk Device

Size: 67,8316497802734



==========================================

Computer: WS-ANGELIKA

==========================================

CPU: Intel(R) Xeon(TM) CPU 3.00GHz

CPU: Intel(R) Xeon(TM) CPU 3.00GHz

TotalPhysicalMemory: 2047,47265625

Model: HP LOGICAL VOLUME SCSI Disk Device

Size: 67,8316497802734



==========================================

Computer: WS-FRANS

==========================================

CPU: Intel(R) Xeon(TM) CPU 3.00GHz

CPU: Intel(R) Xeon(TM) CPU 3.00GHz

TotalPhysicalMemory: 2047,47265625

Model: HP LOGICAL VOLUME SCSI Disk Device

Size: 67,8316497802734



==========================================

Computer: WS-STEFAN

==========================================

CPU: Intel(R) Xeon(TM) CPU 3.00GHz

CPU: Intel(R) Xeon(TM) CPU 3.00GHz

TotalPhysicalMemory: 2047,47265625

Model: HP LOGICAL VOLUME SCSI Disk Device

Size: 67,8316497802734