Jump to content
Sign in to follow this  
Skrip

Get Video won't work.

Recommended Posts

Skrip

Func _GetVideo()
    If IsObj($colItems) Then
        For $objItem In $colItems
            $strAcceleratorCapabilities = $objItem.AcceleratorCapabilities (0)
            $Output = $Output & "AcceleratorCapabilities: " & $strAcceleratorCapabilities & @CRLF
            $Output = $Output & "AdapterCompatibility: " & $objItem.AdapterCompatibility & @CRLF
            $Output = $Output & "AdapterDACType: " & $objItem.AdapterDACType & @CRLF
            $Output = $Output & "AdapterRAM: " & $objItem.AdapterRAM & @CRLF
            $Output = $Output & "Availability: " & $objItem.Availability & @CRLF
            $strCapabilityDescriptions = $objItem.CapabilityDescriptions (0)
            $Output = $Output & "CapabilityDescriptions: " & $strCapabilityDescriptions & @CRLF
            $Output = $Output & "Caption: " & $objItem.Caption & @CRLF
            $Output = $Output & "ColorTableEntries: " & $objItem.ColorTableEntries & @CRLF
            $Output = $Output & "ConfigManagerErrorCode: " & $objItem.ConfigManagerErrorCode & @CRLF
            $Output = $Output & "ConfigManagerUserConfig: " & $objItem.ConfigManagerUserConfig & @CRLF
            $Output = $Output & "CreationClassName: " & $objItem.CreationClassName & @CRLF
            $Output = $Output & "CurrentBitsPerPixel: " & $objItem.CurrentBitsPerPixel & @CRLF
            $Output = $Output & "CurrentHorizontalResolution: " & $objItem.CurrentHorizontalResolution & @CRLF
            $Output = $Output & "CurrentNumberOfColors: " & $objItem.CurrentNumberOfColors & @CRLF
            $Output = $Output & "CurrentNumberOfColumns: " & $objItem.CurrentNumberOfColumns & @CRLF
            $Output = $Output & "CurrentNumberOfRows: " & $objItem.CurrentNumberOfRows & @CRLF
            $Output = $Output & "CurrentRefreshRate: " & $objItem.CurrentRefreshRate & @CRLF
            $Output = $Output & "CurrentScanMode: " & $objItem.CurrentScanMode & @CRLF
            $Output = $Output & "CurrentVerticalResolution: " & $objItem.CurrentVerticalResolution & @CRLF
            $Output = $Output & "Description: " & $objItem.Description & @CRLF
            $Output = $Output & "DeviceID: " & $objItem.DeviceID & @CRLF
            $Output = $Output & "DeviceSpecificPens: " & $objItem.DeviceSpecificPens & @CRLF
            $Output = $Output & "DitherType: " & $objItem.DitherType & @CRLF
            $Output = $Output & "DriverDate: " & WMIDateStringToDate($objItem.DriverDate) & @CRLF
            $Output = $Output & "DriverVersion: " & $objItem.DriverVersion & @CRLF
            $Output = $Output & "ErrorCleared: " & $objItem.ErrorCleared & @CRLF
            $Output = $Output & "ErrorDescription: " & $objItem.ErrorDescription & @CRLF
            $Output = $Output & "ICMIntent: " & $objItem.ICMIntent & @CRLF
            $Output = $Output & "ICMMethod: " & $objItem.ICMMethod & @CRLF
            $Output = $Output & "InfFilename: " & $objItem.InfFilename & @CRLF
            $Output = $Output & "InfSection: " & $objItem.InfSection & @CRLF
            $Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
            $Output = $Output & "InstalledDisplayDrivers: " & $objItem.InstalledDisplayDrivers & @CRLF
            $Output = $Output & "LastErrorCode: " & $objItem.LastErrorCode & @CRLF
            $Output = $Output & "MaxMemorySupported: " & $objItem.MaxMemorySupported & @CRLF
            $Output = $Output & "MaxNumberControlled: " & $objItem.MaxNumberControlled & @CRLF
            $Output = $Output & "MaxRefreshRate: " & $objItem.MaxRefreshRate & @CRLF
            $Output = $Output & "MinRefreshRate: " & $objItem.MinRefreshRate & @CRLF
            $Output = $Output & "Monochrome: " & $objItem.Monochrome & @CRLF
            $Output = $Output & "Name: " & $objItem.Name & @CRLF
            $Output = $Output & "NumberOfColorPlanes: " & $objItem.NumberOfColorPlanes & @CRLF
            $Output = $Output & "NumberOfVideoPages: " & $objItem.NumberOfVideoPages & @CRLF
            $Output = $Output & "PNPDeviceID: " & $objItem.PNPDeviceID & @CRLF
            $strPowerManagementCapabilities = $objItem.PowerManagementCapabilities (0)
            $Output = $Output & "PowerManagementCapabilities: " & $strPowerManagementCapabilities & @CRLF
            $Output = $Output & "PowerManagementSupported: " & $objItem.PowerManagementSupported & @CRLF
            $Output = $Output & "ProtocolSupported: " & $objItem.ProtocolSupported & @CRLF
            $Output = $Output & "ReservedSystemPaletteEntries: " & $objItem.ReservedSystemPaletteEntries & @CRLF
            $Output = $Output & "SpecificationVersion: " & $objItem.SpecificationVersion & @CRLF
            $Output = $Output & "Status: " & $objItem.Status & @CRLF
            $Output = $Output & "StatusInfo: " & $objItem.StatusInfo & @CRLF
            $Output = $Output & "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF
            $Output = $Output & "SystemName: " & $objItem.SystemName & @CRLF
            $Output = $Output & "SystemPaletteEntries: " & $objItem.SystemPaletteEntries & @CRLF
            $Output = $Output & "TimeOfLastReset: " & WMIDateStringToDate($objItem.TimeOfLastReset) & @CRLF
            $Output = $Output & "VideoArchitecture: " & $objItem.VideoArchitecture & @CRLF
            $Output = $Output & "VideoMemoryType: " & $objItem.VideoMemoryType & @CRLF
            $Output = $Output & "VideoMode: " & $objItem.VideoMode & @CRLF
            $Output = $Output & "VideoModeDescription: " & $objItem.VideoModeDescription & @CRLF
            $Output = $Output & "VideoProcessor: " & $objItem.VideoProcessor & @CRLF
            If MsgBox(1, "WMI Output", $Output) = 2 Then ExitLoop
            $Output = ""
        Next
    Else
        MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_VideoController")
    EndIf
