hi leute!
wenn ich den teil hier:
Spoiler anzeigen
Func VideoController()
FileDelete( @ScriptDir & "\WIN32_VideoController.ini" )
[/autoit] [autoit][/autoit] [autoit]$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
$Output=""
$Output = $Output & "Computer: " & $strComputer & @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 & "[Win32_VideoController]" & @CRLF
$Output = $Output & "AdapterCompatibility: " & $objItem.AdapterCompatibility & @CRLF ;==> Geräte-Kompatibilität
$Output = $Output & "AdapterDACType: " & $objItem.AdapterDACType & @CRLF
$Output = $Output & "AdapterRAM: " & $objItem.AdapterRAM & @CRLF
$strCapabilityDescriptions = $objItem.CapabilityDescriptions(0)
$Output = $Output & "Caption: " & $objItem.Caption & @CRLF ;==> Beschriftung (Name)
$Output = $Output & "CurrentBitsPerPixel: " & $objItem.CurrentBitsPerPixel & @CRLF ;==> Bits pro Pixel
$Output = $Output & "CurrentHorizontalResolution: " & $objItem.CurrentHorizontalResolution & @CRLF ;==> Auflösung: Breite
$Output = $Output & "CurrentNumberOfColors: " & $objItem.CurrentNumberOfColors & @CRLF ;==> Anzahl der Farben
$Output = $Output & "CurrentRefreshRate: " & $objItem.CurrentRefreshRate & @CRLF ;==> Aktualisierungsrate in Hertz
$Output = $Output & "CurrentVerticalResolution: " & $objItem.CurrentVerticalResolution & @CRLF ;==> Auflösung: Höhe
$Output = $Output & "Description: " & $objItem.Description & @CRLF ;==> Beschreibung (Name)
$Output = $Output & "DeviceID: " & $objItem.DeviceID & @CRLF ;==> Geräte-ID ("VideoController1";)
$Output = $Output & "DriverDate: " & WMIDateStringToDate($objItem.DriverDate) & @CRLF ;==> Treiber-Datum
$Output = $Output & "DriverVersion: " & $objItem.DriverVersion & @CRLF ;==> Treiber-Version
$Output = $Output & "InstalledDisplayDrivers: " & $objItem.InstalledDisplayDrivers & @CRLF ;==> Treiber ("nv4_disp.dll";)
[/autoit] [autoit][/autoit] [autoit]$Output = $Output & "MaxRefreshRate: " & $objItem.MaxRefreshRate & @CRLF ;==> Max Aktualisierungsrate
$Output = $Output & "MinRefreshRate: " & $objItem.MinRefreshRate & @CRLF ;==> Min Aktualisierungsrate
$Output = $Output & "Name: " & $objItem.Name & @CRLF ;==> NAME
$Output = $Output & "NumberOfColorPlanes: " & $objItem.NumberOfColorPlanes & @CRLF ;==> Farbschichten
$Output = $Output & "Status: " & $objItem.Status & @CRLF ;==> Status (OK)
$Output = $Output & "StatusInfo: " & $objItem.StatusInfo & @CRLF ;==> Status-Info
$Output = $Output & "VideoArchitecture: " & $objItem.VideoArchitecture & @CRLF ;==> Architektur
$Output = $Output & "VideoMemoryType: " & $objItem.VideoMemoryType & @CRLF ;==> Speichertyp
$Output = $Output & "VideoMode: " & $objItem.VideoMode & @CRLF ;==> Video-Modus
$Output = $Output & "VideoProcessor: " & $objItem.VideoProcessor & @CRLF ;==> Grafik-Prozessor
Next
ConsoleWrite($Output)
FileWrite(@ScriptDir & "\Win32_VideoController.ini", $Output )
;Run(@Comspec & " /c start " & @ScriptDir & "\Win32_VideoController.ini" )
Else
Msgbox( 0 , "WMI Ausgabe","Keine WMI Angaben gefunden" )
; Return "error"
Endif
; Return "WIN32_VideoController"
EndFunc
Func WMIDateStringToDate($dtmDate)
[/autoit] [autoit][/autoit] [autoit]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
in ein script einbaue, dann:
1. läuft dieser teil nicht als funktion
2. läuft der teil wenn er keine funktion is :irre:
!!!!!!!!!
WARUM????? weiss jemand wie diesen teil als funktion benutzen kann??
:help:
danke schon im voraus für alle antworten!!!
mfg -mr. sex pistols