So einfach wird es wohl nicht sein, denn es kommt darauf an, wie das Array im Speicher aufgebaut ist.
In AutoIt ist es simple: Dim $array[10] und du hast dein Array!
Aber wie sieht Struktur im Speicher aus?
Wenn du den Pointer des Arrays kennst und es ist genauso aufgebaut wie in AutoIt, dann kannst du es bestimmt "anzapfen".
Gruß,
UEZ
Happy Birthday und alles Gute zum 30. 
Gruß,
UEZ
Ich habe in meiner Test Domäne unter Pager einen Wert eingetragen, denn er auch in der MsgBox zeigt.
Gruß,
UEZ
Probiere es mal damit:
[autoit]
#include <AD.au3>
_AD_Open()
MsgBox(0, "Test", _AD_UserAttribute_GetAttribute("Test1", "pager"))
_AD_Close()
Func _AD_UserAttribute_GetAttribute($sAD_User, $attrib)
Local $attrib_val
If _AD_ObjectExists($sAD_User) = 0 Then Return SetError(1, 0, 0)
If StringMid($sAD_User, 3, 1) <> "=" Then $sAD_User = _AD_SamAccountNameToFQDN($sAD_User) ; sAMAccountName provided
Local $oAD_User = _AD_ObjGet("LDAP://" & $sAD_HostServer & "/" & $sAD_User)
If Not IsObj($oAD_User) Then Return SetError(2, 0, 0)
$attrib_val = $oAD_User.Get($attrib)
If @error <> 0 Then Return SetError(@error, 0, 0)
Return $attrib_val
EndFunc ;==>_AD_RemoveAttribut_ScriptPath
Gruß,
UEZ
Eine AD hochziehen ist eigentlich nicht schwer -> dcpromo.
Frage mal Google nach Anleitungen zum Installieren einer AD.
Gruß,
UEZ
Soweit ich mich noch erinnern kann, gibt es für Windows Server 2003 180 Tage Testversionen, für Windows Server 2008 kann man auch die Testversionen bis zu 3x verlängern!
Da ich in einer großen IT Firma arbeite, habe ich das volle Program parat. 
VMware Workstation v6.5 benutze ich für die Virtualisierung (gab es mal als Promo geschenkt),
kannst aber andere kostenlose Programme dafür einsetzen.
Eine AD hochziehen kannst du ja...
Gruß,
UEZ
Ok, das sollte funzen:
[autoit]
Func _AD_UserAttribut_DeleteLoginScriptPath($sAD_User)
Local Const $ADS_PROPERTY_CLEAR = 1
If _AD_ObjectExists($sAD_User) = 0 Then Return SetError(1, 0, 0)
If StringMid($sAD_User, 3, 1) <> "=" Then $sAD_User = _AD_SamAccountNameToFQDN($sAD_User) ; sAMAccountName provided
Local $oAD_User = _AD_ObjGet("LDAP://" & $sAD_HostServer & "/" & $sAD_User)
If Not IsObj($oAD_User) Then Return SetError(2, 0, 0)
$oAD_User.PutEx($ADS_PROPERTY_CLEAR, "scriptPath", 0)
$oAD_User.SetInfo
If @error <> 0 Then Return SetError(@error, 0, 0)
Return 1
EndFunc ;==>_AD_RemoveAttribut_ScriptPath
Gruß,
UEZ
Wie kann ich am besten den LoginScriptPath einer User ID löschen?
[autoit]
Func _AD_UserAttribut_DeleteLoginScriptPath($sAD_User)
If _AD_ObjectExists($sAD_User) = 0 Then Return SetError(1, 0, 0)
If StringMid($sAD_User, 3, 1) <> "=" Then $sAD_User = _AD_SamAccountNameToFQDN($sAD_User) ; sAMAccountName provided
Local $oAD_User = _AD_ObjGet("LDAP://" & $sAD_HostServer & "/" & $sAD_User)
If Not IsObj($oAD_User) Then Return SetError(2, 0, 0)
;~ $oAD_User.Remove($oAD_User.scriptPath)
$oAD_User.Put("scriptPath", "")
$oAD_User.SetInfo
If @error <> 0 Then Return SetError(@error, 0, 0)
Return 1
EndFunc ;==>_AD_RemoveAttribut_ScriptPath
Das funzt leider nicht!
Gruß,
UEZ
Wenn UAC aktiviert ist, sollte man in seinem Skript #RequireAdmin hinzufügen!
Also Windows und das eigene Skript!
Gruß,
UEZ
Probiere es mal damit:
[autoit]
; -------------------------------------------------
; Function: _ArrayDiff
; Purpose: Returns an array of elements from $avArray1 that do not occur in $avArray2
; Syntax: _ArrayDiff(ByRef $avArray1, ByRef $avArray2 [, $f_CaseSense = 0])
; Where: $avArray1 = ByRef source array
; $avArray2 = ByRef array to search for $avArray1 elements
; $f_CaseSense (optional) = Case sensitivity as passed to StringInStr()
; 0 = not case sensitive, using the user's locale (default)
; 1 = case sensitive
; 2 = not case sensitive, using a basic/faster comparison
; Returns: On success returns an array with [0] = count containing any elements
; from $avArray1 that do not occur in $avArray2
; If all elements in $avArray1 occur in $avArray2 then [0] = 0
; On Failure returns 1-element array [0] = 0 and sets @error.
; Author: PsaltyDS on http://www.autoitscript.com/forum
; Notes: Similar to PHP array_diff function
; --------------------------------------------------
Func _ArrayDiff(ByRef $avArray1, ByRef $avArray2, $f_CaseSense = 0)
Local $avRET[1] = [0], $sRET = ""
If (IsArray($avArray1) = 0) Or (UBound($avArray1, 0) <> 1) Then Return SetError(1, 1, $avRET)
If (IsArray($avArray2) = 0) Or (UBound($avArray2, 0) <> 1) Then Return SetError(1, 2, $avRET)
Local $sArray2 = Chr(1) & _ArrayToString($avArray2, Chr(1)) & Chr(1)
[/autoit][autoit][/autoit][autoit]For $n = 0 To UBound($avArray1) - 1
If Not StringInStr($sArray2, Chr(1) & $avArray1[$n] & Chr(1)) Then $sRET &= $avArray1[$n] & Chr(1)
Next
If StringLen($sRET) Then
$sRET = StringTrimRight($sRET, 1)
$avRET = StringSplit($sRET, Chr(1))
EndIf
Return $avRET
EndFunc ;==>_ArrayDiff
Gruß,
UEZ
Genau! Vielleicht würde es Sinn machen, #RequireAdmin in die AD UDF einzubauen! Vergiss es, funzt so leider nicht!
Ich habe mich zum Enterprise Admin gemacht, ohne Erfolg, bis ich auf den UAC gestoßen bin, als ich die AD Console aufgemacht habe...
Gruß,
UEZ
Die Lösung ist: #RequireAdmin in das Skript hinzufügen, da bei mir noch UAC aktiviert ist! 
Gruß,
UEZ
Hmm, die Berechtigunegn sehen gut aus!
In der AD Console kann ich ohne Probleme die Konten verschieben!
Gruß,
UEZ
Hmm, sieht nach einem Berechtigungsproblem aus!
Werde mal die Berechtigungen prüfen!
OS: Win2k8 SP1 Enterprise
Danke,
UEZ
Klasse UDF 
! Vielen Dank dafür!
Ich habe das gleiche Problem wie TheDude in Active Directory Funktionen "adfunctions.au3" zu einem "echten" UDF machen.
Ich kann zwar einen User verschieben, bekomme aber bei einem Computer Objekt den Fehler: -2147352567
Der Computer Account ist in: CN=Computer10,OU=Computers,OU=VM,DC=UEZ,DC=local und soll nach: OU=Computers,OU=Win7,DC=UEZ,DC=local verschoben werden.
Die Ziel OU existiert natürlich!
Aufruf:
[autoit]
...
$move = _AD_MoveObject($aFileContent[$i + 1], $aFileContent[$i])
$ec = @error
...
In $aFileContent[$i + 1] ist die Ziel OU abgelegt, also OU=Computers,OU=Win7,DC=UEZ,DC=local
Und $aFileContent[$i] beinhaltet das Computer Konto: Computer10$
_AD_GetObjectClass($aFileContent[$i]) gibt computer zurück.
Hast du noch ein Tipp für mich?
Meine UEZ Domäne ist übrigens in meiner VM, also wir können alles testen!
Ich benutze die Verion 0.43!
Gruß,
UEZ
Probiere es mal mit:
[autoit]
$array = StringRegExp($link, "[Level:</td><td>](\d+).[/td></tr>]", 3)
Gruß,
UEZ
Der "Schmiereffekt" ist gewollt, kannst es in Zeile 107 entsprechend anpassen, z.B. _GDIPlus_GraphicsClear($hBackbuffer, 0xE0000000), dann schmiert's nicht so sehr.
Nun ja, das gesamte Konstrukt benötigt ziemlich viel CPU Power
Woher bekomme ich die Formeln: probieren geht über Studieren 
Natürlich sollte man ein bissl Gefühl für Sinus und Kosinus haben und ich bin sicherlich kein Mathe Genie!
Gruß,
UEZ
GDIp.au3 ist im Prinzip die Erweiterung (inoffiziell) der GDIPlus (GDIPlus.au3) Bibliothek!
Teilweise hat sie leider noch ein paar Bugs...
Gruß,
UEZ
Das funzt bei mir eigentlich ganz gut, wobei ich dein delprof nicht testen kann!
Test.cmd in C:\Temp mit folgendem Inhalt anlegen:
@echo off
echo deleting...
ping localhost
echo.
echo deleting...
ping 127.0.0.1
echo.
ping web.de -n 20
echo.
dir /w
echo.
echo.
echo.
echo fettisch :-)Und hier dein Code:
#include <Constants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $pwd
#region ### START Koda GUI section ### Form=c:\users\michach\desktop\sd-tools.kxf
$Form1_1 = GUICreate("Form1", 568, 571)
$Tab1 = GUICtrlCreateTab(8, 8, 553, 553)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet2 = GUICtrlCreateTabItem("User Profile")
$Group1 = GUICtrlCreateGroup("Alle lokalen Profile löschen", 16, 48, 537, 97)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Hostname:", 49, 88, 69, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 120, 86, 89, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Löschen", 223, 85, 73, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Profil zurücksetzen", 16, 177, 537, 113)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Username:", 22, 218, 70, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 93, 216, 89, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Profil zurücksetzen", 206, 257, 145, 25, 0)
$Label3 = GUICtrlCreateLabel("Homeserver:", 194, 217, 82, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 276, 215, 89, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Hostname:", 378, 217, 69, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input4 = GUICtrlCreateInput("", 447, 215, 89, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
;~ $LabelAusgabe = GUICtrlCreateLabel("", 17, 304, 540, 22)
$LabelAusgabe = GUICtrlCreateEdit("", 17, 304, 540, 225, $ES_AUTOVSCROLL + $WS_VSCROLL)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label14 = GUICtrlCreateLabel("Version 1.0", 496, 536, 57, 17)
$TabSheet3 = GUICtrlCreateTabItem("Tools")
GUICtrlSetState(-1, $GUI_SHOW)
$Group3 = GUICtrlCreateGroup("Diverse Tools", 16, 48, 537, 465)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Display", 24, 152, 105, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("( Hostname ) Öffnet die Bildschirm-Einstellungen auf dem Rechner des Benutzers", 144, 155, 384, 17)
$Button4 = GUICtrlCreateButton("Einstellungen", 24, 202, 105, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("( Hostname ) Öffnet die Einstellungen auf dem Rechner des Benutzers", 144, 205, 334, 17)
$Button5 = GUICtrlCreateButton("Systemeig.", 24, 251, 105, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("( Hostname ) Öffnet die Systemeigenschaften auf dem Rechner des Benutzers", 144, 254, 372, 17)
$Button6 = GUICtrlCreateButton("Compverw.", 24, 301, 105, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("( Hostname ) Öffnet die Computerverwaltung auf dem Rechner des Benutzers.", 144, 304, 371, 17)
$Button7 = GUICtrlCreateButton("Quota", 24, 350, 105, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label9 = GUICtrlCreateLabel("( Hostname ) Startet eine Quota Abfrage auf dem Host für den Benutzer.", 144, 353, 343, 17)
$Label11 = GUICtrlCreateLabel("Hostname:", 58, 96, 69, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input5 = GUICtrlCreateInput("", 128, 94, 89, 24)
$Label12 = GUICtrlCreateLabel("Benutzername:", 302, 96, 93, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input6 = GUICtrlCreateInput("", 396, 94, 89, 24)
$Button9 = GUICtrlCreateButton("Shutdown", 25, 410, 105, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Label13 = GUICtrlCreateLabel("( Hostname ) Startet den Rechner innerhalt 5 Sek. neu. ( Erzwungen )", 145, 413, 332, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label10 = GUICtrlCreateLabel("Version 1.0", 497, 537, 57, 17)
$TabSheet4 = GUICtrlCreateTabItem("Hilfe")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
;If FileExists("c:\Kopie") Then
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit];Variablen
$tab1hostname1 = GUICtrlRead($Input1)
$tab1username = GUICtrlRead($Input2)
$tab1homeserver = GUICtrlRead($Input3)
$tab1hostname2 = GUICtrlRead($Input4)
$tab2hostname = GUICtrlRead($Input5)
$tab2username = GUICtrlRead($Input6)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;Case $Tab1
;###################################################################
;Alle lokalen Profile löschen
;###################################################################
Case $Button1
If GUICtrlRead ($Input1) <> "" Then
$cmdProfilLoeschen = Run(@ComSpec & " /c test.cmd ", "c:\temp", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
;~ $cmdProfilLoeschen = Run(@ComSpec & " /c delprof /c:\\" & $tab1hostname1 & " /i /q", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
While 1
$ausgabe = StdoutRead($cmdProfilLoeschen)
If @error Then ExitLoop
GUICtrlSetData($LabelAusgabe, $ausgabe, 1)
WEnd
Else
GUICtrlSetData ($LabelAusgabe,"Bitte den Hostnamen eingeben!" & @CRLF & @CRLF)
EndIf
;###################################################################
;Profil zurücksetzen
;###################################################################
Case $Button2
;Lokales Profil löschen
;Server Profil kopieren
If ($tab1hostname2 == "" Or $tab1username == "" Or $tab1homeserver == "") Then
GUICtrlSetData($LabelAusgabe, "Bitte alle Felder ausfüllen!")
Else
$kopieren = DirCopy("\\" & $tab1hostname2 & "\profile\" & $tab1username, "\\" & $tab1hostname2 & "\profile\" & $tab1username & ".sic")
GUICtrlSetData($LabelAusgabe, "Alle Felder ausgefüllt.")
EndIf
;###################################################################
;Display auf dem Host anzeigen
;###################################################################
Case $Button3
If ($tab2hostname == "") Then
GUICtrlSetData($LabelAusgabe, "Bitte den Hostnamen eingeben!")
Else
$cmdDisplay = Run(@ComSpec & " /c psexec \\" & $tab2hostname & " -u ewenet\%username% -i -p " & $pwd & " c:\winnt\system32\control.exe desk.cpl")
;GUICtrlSetData ($LabelAusgabe,$cmdDisplay)
EndIf
;###################################################################
;Führt settings.bat auf dem Host aus
;###################################################################
Case $Button4
If ($tab2hostname == "") Then
GUICtrlSetData($LabelAusgabe, "Bitte den Hostnamen eingeben!")
Else
$cmdEinstellungen = Run(@ComSpec & " /c Psexec \\" & $tab2hostname & " -s c:\winnt\settings.bat")
EndIf
;###################################################################
;Systemeigenschaften auf dem Host anzeigen
;###################################################################
Case $Button5
$cmdSystem = Run(@ComSpec & " /c psexec \\" & $tab2hostname & " -u ewenet\%username% -i c:\winnt\system32\rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0")
;###################################################################
;Computerverwaltung auf dem Host anzeigen
;###################################################################
Case $Button6
$cmdComputer = Run(@ComSpec & " /c psexec \\" & $tab2hostname & " -u ewenet\%username% -i -w C:\WINNT\system32 C:\WINNT\system32\mmc.exe C:\WINNT\system32\compmgmt.msc")
;###################################################################
;Quota des Benutzers abfragen
;###################################################################
Case $Button7
;$cmdQuota = Run(@COMSPEC & " /c Psexec \\"&$tab2hostname&" -s c:\winnt\settings.bat >NUL)
EndSwitch
WEnd
;InetGet - Lädt eine Datei aus dem Internet
[/autoit]Gruß,
UEZ