'==========================================================================
'
'
' NAME: <VideoAdapterRam_UseFunction.vbs>
'
' AUTHOR: Ed Wilson , MS
' DATE  : 7/29/2006
'
' COMMENT: <Queries win32_videoController class and retrieves the amound of Video RAM>
'1.Video ram is reported in bytes -- to convert to meg divide by 1048576
'==========================================================================

Option Explicit 
'On Error Resume Next
dim strComputer			'target computer
dim wmiNS						'target wmi name space
dim wmiQuery				'the WMI query
dim objWMIService		'sWbemservices object
dim colItems				'sWbemObjectSet object
dim objItem					'sWbemObject

strComputer = "."
wmiNS = "\root\cimv2"
wmiQuery = "Select AdapterRAM from win32_videoController"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS)
Set colItems = objWMIService.ExecQuery(wmiQuery)

For Each objItem in colItems
    WScript.Echo "AdapterRAM: " & convertToMeg(objItem.AdapterRAM)
Next


' *** function below ***
Function convertToMeg(intIN)
convertToMeg = intIN/1048576 
End Function