UDF Sammlung

[autoit]

;===============================================================================
;
; Function Name: OU_read_from_PC
; Description:: Liest die Organisations Unit (OU) aus dem Active Directory (AD) eines im AD vorhandenen Computers aus
; Parameter(s): $AD_COMPUTER (Der Computername)
; Requirement(s): -
; Return Value(s): Beim Erfolg: gibt den OU des DomänenComputers aus .
;
; Author(s): TOMTOM25m (Garnreiter (c)2008)
;
;===============================================================================
;

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

Func OU_read_from_PC($AD_COMPUTER)

Const $ADS_SCOPE_SUBTREE = 2

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

$objConnection = ObjCreate("ADODB.Connection")
$objCommand = ObjCreate("ADODB.Command")

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

$objConnection.Provider = "ADsDSOObject"
$objConnection.Open("Active Directory Provider")
$objCommand.ActiveConnection = $objConnection

$objCommand.Properties("Page Size") = 1000
$objCommand.Properties("Searchscope") = $ADS_SCOPE_SUBTREE

$objCommand.CommandText = "SELECT ADsPath FROM 'LDAP://dc=domain,dc=lan' WHERE objectCategory='computer' AND name='" & $AD_COMPUTER & "'"

$objRecordSet = $objCommand.Execute

$objRecordSet.MoveFirst

Do
$AD_OU_INFO = $objRecordSet.Fields("ADsPath" ).Value
$objRecordSet.MoveNext
Until $objRecordSet.EOF

$objCommand = 0
$objRecordSet = 0
$AD_OU_INFO = StringSplit($AD_OU_INFO, ",")
$AD_OU_INFO = StringTrimLeft($AD_OU_INFO [3], 3)
Return $AD_OU_INFO
EndFunc ;==>OU_read_from_PC

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

[autoit]

#include <Misc.au3>
If _IsPressedText("Dein Text", 2000) Then MsgBox(0, "Juhu!", "Geklappt")

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

Func _IsPressedText($Text, $Zeit_zwischen_Tastendruck = 1200) ;Zeit in ms
If Not IsString($Text) Then Return SetError(1, 1, 0)
If Not IsNumber($Zeit_zwischen_Tastendruck) Then SetError(1, 2, 0)
If $Zeit_zwischen_Tastendruck <= 0 Or Default Then $Zeit_zwischen_Tastendruck = 50
$DLL = DllOpen("user32.dll")
For $i = 1 To StringLen($Text)
$Aktuelles_Zeichen = StringMid($Text, $i)
$Tastencode = Hex(Asc($Aktuelles_Zeichen))
$Zeitstempel = TimerInit()
While 1
If _IsPressed($Tastencode, $DLL) Then ExitLoop
Sleep(1)
If TimerDiff($Zeitstempel) >= $Zeit_zwischen_Tastendruck Then Return SetError(2, 0, 0)
WEnd
Next
DllClose($DLL)
Return 1
EndFunc

[/autoit]