Beiträge von Oscar

  • Computernamen über IP im Lan ausgeben lassen

    Hier mal die Version von Der_Doc als Funktion:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    #include <Constants.au3>
    $aComputer = _GetLANComputer()
    _ArrayDisplay($aComputer)

    [/autoit] [autoit][/autoit] [autoit]

    Func _GetLANComputer()
    Local $sPID, $sOut = ''
    $sPID = Run(@ComSpec & ' /c net view', @SystemDir, @SW_HIDE, $STDOUT_CHILD)
    Do
    $sOut &= StdoutRead($sPID)
    Until @error <> 0
    Return StringRegExp($sOut, '(?s).+?(\\\\\H+)\h*(\H+)', 3)
    EndFunc ;==>_GetLANComputer

    [/autoit]

  • GetMonitor-Funktion testen

    Oh verdammt, unter WinXP funktioniert die WMI-Methode auch nicht bei mehreren Monitoren?
    Ich bin bisher davon ausgegangen, dass wenigstens unter XP noch mehrere Monitore damit angezeigt werden... ;(
    Es sieht schlecht aus, um die Monitorabfrage...

  • GetMonitor-Funktion testen

    Ich habe gerade eine GetMonitor-Funktion für mein Computer-Info geschrieben, die auch mehrere Monitore erkennen kann.
    Bei mir funktioniert sie auch, aber da ich dabei jede Menge Einträge aus der Registry auslese, weiß ich nicht, ob sie überall funktioniert.
    Vielleicht könnt ihr mir mal helfen und die Funktion bei euch testen (keine Sorge, ich schreibe nichts in die Reg, es finden nur Lesezugriffe statt).
    Mich interessiert vor allem, ob mehrere Monitore einwandfrei erkannt werden. Aber auch sonst bin ich für Hinweise auf fehlerhafte Ausgaben dankbar.
    Das Testscript erstellt eine Textdatei mit den Ergebnissen. Vielleicht könntet ihr diese mitposten.

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    $aMonitor = _CI_GetMonitor()
    $hFile = FileOpen(@ScriptDir & '\!Monitor-Info.txt', 2)
    If $hFile <> -1 Then
    For $i = 0 To UBound($aMonitor) - 1
    $save = ''
    For $j = 0 To UBound($aMonitor, 2) - 1
    $save &= $aMonitor[$i][$j] & ' *** '
    Next
    FileWriteLine($hFile, $save)
    Next
    FileClose($hFile)
    EndIf
    _ArrayDisplay($aMonitor)

    [/autoit] [autoit][/autoit] [autoit]

    Func _CI_GetMonitor($strComputer = '.')
    Switch @OSVersion
    Case 'WIN_VISTA', 'WIN_7'
    Local $sX64 = '', $iCount, $sHKLM, $sTmp, $sMfg, $sDeviceDesc, $sDPMS, $sClassGUID, $sHardwareID
    If @OSArch <> 'X86' Then $sX64 = '64'
    $sHKLM = 'HKEY_LOCAL_MACHINE' & $sX64
    $iCount = RegRead($sHKLM & '\SYSTEM\CurrentControlSet\services\monitor\Enum', 'Count')
    Local $aMonitor[$iCount + 1][6] = [['Hersteller:', 'Modell:', 'DPMS-Untersützung:', 'Position (x, y):', 'akt. Auflösung:', 'max. Auflösung:']]
    For $i = 1 To $iCount
    $sTmp = RegRead($sHKLM & '\SYSTEM\CurrentControlSet\services\monitor\Enum', $i - 1)
    $sMfg = RegRead($sHKLM & '\SYSTEM\CurrentControlSet\Enum\' & $sTmp, 'Mfg')
    $aMonitor[$i][0] = StringRegExpReplace($sMfg, '.+;(.+)', '$1')
    $sDeviceDesc = RegRead($sHKLM & '\SYSTEM\CurrentControlSet\Enum\' & $sTmp, 'DeviceDesc')
    $aMonitor[$i][1] = StringRegExpReplace($sDeviceDesc, '.+;(.+)', '$1')
    $sDPMS = RegRead($sHKLM & '\SYSTEM\CurrentControlSet\Enum\' & $sTmp & '\Device Parameters', 'DPMS')
    $aMonitor[$i][2] = StringMid('NeinJa', $sDPMS * 4 + 1, 4)
    $sClassGUID = RegRead($sHKLM & '\SYSTEM\CurrentControlSet\Enum\' & $sTmp, 'ClassGUID')
    $sHardwareID = RegRead($sHKLM & '\SYSTEM\CurrentControlSet\Enum\' & $sTmp, 'HardwareID')
    Local $iEnum = 0, $sTmpKey, $sMatchingDeviceId, $sConnectivity, $sRecent, $sMatchConfig, $j, $x, $y, $cx, $cy
    While True
    $sTmpKey = $sHKLM & '\SYSTEM\CurrentControlSet\Control\Class\' & $sClassGUID & '\' & StringRight('0000' & $iEnum, 4)
    $sMatchingDeviceId = RegRead($sTmpKey, 'MatchingDeviceId')
    If @error Then ExitLoop
    If $sMatchingDeviceId = $sHardwareID Then
    $aMonitor[$i][5] = StringReplace(RegRead($sTmpKey, 'MaxResolution'), ',', ' x ')
    $sConnectivity = RegEnumKey($sHKLM & '\SYSTEM\CurrentControlSet\Control\GraphicsDrivers\Connectivity', 1)
    $sRecent = RegRead($sHKLM & '\SYSTEM\CurrentControlSet\Control\GraphicsDrivers\Connectivity\' & $sConnectivity, 'Recent')
    $j = 0
    Do
    $j += 1
    $sMatchConfig = RegEnumKey($sHKLM & '\SYSTEM\CurrentControlSet\Control\GraphicsDrivers\Configuration\', $j)
    Until StringInStr($sMatchConfig, $sRecent) Or (@error <> 0)
    $sTmp = $sHKLM & '\SYSTEM\CurrentControlSet\Control\GraphicsDrivers\Configuration\' & $sMatchConfig & '\' & StringRight('00' & $i - 1, 2)
    $x = Number(String(RegRead($sTmp, 'Position.cx')))
    If $x > 2 ^ 31 Then $x = -BitXOR($x, 0xffffffff)
    $y = Number(String(RegRead($sTmp, 'Position.cy')))
    If $y > 2 ^ 31 Then $y = -BitXOR($y, 0xffffffff)
    $cx = RegRead($sTmp, 'PrimSurfSize.cx')
    $cy = RegRead($sTmp, 'PrimSurfSize.cy')
    $aMonitor[$i][4] = $cx & ' x ' & $cy
    $aMonitor[$i][3] = $x & ', ' & $y
    ExitLoop
    EndIf
    $iEnum += 1
    WEnd
    Next
    Return $aMonitor
    Case Else
    Local $aReturn[2][8] = [[ _
    'Hersteller:', 'Modell:', 'Breite (Pixel):', 'Höhe (Pixel):', _
    'Pixel pro Inch (X):', 'Pixel pro Inch (Y):', 'Monitorgröße (ca.):', 'PNPDeviceID:']]
    Local $x = 0, $objWMIService, $colItems, $Output
    $objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\root\cimv2')
    If Not IsObj($objWMIService) Then Return SetError(1, 0, 0)
    $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_DesktopMonitor', 'WQL', 0x30)
    If IsObj($colItems) Then
    For $objItem In $colItems
    $x += 1
    ReDim $aReturn[$x + 1][8]
    $aReturn[$x][0] = $objItem.MonitorManufacturer
    $aReturn[$x][1] = $objItem.Name
    $aReturn[$x][2] = $objItem.ScreenWidth
    $aReturn[$x][3] = $objItem.ScreenHeight
    $aReturn[$x][4] = $objItem.PixelsPerXLogicalInch
    $aReturn[$x][5] = $objItem.PixelsPerYLogicalInch
    $aReturn[$x][6] = Round($objItem.ScreenWidth / ($objItem.PixelsPerXLogicalInch / 2.54), 2) & _
    ' x ' & Round($objItem.ScreenHeight / ($objItem.PixelsPerYLogicalInch / 2.54), 2) & ' cm²'
    $aReturn[$x][7] = $objItem.PNPDeviceID
    Next
    EndIf
    Return $aReturn
    EndSwitch
    EndFunc ;==>_CI_GetMonitor

    [/autoit]

  • Computer-Info

    Ich hab' jetzt noch etwas zu meinem Script gefunden.
    Microsoft schreibt dazu:

    Zitat


    Die im Abschnitt über den Computer aufgeführten CPU-Informationen werden aus dem Eintrag "ProcessorNameString" unter dem folgenden Registrierungsunterschlüssel abgerufen:
    HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0
    Hinweis: In diesem Beispiel steht der Wert 0 für die erste CPU im Computer. In einem Multiprozessorsystem steht 1 für die zweite physische CPU bzw. für die zweite logische CPU in einem System, etwa in Systemen mit Hyper-Threading-Technologie von Intel, die mehrere logische Kerne nutzen.


    Wobei ich jetzt mangels HT-Prozessor nicht weiß, ob bei einem Quadcore die Werte in abwechselnder Reihenfolge (physisch, logisch, physisch, logisch...) oder hintereinander (physisch, physisch..., logisch, logisch...) stehen und welche Werte man da bei den logischen Prozessoren auslesen kann.

    Zum auslesen der Anzahl der logischen Prozessoren würde aber die einfache Zählschleife ausreichen.

  • Computer-Info

    Die Anzahl und Art der Prozessoren kann man auch über die Registry rausbekommen (habe ich gerade entdeckt):

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    $aCPU = _GetCPU()
    _ArrayDisplay($aCPU)

    [/autoit] [autoit][/autoit] [autoit]

    Func _GetCPU()
    Local $sX64 = '', $iCount = 0
    If @OSArch <> 'X86' Then $sX64 = '64'
    Do
    $iCount += 1
    RegEnumKey('HKEY_LOCAL_MACHINE' & $sX64 & '\HARDWARE\DESCRIPTION\System\CentralProcessor', $iCount)
    Until @error <> 0
    $iCount -= 1
    Dim $aOut[$iCount][3]
    For $i = 0 To $iCount - 1
    $aOut[$i][0] = RegRead('HKEY_LOCAL_MACHINE' & $sX64 & '\HARDWARE\DESCRIPTION\System\CentralProcessor\' & $i, 'Identifier')
    $aOut[$i][1] = RegRead('HKEY_LOCAL_MACHINE' & $sX64 & '\HARDWARE\DESCRIPTION\System\CentralProcessor\' & $i, 'ProcessorNameString')
    $aOut[$i][2] = RegRead('HKEY_LOCAL_MACHINE' & $sX64 & '\HARDWARE\DESCRIPTION\System\CentralProcessor\' & $i, '~MHz')
    Next
    Return $aOut
    EndFunc

    [/autoit]


    Und das funktioniert sogar auch unter WindowsXP (muss ich gleich mal in mein Computer-Info einbauen). :)

  • Computer-Info

    Wie gesagt, zum auslesen benutze ich WMI. Hier die komplette Ausgabe:

    Spoiler anzeigen

    [autoit]
    ; Generated by AutoIt Scriptomatic

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

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

    If IsObj($colItems) then
    For $objItem In $colItems
    $Output &= 'AddressWidth: ' & $objItem.AddressWidth & @CRLF
    $Output &= 'Architecture: ' & $objItem.Architecture & @CRLF
    $Output &= 'Availability: ' & $objItem.Availability & @CRLF
    $Output &= 'Caption: ' & $objItem.Caption & @CRLF
    $Output &= 'ConfigManagerErrorCode: ' & $objItem.ConfigManagerErrorCode & @CRLF
    $Output &= 'ConfigManagerUserConfig: ' & $objItem.ConfigManagerUserConfig & @CRLF
    $Output &= 'CpuStatus: ' & $objItem.CpuStatus & @CRLF
    $Output &= 'CreationClassName: ' & $objItem.CreationClassName & @CRLF
    $Output &= 'CurrentClockSpeed: ' & $objItem.CurrentClockSpeed & @CRLF
    $Output &= 'CurrentVoltage: ' & $objItem.CurrentVoltage & @CRLF
    $Output &= 'DataWidth: ' & $objItem.DataWidth & @CRLF
    $Output &= 'Description: ' & $objItem.Description & @CRLF
    $Output &= 'DeviceID: ' & $objItem.DeviceID & @CRLF
    $Output &= 'ErrorCleared: ' & $objItem.ErrorCleared & @CRLF
    $Output &= 'ErrorDescription: ' & $objItem.ErrorDescription & @CRLF
    $Output &= 'ExtClock: ' & $objItem.ExtClock & @CRLF
    $Output &= 'Family: ' & $objItem.Family & @CRLF
    $Output &= 'InstallDate: ' & _WMIDateStringToDate($objItem.InstallDate) & @CRLF
    $Output &= 'L2CacheSize: ' & $objItem.L2CacheSize & @CRLF
    $Output &= 'L2CacheSpeed: ' & $objItem.L2CacheSpeed & @CRLF
    $Output &= 'L3CacheSize: ' & $objItem.L3CacheSize & @CRLF
    $Output &= 'L3CacheSpeed: ' & $objItem.L3CacheSpeed & @CRLF
    $Output &= 'LastErrorCode: ' & $objItem.LastErrorCode & @CRLF
    $Output &= 'Level: ' & $objItem.Level & @CRLF
    $Output &= 'LoadPercentage: ' & $objItem.LoadPercentage & @CRLF
    $Output &= 'Manufacturer: ' & $objItem.Manufacturer & @CRLF
    $Output &= 'MaxClockSpeed: ' & $objItem.MaxClockSpeed & @CRLF
    $Output &= 'Name: ' & $objItem.Name & @CRLF
    $Output &= 'NumberOfCores: ' & $objItem.NumberOfCores & @CRLF
    $Output &= 'NumberOfLogicalProcessors: ' & $objItem.NumberOfLogicalProcessors & @CRLF
    $Output &= 'OtherFamilyDescription: ' & $objItem.OtherFamilyDescription & @CRLF
    $Output &= 'PNPDeviceID: ' & $objItem.PNPDeviceID & @CRLF
    $strPowerManagementCapabilities = $objItem.PowerManagementCapabilities(0)
    $Output &= 'PowerManagementCapabilities: ' & $strPowerManagementCapabilities & @CRLF
    $Output &= 'PowerManagementSupported: ' & $objItem.PowerManagementSupported & @CRLF
    $Output &= 'ProcessorId: ' & $objItem.ProcessorId & @CRLF
    $Output &= 'ProcessorType: ' & $objItem.ProcessorType & @CRLF
    $Output &= 'Revision: ' & $objItem.Revision & @CRLF
    $Output &= 'Role: ' & $objItem.Role & @CRLF
    $Output &= 'SocketDesignation: ' & $objItem.SocketDesignation & @CRLF
    $Output &= 'Status: ' & $objItem.Status & @CRLF
    $Output &= 'StatusInfo: ' & $objItem.StatusInfo & @CRLF
    $Output &= 'Stepping: ' & $objItem.Stepping & @CRLF
    $Output &= 'SystemCreationClassName: ' & $objItem.SystemCreationClassName & @CRLF
    $Output &= 'SystemName: ' & $objItem.SystemName & @CRLF
    $Output &= 'UniqueId: ' & $objItem.UniqueId & @CRLF
    $Output &= 'UpgradeMethod: ' & $objItem.UpgradeMethod & @CRLF
    $Output &= 'Version: ' & $objItem.Version & @CRLF
    $Output &= 'VoltageCaps: ' & $objItem.VoltageCaps & @CRLF
    if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
    $Output=""
    Next
    Else
    $Output &= 'No WMI Objects Found for class: ' & 'Win32_Processor'
    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
    /autoit]


    Wenn Windows dabei etwas falsches ausgibt, kann ich das ja nicht überprüfen.
    Bei meinen beiden Rechnern (beide mit AMD-Prozessoren, einmal Win7, einmal WinXP) stimmt die Ausgabe. :S

    @kiku: Das mit dem flackernden Listview habe ich mittlerweile behoben. Kommt in der nächsten Version.

  • Computer-Info

    UEZ: Ab Win_Vista müssten beim TAB "Prozessor" die beiden Einträge "Prozessorkerne" und "logische Prozessoren" angezeigt werden. WindowsXP stellt diese Einträge per WMI leider nicht zur Verfügung.

    uklein: Mein Script liest nur das aus, was Windows per WMI zurückgibt. Welches Windows benutzt Du? Vermutlich "kennt" Windows den Prozessor nicht und gibt deshalb einen falschen Wert aus...

  • Unterschiedliches Maximum von TCP

    Mir ist gerade aufgefallen, dass bei Win7 die MTU standardmäßig auf 1500 gestellt ist.
    Da lieferte mein Testscript nämlich lediglich Werte von nur 978 Bytes zurück (Fragmentierung). Jetzt habe ich die MTU auf 1492 gestellt und mein Script gibt die korrekten 1464 Bytes (28 Bytes für Header) zurück. :)
    Und so nebenbei ist mein Internet auch noch schneller geworden. :D

    Spoiler anzeigen
    [autoit]


    MsgBox(0, 0, _GetMaxTCPLen('t-online.de'))

    [/autoit] [autoit][/autoit] [autoit]

    Func _GetMaxTCPLen($sUrl, $iTimeout = 1000)
    Local $objWMIService, $colItems, $iStatus
    $objWMIService = ObjGet('winmgmts:\\.\')
    For $i = 1500 To 1 Step -1
    $iStatus = 0
    $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_PingStatus WHERE Address="' & $sUrl & _
    '" and NoFragmentation=True and Timeout=' & $iTimeout & ' and BufferSize=' & $i, 'WQL', 0x30)
    If IsObj($colItems) Then
    For $objItem In $colItems
    $iStatus = Number($objItem.StatusCode)
    Next
    Else
    Return 'Error, Win32_PingStatus failed!'
    EndIf
    If $iStatus = 0 Then ExitLoop
    Next
    Return $i & ' Bytes'
    EndFunc ;==>_GetMaxTCPLen

    [/autoit]

  • Win7 und TraySetOnEvent

    Ich habe Win7 (64 Bit) und dieses Testscript funktioniert einwandfrei:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <Constants.au3>
    Opt("TrayOnEventMode",1)
    Opt("TrayAutoPause", 0)
    Opt("GUIOnEventMode",1)
    $hGui = GUICreate('test')
    GUISetOnEvent($GUI_EVENT_CLOSE, "_End")
    TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "_Show")
    TraySetState()

    [/autoit] [autoit][/autoit] [autoit]

    While Sleep(1000)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _End()
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _Show()
    If BitAND(WinGetState($hGui), 2) Then
    GUISetState(@SW_HIDE)
    Else
    GUISetState(@SW_SHOW)
    EndIf
    EndFunc

    [/autoit]


    Doppelklick auf das TrayIcon zeigt/versteckt das Fenster.

  • Array Problem

    Das geht schon, nur musst Du das Ausgetauschte auch wieder dem String zuweisen:

    Spoiler anzeigen
    [autoit]


    For $i = 1 To $as_Body[0] Step 1

    [/autoit] [autoit][/autoit] [autoit]

    $as_Body[$i] = StringReplace($as_Body[$i], "|Attribut1|", $Attri1)
    $as_Body[$i] = StringReplace($as_Body[$i], "|Attribut2|", $Attri2)
    $as_Body[$i] = StringReplace($as_Body[$i], "|Attribut3|", $Attri3)
    $as_Body[$i] = StringReplace($as_Body[$i], "|Attribut4|", $Attri4)
    $as_Body[$i] = StringReplace($as_Body[$i], "|Attribut5|", $Attri5)

    [/autoit] [autoit][/autoit] [autoit]

    Next

    [/autoit]