memory and hard disk lookup

[Josie]

I am having trouble comparing memory and free hard disk space with my
requirements. I am not sure how to calculate the amount of memory or free
hard disk space that WMI has. Below is what I have so far

Set wshShell = WScript.CreateObject("WScript.Shell")

Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colSoftware = objWMIService.ExecQuery("Select * from Win32_Product")

Set colComputer = objWMIService.ExecQuery("Select * from
Win32_ComputerSystem")

Set colDisks = objWMIService.ExecQuery("Select * From Win32_LogicalDisk
Where DeviceID = 'C:'")

For Each objSoftware In colSoftware
If objSoftware.Caption = "Microsoft Office Enterprise" Then
OfficeInstalled = True
Exit For
End If

Next

For Each objComputer In colComputer

If (objComputer.TotalPhysicalMemory /(1024)) < "500" Then
AmountOfMemory = True
Exit For
End If

Next

For Each objDisk In colDisks

If (objDisk.FreeSpace /(1024)) < "1000" Then
AmountOfHDSpace = True
Exit For
End If

Next

If OfficeInstalled <> True AND AmountOfMemory = True AND AmountOfHDSpace =
True Then

Set oExec = wshShell.Exec("\\servername\OfficeProPlus2007\setup.exe")
Do While oExec.Status = 0
WScript.Sleep 100

Loop

End If

[Josie]

This is what if figured out to get it work.

Set wshShell = WScript.CreateObject("WScript.Shell")

Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colSoftware = objWMIService.ExecQuery("Select * from Win32_Product")

Set colComputer = objWMIService.ExecQuery("Select * from
Win32_ComputerSystem")

Set colDisks = objWMIService.ExecQuery("Select * From Win32_LogicalDisk
Where DeviceID = 'C:'")

For Each objSoftware In colSoftware

If objSoftware.Caption = "Microsoft Office Professional Plus 2007" Then

OfficeInstalled = True
Exit For
End If

Next

For Each objComputer In colComputer

intRamGB = int(objComputer.TotalPhysicalMemory)

If int(objComputer.TotalPhysicalMemory /(1073741824)) > ".5" Then

AmountOfMemory = True
Exit For
End If

Next

For Each objDisk In colDisks

intDISKGB = int(objDisk.FreeSpace)

If int(objDisk.FreeSpace /(1073741824)) > "1" Then

AmountOfHDSpace = True
Exit For
End If

Next

If OfficeInstalled <> True AND AmountOfMemory = True AND AmountOfHDSpace =
True Then

Set oExec = wshShell.Exec("\\servername\OfficeProPlus2007\setup.exe

/adminfile \\servername\OfficeProPlus2007\office3.msp ")

Do While oExec.Status = 0
WScript.Sleep 100

Loop

End If

WScript.Quit