Hallo Zusammen
Bitte nicht steinigen, ich bin Anfänger!
Ich benötige Hilfe, da ich nicht sehe wie dies mit der Schleife weiter verarbeitet werden sollte.
Auch die ConsolWrite ausgabe spuckt mir nichts aus.
Bin wirklich froh um jede Hilfe!
AutoIt
#include <AD.au3>
#include <GUIConstantsEx.au3>
#include <FileConstants.au3>
_AD_Open()
Global $file, $sOutput, $sOutput2, $sOutput3, $UserName, $Tmp, $aUser
Global $Form1, $Input1, Button1, $Exit
$Form1 = GUICreate("AD-Tool - MemberOf", 269, 110,193,115)
$Input1 = GUICtrlCreateInput("",72,16,121,21)
$Button1 = GUICtrlCreateButton("Read Out Now!",72,50,90,30,0)
$Exit = GUICtrlCreateButton("Exit",170,50,90,30,0)
GUISetState(@SW_SHOW)
While 1 ;;; start of loop[/COLOR]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(1,"1.Fenster",""& GuiCtrlRead($Input1)) ; enthält Input1
$aUser = _AD_GetUserGroups(GUICtrlRead($Input1))
MsgBox(1,"2.Fenster",""& GuiCtrlRead($Input1),100) ; enthält Input1
MsgBox(1,"3.Fenster","", $aUser) ; leer
$file = FileOpen("test.txt", 2)
FileWriteLine($file, "Name : "& GuiCtrlRead($Input1))
For $i = 1 to UBound(GuiCtrlRead($Input1)) -1
$sOutput = StringRegExpReplace(GuiCtrlRead($Input1)[$i]), '^CN=([^,]+),OU=.+,'$1')
$sOutput2 = StringRegExpReplace($sOutput, '^CN=([^,]+),DN=.+,'$1')
$sOutput3 = StringRegExpReplace($sOutput2, '^CN=([^,]+),CN=.+,'$1')
$sOutput3 = StringReplace($sOutput3, 'á', "ß")
$sOutput3 = StringReplace($sOutput3, 'š', "Ü")
$sOutput3 = StringReplace($sOutput3, '™', 'Ä')
$sOutput3 = StringReplace($sOutput3, 'š', 'Ö')
$sOutput3 = StringReplace($sOutput3, 'Ž', "ü")
$sOutput3 = StringReplace($sOutput3, '„', "ä")
$sOutput3 = StringReplace($sOutput3, '”', "ö")
ConsoleWrite (_ANSI2OEM($sOutput3 &@LF))
FileWriteLine($file, $sOutput3 & @CRLF)
Next
Func _ANSI2OEM($text)
$text = DllCall('user32.dll', 'Int', 'CharToOem', 'str', $text, 'str', '')
Return $text[2]
FileClose($file)
Exitloop
EndSwitch
WEnd
EndFunc
; ((Get-ADUser "User" -Properties *).MemberOf -split (",") | Select-String -SimpleMatch "CN=") -replace "CN=","";"
Alles anzeigen