10/04/28 11:32:02 BNDwd4xF0
>>376
//---------------------------------------------------
Locator = CreateOLEobj("WbemScripting.SWbemLocator")
objService = Locator.ConnectServer
objEnumerator = objService.ExecQuery("Select * FROM Win32_OperatingSystem")
GetOLEitem(objEnumerator)
print "Free : " + ALL_OLE_ITEM[0].FreePhysicalMemory
print "Total: " + ALL_OLE_ITEM[0].TotalVisibleMemorySize
objEnumerator = null
//---------------------------------------------------
WMIを使うなら、MSDNあたりを眺めておくと何が入っているかの見当がつくよ。
URLﾘﾝｸ(msdn.microsoft.com) （Win32以外もたくさんあるけど）
巷にあふれるVBからのコード変換をする際の手助けになるはず。