EndFunc ;==>_GetVideo

Func WMIDateStringToDate($dtmDate)
    
    Return (StringMid($dtmDate, 5, 2) & "/" & _
            StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
             & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc ;==>WMIDateStringToDate

C:\AutoIt3\abc.au3(4) : ==> The requested action with this object has failed.: 
$strAcceleratorCapabilities = $objItem.AcceleratorCapabilities (0) 
$strAcceleratorCapabilities = $objItem.AcceleratorCapabilities (0)^ ERROR

Error^

Why won't this work?

Edited by Firestorm

[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Share this post


Link to post
Share on other sites
Skrip

bump...

It can't be that hard to fix.


[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Share this post


Link to post
Share on other sites
GaryFrost

being you didn't post all the code, I would have to assume that you've missed something, this is what i posted from Scriptomatic

; Generated by AutoIt Scriptomatic

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output = $Output & "Computer: " & $strComputer  & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_VideoController", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   For $objItem In $colItems
      $strAcceleratorCapabilities = $objItem.AcceleratorCapabilities(0)
      $Output = $Output & "AcceleratorCapabilities: " & $strAcceleratorCapabilities & @CRLF
      $Output = $Output & "AdapterCompatibility: " & $objItem.AdapterCompatibility & @CRLF
      $Output = $Output & "AdapterDACType: " & $objItem.AdapterDACType & @CRLF
      $Output = $Output & "AdapterRAM: " & $objItem.AdapterRAM & @CRLF
      $Output = $Output & "Availability: " & $objItem.Availability & @CRLF
      $strCapabilityDescriptions = $objItem.CapabilityDescriptions(0)
      $Output = $Output & "CapabilityDescriptions: " & $strCapabilityDescriptions & @CRLF
      $Output = $Output & "Caption: " & $objItem.Caption & @CRLF
      $Output = $Output & "ColorTableEntries: " & $objItem.ColorTableEntries & @CRLF
      $Output = $Output & "ConfigManagerErrorCode: " & $objItem.ConfigManagerErrorCode & @CRLF
      $Output = $Output & "ConfigManagerUserConfig: " & $objItem.ConfigManagerUserConfig & @CRLF
      $Output = $Output & "CreationClassName: " & $objItem.CreationClassName & @CRLF
      $Output = $Output & "CurrentBitsPerPixel: " & $objItem.CurrentBitsPerPixel & @CRLF
      $Output = $Output & "CurrentHorizontalResolution: " & $objItem.CurrentHorizontalResolution & @CRLF
      $Output = $Output & "CurrentNumberOfColors: " & $objItem.CurrentNumberOfColors & @CRLF
      $Output = $Output & "CurrentNumberOfColumns: " & $objItem.CurrentNumberOfColumns & @CRLF
      $Output = $Output & "CurrentNumberOfRows: " & $objItem.CurrentNumberOfRows & @CRLF
      $Output = $Output & "CurrentRefreshRate: " & $objItem.CurrentRefreshRate & @CRLF
      $Output = $Output & "CurrentScanMode: " & $objItem.CurrentScanMode & @CRLF
      $Output = $Output & "CurrentVerticalResolution: " & $objItem.CurrentVerticalResolution & @CRLF
      $Output = $Output & "Description: " & $objItem.Description & @CRLF
      $Output = $Output & "DeviceID: " & $objItem.DeviceID & @CRLF
      $Output = $Output & "DeviceSpecificPens: " & $objItem.DeviceSpecificPens & @CRLF
      $Output = $Output & "DitherType: " & $objItem.DitherType & @CRLF
      $Output = $Output & "DriverDate: " & WMIDateStringToDate($objItem.DriverDate) & @CRLF
      $Output = $Output & "DriverVersion: " & $objItem.DriverVersion & @CRLF
      $Output = $Output & "ErrorCleared: " & $objItem.ErrorCleared & @CRLF
      $Output = $Output & "ErrorDescription: " & $objItem.ErrorDescription & @CRLF
      $Output = $Output & "ICMIntent: " & $objItem.ICMIntent & @CRLF
      $Output = $Output & "ICMMethod: " & $objItem.ICMMethod & @CRLF
      $Output = $Output & "InfFilename: " & $objItem.InfFilename & @CRLF
      $Output = $Output & "InfSection: " & $objItem.InfSection & @CRLF
      $Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
      $Output = $Output & "InstalledDisplayDrivers: " & $objItem.InstalledDisplayDrivers & @CRLF
      $Output = $Output & "LastErrorCode: " & $objItem.LastErrorCode & @CRLF
      $Output = $Output & "MaxMemorySupported: " & $objItem.MaxMemorySupported & @CRLF
      $Output = $Output & "MaxNumberControlled: " & $objItem.MaxNumberControlled & @CRLF
      $Output = $Output & "MaxRefreshRate: " & $objItem.MaxRefreshRate & @CRLF
      $Output = $Output & "MinRefreshRate: " & $objItem.MinRefreshRate & @CRLF
      $Output = $Output & "Monochrome: " & $objItem.Monochrome & @CRLF
      $Output = $Output & "Name: " & $objItem.Name & @CRLF
      $Output = $Output & "NumberOfColorPlanes: " & $objItem.NumberOfColorPlanes & @CRLF
      $Output = $Output & "NumberOfVideoPages: " & $objItem.NumberOfVideoPages & @CRLF
      $Output = $Output & "PNPDeviceID: " & $objItem.PNPDeviceID & @CRLF
      $strPowerManagementCapabilities = $objItem.PowerManagementCapabilities(0)
      $Output = $Output & "PowerManagementCapabilities: " & $strPowerManagementCapabilities & @CRLF
      $Output = $Output & "PowerManagementSupported: " & $objItem.PowerManagementSupported & @CRLF
      $Output = $Output & "ProtocolSupported: " & $objItem.ProtocolSupported & @CRLF
      $Output = $Output & "ReservedSystemPaletteEntries: " & $objItem.ReservedSystemPaletteEntries & @CRLF
      $Output = $Output & "SpecificationVersion: " & $objItem.SpecificationVersion & @CRLF
      $Output = $Output & "Status: " & $objItem.Status & @CRLF
      $Output = $Output & "StatusInfo: " & $objItem.StatusInfo & @CRLF
      $Output = $Output & "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF
      $Output = $Output & "SystemName: " & $objItem.SystemName & @CRLF
      $Output = $Output & "SystemPaletteEntries: " & $objItem.SystemPaletteEntries & @CRLF
      $Output = $Output & "TimeOfLastReset: " & WMIDateStringToDate($objItem.TimeOfLastReset) & @CRLF
      $Output = $Output & "VideoArchitecture: " & $objItem.VideoArchitecture & @CRLF
      $Output = $Output & "VideoMemoryType: " & $objItem.VideoMemoryType & @CRLF
      $Output = $Output & "VideoMode: " & $objItem.VideoMode & @CRLF
      $Output = $Output & "VideoModeDescription: " & $objItem.VideoModeDescription & @CRLF
      $Output = $Output & "VideoProcessor: " & $objItem.VideoProcessor & @CRLF
      if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
      $Output=""
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_VideoController" )
Endif


Func WMIDateStringToDate($dtmDate)

    Return (StringMid($dtmDate, 5, 2) & "/" & _
    StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
    & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc

SciTE for AutoItDirections for Submitting Standard UDFs

 

Don't argue with an idiot; people watching may not be able to tell the difference.

 

Share this post


Link to post
Share on other sites
Skrip

If IsObj($colItems) Then
        For $objItem In $colItems
            $Output = $Output & "Availability: " & $objItem.Availability & @CRLF
            $Output = $Output & "Caption: " & $objItem.Caption & @CRLF
            $Output = $Output & "ConfigManagerErrorCode: " & $objItem.ConfigManagerErrorCode & @CRLF
            $Output = $Output & "ConfigManagerUserConfig: " & $objItem.ConfigManagerUserConfig & @CRLF
            $Output = $Output & "CreationClassName: " & $objItem.CreationClassName & @CRLF
            $Output = $Output & "Description: " & $objItem.Description & @CRLF
            $Output = $Output & "DeviceID: " & $objItem.DeviceID & @CRLF
            $Output = $Output & "DMABufferSize: " & $objItem.DMABufferSize & @CRLF
            $Output = $Output & "ErrorCleared: " & $objItem.ErrorCleared & @CRLF
            $Output = $Output & "ErrorDescription: " & $objItem.ErrorDescription & @CRLF
            $Output = $Output & "InstallDate: " & WMIDateStringToDates($objItem.InstallDate) & @CRLF
            $Output = $Output & "LastErrorCode: " & $objItem.LastErrorCode & @CRLF
            $Output = $Output & "Manufacturer: " & $objItem.Manufacturer & @CRLF
            $Output = $Output & "MPU401Address: " & $objItem.MPU401Address & @CRLF
            $Output = $Output & "Name: " & $objItem.Name & @CRLF
            $Output = $Output & "PNPDeviceID: " & $objItem.PNPDeviceID & @CRLF
            $strPowerManagementCapabilities = $objItem.PowerManagementCapabilities (0)
            $Output = $Output & "PowerManagementCapabilities: " & $strPowerManagementCapabilities & @CRLF
            $Output = $Output & "PowerManagementSupported: " & $objItem.PowerManagementSupported & @CRLF
            $Output = $Output & "ProductName: " & $objItem.ProductName & @CRLF
            $Output = $Output & "Status: " & $objItem.Status & @CRLF
            $Output = $Output & "StatusInfo: " & $objItem.StatusInfo & @CRLF
            $Output = $Output & "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF
            $Output = $Output & "SystemName: " & $objItem.SystemName & @CRLF
            If MsgBox(1, "Sound Information", $Output) = 2 Then ExitLoop
            $Output = ""
        Next
    Else
        MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_SoundDevice")
    EndIf

That's audio, It only works once in a GUI. Please Fix. (Full Code HERE)


[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Share this post


Link to post
Share on other sites
GaryFrost

What I posted is Video "Win32_VideoController"

Can't fix when you don't give enough code to show what's wrong.

You are only providing a function you made that doesn't have all the pertinent code.

Edited by gafrost

SciTE for AutoItDirections for Submitting Standard UDFs

 

Don't argue with an idiot; people watching may not be able to tell the difference.

 

Share this post


Link to post
Share on other sites
Skrip

Oh Right, Your code above did work, thank you!

Edited by Firestorm

[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×