Beiträge von water
-
-
-
An Beispiele habe ich gedacht, ja.
Ich suche mir derzeit gerade die Infos aus dem Web zusammen und versuche eine Struktur im Wiki aufzubauen. Erster early alpha Versuch.
Bei den Connection Strings verzweige ich dann in jeweils eine eigene Unterseite und erläutere den genauen Aufbau des Strings inkl. Beispiele.Ideen und Beispiele sind willkommen!
-
Falls jemand Interesse daran hat, dass ich ein Tutorial für ADO-Zugriffe auf SQL-Datenbanken (MS SQL, Oracle, MySQL, SQLite ..), Excel, Text-Dateien etc. erstelle, dann bitte hier voten.
Beispielcode. Das Tutorial erklärt dann, was hier genau geschieht.
[autoit]$sPath_to_database = "C:\Temp\text delimited files"
[/autoit][autoit][/autoit][autoit]
$connection = "DRIVER={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & $sPath_to_database & ";Extensions=asc,csv,tab,txt;"
$adoCon = ObjCreate("ADODB.Connection")
$adoCon.Open($connection)
If @error Then Exit MsgBox(48, "Error", "error " & @error)
$adoRs = ObjCreate("ADODB.Recordset")
$adoSQL = "SELECT * FROM Countries.csv"
$adoRs.CursorType = 2
$adoRs.LockType = 3
$adoRs.Open($adoSQL, $adoCon)With $adoRs
[/autoit][autoit][/autoit][autoit]
If .RecordCount Then
While Not .EOF
$sResult = $sResult & "" & .Fields("Continent").Value & "|" & .Fields("alpha_2").Value & "|" & .Fields("English_Country_Name").Value & @CR
.MoveNext
WEnd
EndIf
EndWith$adoCon.Close
[/autoit]
MsgBox(0, "Result", $sResult) -
Zudem ist das Verhalten beim markieren mit der Maus o.ä., etwas sehr störend.
Gemeint ist das: Beim markieren einer Textstelle, werden alle gleichen Textstellen auch markieren (zwar etwas anders, aber dennoch absolut störend/verwirrend).Das Verhalten selbst lässt sich ein- und ausschalten. Auch die Farben für die aktuelle gefundene/markierte Stelle bzw. die weiteren Treffer lassen sich einstellen.
-
Hier gibt's die Beschreibung was die neue Version von SciTE (3.30) kann (Changelog).
-
Hier ein kleines Spielzeug über das Wochenende:
[autoit]; #FUNCTION# ====================================================================================================================
[/autoit][autoit][/autoit][autoit]
; Name...........: _AD_RecursiveGetGroupMembers
; Description ...: Takes a group and recursively returns a list of groups and members of the group.
; Syntax.........: _AD_RecursiveGetGroupMembers($sGroup[, $iDepth = 10[, $bListInherited = True[, $bFQDN = True]]])
; Parameters ....: $sGroup - Group for which the members should to be returned. Can be specified as Fully Qualified Domain Name (FQDN) or sAMAccountName
; $iDepth - Optional: Maximum depth of recursion (default = 10)
; $bListInherited - Optional: Defines if the function returns the group it is a member of (default = True)
; $bFQDN - Optional: Specifies the attribute to be returned. True = distinguishedName (FQDN), False = SamAccountName (default = True)
; Return values .: Success - Returns an one-based one dimensional array of group or member names (FQDN or sAMAccountName)
; Failure - "", sets @error to:
; |1 - Specified group does not exist
; Author ........: Jonathan Clelland
; Modified.......: water
; Remarks .......: This function traverses the groups in the specified group until the maximum depth is reached.
; if $bListInherited = True the return is the FQDN or sAMAccountname of the group or member and the FQDN(s) or sAMAccountname(s) of the group it
; is a member of, seperated by '|'(s) if flag $bListInherited is set to True.
;+
; If flag $bListInherited is set to False then the group/member names are sorted and only unique entries are returned.
; Related .......: _AD_GetGroupMembers
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _AD_RecursiveGetGroupMembers($sGroup, $iDepth = 10, $bListInherited = True, $bFQDN = True)If _AD_ObjectExists($sGroup) = 0 Then Return SetError(1, 0, "")
[/autoit][autoit][/autoit][autoit]
If StringMid($sGroup, 3, 1) <> "=" Then $sGroup = _AD_SamAccountNameToFQDN($sGroup) ; sAMAccountName provided
Local $iCount1, $iCount2
Local $sField = "distinguishedName"
If Not $bFQDN Then $sField = "samaccountname"
$__oAD_Command.CommandText = "<LDAP://" & $sAD_HostServer & "/" & $sAD_DNSDomain & ">;(memberof=" & $sGroup & ");" & $sField & ";subtree"
Local $oRecordSet = $__oAD_Command.Execute
Local $aMembers[$oRecordSet.RecordCount + 1] = [0]
If $oRecordSet.RecordCount = 0 Then Return $aMembers
$oRecordSet.MoveFirst
$iCount1 = 1
Local $aTempMembers[1]
Do
$aMembers[$iCount1] = $oRecordSet.Fields(0).Value
If $iDepth > 0 Then
$aTempMembers = _AD_RecursiveGetGroupMembers($aMembers[$iCount1], $iDepth - 1, $bListInherited, $bFQDN)
If $bListInherited Then
For $iCount2 = 1 To $aTempMembers[0]
$aTempMembers[$iCount2] &= "|" & $aMembers[$iCount1]
Next
EndIf
_ArrayDelete($aTempMembers, 0)
_ArrayConcatenate($aMembers, $aTempMembers)
EndIf
$iCount1 += 1
$oRecordSet.MoveNext
Until $oRecordSet.EOF
$oRecordSet.Close
If $bListInherited = False Then
_ArraySort($aMembers, 0, 1)
$aMembers = _ArrayUnique($aMembers, 1, 1)
EndIf
$aMembers[0] = UBound($aMembers) - 1
Return $aMembersEndFunc ;==>_AD_RecursiveGetGroupMembers
[/autoit] -
Mit der aktuellen Beta Version kannst Du bei ObjGet angeben, welche Instanz zu verwenden möchtest.
Ich hatte einmal ein Problem mit Word und ObjCreate. Die Funktion gab die Kontrolle zu früh an das AutoIt Script zurück. Der näcshte COM Befehle brachte dann einen Fehler. Das Problem war ein unsauber programmiertes add-in.
Zeig mal Dein Skript, dann kann man mehr sagen. -
Kannst Du das genauer beschreiben? "Geht nicht" ist etwas wenig hilfreich. Wie sieht Dein Skript aus? Etc.
-
Im Firefox nach Addons und "Mozrepl" suchen und installieren.
-
Wenn Du, wie wir, eine ganze Farm von TerminalServern hast, dann wird das etwas mühsam. Daher haben wir den Weg über das Login-Skript gewählt.
-
Von AD bekommst Du diese Info nicht, da AD die Info nicht hat.
Wir haben das ins Login-Skript eingebaut, dass Datum und PC/Terminal Server in eine zentrale Datei geschrieben werden. -
Leider nein. Bin selbst derzeit zu 110% eingespannt.
Hoffe, ich komme demnächst mal dazu.
Solltest Du bis in einem Monat nichts gehört haben, erinnere mich nochmals. Vielleicht habe ich es einfach nur vergessen. -
Leider nein.
Die äußere While Schleife wartet, bis das Warnfenster aufpoppt. Die innere wartet, bis der Button freigegeben wird. Zuerst ist er inaktiv und kann erst nach einiger Zeit angeklickt werden. Daher die beiden While Schleifen. -
Kompilierst Du das Skript dann auch für 32 Bit?
-
Leider bist Du männlich und nicht ganz meine Altersklasse. Und außerdem viel zu weit weg
-
GuiCtrlRead liefert immer einen String zurück. Es muss daher lauten:
[autoit]$oJpgSaveOptions.Quality = Number(GUICtrlRead($iQualitaet))
[/autoit] -
Die Excel UDF kann leider noch kein XML. Schau Dir mal meine ExcelEX UDF an.
Ist aber leider erst in der Alpha Phase - sprich: nicht ganz perfekt -
Fehler vom COM error handler gibt es nun keine mehr? Auch wenn die Bilder noch nicht gespeichert werden?
-
Aber trotzdem scheint das Skript ein Problem zu haben das Objekt anzulegen.
Und ich frage immer sicherheitshalber. Im engl. Forum hatte ich mal einen User der sich wunderte, warum sein Skript immer abrauchte, bis sich rausstellte, dass er gar kein Excel installiert hatte.
Als nächstes solltest Du einen COM error handler einrichten, damit wir möglichst viel Info über den Fehler bekommen. Siehe Funktion ObjEvent.