自動化ツールuwsc使いよ集まれ5

自動化ツールuwsc使いよ集まれ5 at SOFTWARE

377:名無しさん＠お腹いっぱい。
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からのコード変換をする際の手助けになるはず。

次ページ

続きを表示

1を表示