GFX-Card-Driver-Info.vbs

Function WMIDateStringToDate(dtmInstallDate)
    WMIDateStringToDate = _
        CDate(Mid(dtmInstallDate, 5, 2) &_
        "/" &_
        Mid(dtmInstallDate, 7, 2) &_
        "/" &_
        Left(dtmInstallDate, 4))
End Function



Set objSWbemDateTime = _
  CreateObject("WbemScripting.SWbemDateTime")

objSWbemDateTime.SetVarDate #1/1/2006#, True

strComputer =  "."

Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objItem in colItems
	strComputer = objItem.Name
Next

Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController")
For Each objItem in colItems
strMsg = vbCrLf & "Machine Name:" & vbTab & strComputer & vbCrLf & vbCrLf _
		& "GFX Card:"  & vbTab & objItem.Name & vbCrLf & vbCrLf _
		& "Driver Date:"  & vbTab & WMIDateStringToDate(objItem.DriverDate) & vbCrLf & vbCrLf _
    	& "Driver Version:" & vbTab & objItem.DriverVersion & vbCrLf & vbCrLf

Next

WScript.Echo strMsg