Beiträge von Torni

  • Chatbot Susi

    Ohje ohje....

    jetzt testest du darauf, ob $AMOD2 ein Array ist. Wenn ja dann gehst du raus.
    Wenn nein prüfst du mit StringInStr($AMOD2[0]... ein Array nach einem String ab..
    Array oder ncht, da musst dich schon entscheiden..

    So vom logischen her passt das ganze nicht mehr..

    Wenn ich meine Glaskugel befragen würde, sagt die mir so gefühlsmässig dass hier

    [autoit]


    Global $AMOD2 = _StringBetween($MDATA2, '<td><a href="mail/blacklist">Black-List</a></td>', '<table class="wrap_table">')

    [/autoit]

    gar nichts "gefunden" wird.. aber nur gefühlsmässig..

    So behelfsmässig würde ICH mir ein paar Abfragen nach @error reinhauen und paar Consolen- bzw. MsgBox-Ausgaben.. wie gesagt würde ICH...

  • Chatbot Susi

    @Freeman: du bist Laie sagst du und dann wagst dich an so etwas heran?


    Ich bin auch Anfänger, lese mir aber die Hilfe zu jedem Befehl, den ich verwende durch, debugge Ausgaben von Funktionen usw..
    Damit kommt man fast alleine weiter..

    Das was du oben als Problem ansiehst: hast du dir die Ausgaben mal angesehen was rauskommt usw..
    Ein wenig sollst du schon selber machen.

  • Chatbot Susi

    wieso ist das $AMOD2 kein Array??

    Wenn du die Funktion

    [autoit]

    _StringBetween

    [/autoit]

    erfolgreich (Betonung liegt auf erfolgreich) ausführst bekommst du als Rückgabewert ein Array zurück.
    Du solltest dir mal die Rückgabewerte bzw. @error ausgeben lassen, dann siehst du ob da überhaupt etwas kommt..

    Spoiler anzeigen
    [autoit]


    _StringBetween

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

    Gibt einen Teilstring zwischen einem angegebenen Start-String und einem Stopp-String zurück

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

    Rückgabewert
    Erfolg:
    Ein 0-basierendes $Array[0] enthält den ersten gefundenen String.
    Fehler:
    0
    @error:
    1 - Kein Zwischenstring gefunden.

    [/autoit]

  • Inireadsection 2D mit auswahl in gui und berechnung

    mach die Variablen Global und dann in der "Gui-Wend":

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>
    #include <ComboConstants.au3>
    #include <ButtonConstants.au3>
    #include <array.au3>

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

    Global $ini = @ScriptDir & "/beispiel.ini"
    Global $D= 4000, $C

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

    GUICreate("Beispiel", 200, 200)
    Global $Ergebnis = GUICtrlCreateLabel("", 50, 80, 75, 35)
    $font = "Times New Roman Fett"
    GUICtrlSetFont(-1, 25, -1, -1, $font)

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

    GUISetState(@SW_SHOW)

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

    $Button1 = GUICtrlCreateButton("Ergebnis:", 50, 130, 100, 50)
    $Farbe = GUICtrlCreateCombo("blau", 50, 50, 75, 20, $CBS_DROPDOWNLIST)

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

    Global $Key = IniReadSection($ini, "Farben")

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

    For $i = 1 To $Key[0][0]
    ConsoleWrite($Key[$i][0] & @CRLF)
    GUICtrlSetData($Farbe, $Key[$i][0])
    GUISetState()
    Next

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

    ;_ArrayDisplay($Key, "Adresse aufgeteilt")

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

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $Button1
    ;~ menge()
    Case $Farbe
    $C = IniRead($ini, "Farben", GUICtrlRead($Farbe), "")
    GUICtrlSetData($Ergebnis, $C * $D)
    EndSwitch
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd

    [/autoit]

    So brauchste die Funktion Menge nicht..

  • Auslesen aller SMART-Infos via WMI

    ScriptoMatic sagt:

    Spoiler anzeigen
    [autoit]


    ; Generated by AutoIt Scriptomatic

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

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

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

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

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

    If IsObj($colItems) then
    For $objItem In $colItems
    $Output = $Output & "Checksum: " & $objItem.Checksum & @CRLF
    $Output = $Output & "ErrorLogCapability: " & $objItem.ErrorLogCapability & @CRLF
    $Output = $Output & "ExtendedPollTimeInMinutes: " & $objItem.ExtendedPollTimeInMinutes & @CRLF
    $Output = $Output & "Length: " & $objItem.Length & @CRLF
    $Output = $Output & "OfflineCollectCapability: " & $objItem.OfflineCollectCapability & @CRLF
    $Output = $Output & "OfflineCollectionStatus: " & $objItem.OfflineCollectionStatus & @CRLF
    $Output = $Output & "SelfTestStatus: " & $objItem.SelfTestStatus & @CRLF
    $Output = $Output & "ShortPollTimeInMinutes: " & $objItem.ShortPollTimeInMinutes & @CRLF
    $Output = $Output & "SmartCapability: " & $objItem.SmartCapability & @CRLF
    $Output = $Output & "TotalTime: " & $objItem.TotalTime & @CRLF
    $strVendorSpecific = $objItem.VendorSpecific(0)
    $Output = $Output & "VendorSpecific: " & $strVendorSpecific & @CRLF
    $Output = $Output & "VendorSpecific2: " & $objItem.VendorSpecific2 & @CRLF
    $Output = $Output & "VendorSpecific3: " & $objItem.VendorSpecific3 & @CRLF
    $strVendorSpecific4 = $objItem.VendorSpecific4(0)
    $Output = $Output & "VendorSpecific4: " & $strVendorSpecific4 & @CRLF
    if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
    $Output=""
    Next
    Else
    Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "MSStorageDriver_ATAPISmartData" )
    Endif

    [/autoit]

    Aber ungetestet..

  • Bei ExecQuery stürzt Script ab

    Hallo,

    ich hab die untenstehende Funktion in meinem Script, die jedoch bei sehr wenigen Rechnern (gleiche Rechnerart, gleiches OS und Konfiguration) abstürzt. Es betrifft 8 von insgesamt ca. 400 Rechner

    Evtl. jmd. der mir das erklären kann??

    [autoit]


    Func PCSerial($strComputer = $LHost)
    Local $colItems, $objItem, $objWMIService, $SerialPC

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

    $objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\root\cimv2')
    $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_BIOS', 'WQL', 0x30); <<<<<<<<<<<<<<< bei wenigen Rechnern stürzt das hier ab..

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

    If IsObj($colItems) Then
    For $objItem In $colItems
    $SerialPC = $objItem.SerialNumber
    Next
    EndIf
    Return $SerialPC
    EndFunc ;==>PCSerial

    [/autoit]

    edit: hier der Fehler, wenn er abstürzt:

    Missing right bracket ')' in expression.:
    $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_BIOS', 'WQL', 0x30)

  • Excel - aktuelle Zeile (nicht Zelle) farbig hervorheben

    Evtl. hilft das etwas weiter:

    [autoit]


    ...
    If $oExcel.Selection.EntireRow.Row < 1 Then Exit
    If $oExcel.Selection.EntireRow.Interior.ColorIndex = 6 Then
    $oExcel.Selection.EntireRow.Interior.ColorIndex = 0;xlNone
    Else
    $oExcel.Selection.EntireRow.Interior.ColorIndex = 6 ;jelb
    EndIf

    [/autoit]

    markiert/demarkiert entweder die aktuelle oder alle markierten Zeilen..

  • Bilder Größe ändern

    übergib doch mal den Dateinamen zum Speichern, dann geht das auch:

    Spoiler anzeigen
    [autoit]


    #include <GDIPlus.au3>
    #include <WinAPI.au3>
    #include <File.au3>
    #include <Array.au3>

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

    ;~ $sInImage = FileOpenDialog("Bilder",@WindowsDir & "\", "Bilder (*.jpg)", 1 + 4 )
    ;~ $outfolder = @ScriptDir & "\19_Resize.jpg"

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

    DirCreate(@ScriptDir & "\Resized")
    Global $sInImage = FileSelectFolder("Select folder with pictures", "", 4, @ScriptDir)
    Global $outfolder = @ScriptDir & "\Resized"

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

    $iW = InputBox("Bildbreite", "Bitte geben Sie die Breite ein.", "", "")
    $iH = InputBox("Bildhöhe", "Bitte geben Sie die Höhe ein.", "", "")

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

    Global $aFiles = _FileListToArray($sInImage, "*.???", 0)
    For $i = 1 To $aFiles[0]
    If StringRegExp($aFiles[$i], "(?i).*\.png|.*\.JPG|.*\.bmp", 0) Then _ImageResize($sInImage & "\" & $aFiles[$i], $outfolder& "\" & $aFiles[$i], $iw,$ih)
    ;MsgBox(0,"",$sInImage & "\" & $aFiles[$i])
    Next

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

    ShellExecute($outfolder)

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

    Func _ImageResize($sInImage, $outfolder, $iW, $iH)
    Local $sOP, $sOF, $sInExt, $Ext, $hBitmap, $hImage1, $hImage2, $hGraphic, $CLSID, $i = 0
    Local $sType = "BMP|GIF|ICO|JPG|JPEG|PNG|TIF|TIFF"

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

    If Not FileExists($sInImage) Then Return SetError(1, 0, 0)
    $sInExt = StringUpper(StringTrimLeft($sInImage, StringInStr($sInImage, ".", 0, -1)))
    If Not StringRegExp($sInExt, "\A(" & $sType & ")\z", 0) Then Return SetError(2, 0, 0)

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

    ;OutFile path, to use later on.
    $sOP = StringLeft($outfolder, StringInStr($outfolder, "\", 0, -1))
    If Not FileExists($sOP) Then Return SetError(3, 0, 0)

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

    ;OutFile name, to use later on.
    $sOF = StringTrimLeft($outfolder, StringInStr($outfolder, "\", 0, -1))

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

    ;OutFile extension , to use for the encoder later on.
    $Ext = StringUpper(StringTrimLeft($outfolder, StringInStr($outfolder, ".", 0, -1)))
    If Not StringRegExp($Ext, "\A(" & $sType & ")\z", 0) Or $Ext = "ICO" Then Return SetError(4, 0, 0)

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

    If Not IsInt($iW) And Not IsInt($iH) Then Return SetError(5, 0, 0)

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

    ;Start GDIPlus
    _GDIPlus_Startup()

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

    ; WinAPI to create blank bitmap at the width and height to put your resized image on.
    $hBitmap = _WinAPI_CreateBitmap($iW, $iH, 1, 32)

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

    ;Get the handle of blank bitmap you created above as an image
    $hImage1 = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap)

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

    ;Load the image you want to resize.
    $hImage2 = _GDIPlus_ImageLoadFromFile($sInImage)

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

    ;Get the graphic context of the blank bitmap
    $hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage1)

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

    ;Draw the loaded image onto the blank bitmap at the size you want
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage2, 0, 0, $iW, $iH)

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

    ;Get the encoder of to save the resized image in the format you want.
    $CLSID = _GDIPlus_EncodersGetCLSID($Ext)

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

    ;Generate a number for out file that doesn't already exist, so you don't overwrite an existing image.
    Do
    $i += 1
    Until (Not FileExists($sOP & $i & "_" & $sOF))

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

    ;Prefix the number to the begining of the output filename
    $outfolder = $sOP & $i & "_" & $sOF

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

    _setres($hImage1); DPI setzen (Vorgabe 180)

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

    ;Save the new resized image.
    _GDIPlus_ImageSaveToFileEx($hImage1, $outfolder, $CLSID)

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

    ;Clean up and shutdown GDIPlus.
    _GDIPlus_ImageDispose($hImage1)
    _GDIPlus_ImageDispose($hImage2)
    _GDIPlus_GraphicsDispose($hGraphic)
    _WinAPI_DeleteObject($hBitmap)
    _GDIPlus_Shutdown()
    Return SetError(0, 0, 1)
    EndFunc ;==>_ImageResize

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

    Func _setres($hBitmap, $nDpiX= 180, $nDPIY = 180)
    Local $aResult = DllCall($ghGDIPDll, "uint", "GdipBitmapSetResolution", "hwnd", $hBitmap, "float", $nDpiX, "float", $nDPIY)
    Return $aResult[0] = 0
    EndFunc

    [/autoit]

  • Active Directory Funktionen - Neue Version 1.5.0.0 freigegeben!

    Hallo,

    ich bin mal so frei und frage einfach hier rein, ohne extra ein "Fred" aufzumachen:

    Über _AD_GetUserGroups kann ich die Gruppenmitgliedschaften auslesen, wie komme ich jedoch an die "Pre Windows 2000"-Gruppennamen der Gruppen ran?

    Hintergrund ist der, dass die mit o.a. Funktion die Gruppen teilweise "," und Leerzeichen beinhalten aber in den Pre-Windows2000-Namen eben nicht und sich mit den Pre-Namen einfacher setzen/löschen lassen.

  • Switch Liste erstellen

    ich würde sagen ein Klick in die Hilfe spuckt was aus:

    [autoit]


    GUICtrlSetData

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

    Verändert die Daten eines Controls.

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

    GUICtrlSetData ( controlID, data [, default] )

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

    Parameter
    ControlID
    Die Identifikationsnummer des Controls (Control-ID), wie von einer GUICtrlCreate... Funktion zurückgegeben.
    ...
    Group, Label, Button, Checkbox, Radio, ...: ersetzt den Text
    ...

    [/autoit]