Quantcast
Channel: AutoIt v3 - General Help and Support
Viewing all articles
Browse latest Browse all 12506

Howto get group description with AD.AU3

$
0
0
Hello,

i would like to get some AD information

i get a csv file with the group list to proceed my audit.

i want to generate an csv file with : AD.AU3

groupname;descriptiongroup;user0;user1,user2,user3... etc...

i can give more information if requierd


; #FUNCTION#

==============
; Name...........: _AD_GetObjectAttribute
; Description ...: Returns the specified attribute for the named object.
; Syntax.........: _AD_GetObjectAttribute($sAD_Object, $sAD_Attribute)

SOURCE CODE :

[ autoit ]         
#region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Outfile=AEP\Auditgroup_OK.exe #endregion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <AD.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Array.au3> #include <file.au3> #include <TreeViewConstants.au3> #include <GuiListView.au3> #region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 365, 147, 192, 114) $Button1 = GUICtrlCreateButton("fichier", 280, 8, 75, 25) $Label1 = GUICtrlCreateLabel("--", 8, 48, 172, 17) $Label2 = GUICtrlCreateLabel("--", 192, 48, 164, 17) $Label3 = GUICtrlCreateLabel("click scan => ", 196, 112, 75, 25) $Progress2 = GUICtrlCreateProgress(8, 88, 350, 16) $Button2 = GUICtrlCreateButton("open", 8, 112, 75, 25) $Button3 = GUICtrlCreateButton("Scan", 280, 112, 75, 25) $listgroup = GUICtrlCreateInput(@ScriptDir & '\listgoup.csv', 8, 8, 265, 21) GUISetState(@SW_SHOW) #endregion ### END Koda GUI section ### Dim $aRecords Global $GetFolerpath, $ListeTable1, $SUserId, $sPassword, $sAD_DNSDomain, $sAD_HostServer, $sAD_Configuration, $liste Dim $hListView While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 getfile() Case $Button3 scan() EndSwitch WEnd Func getfile() Local $message = "Selectionner un fichier contenant la liste des groupes" Local $var = FileOpenDialog($message, @ScriptDir & "\", "Grouplist (*.csv)", 1) If @error Then MsgBox(4096, "", "No File(s) chosen") Else GUICtrlSetData($listgroup, $var) EndIf EndFunc ;==>getfile Func scan() FileDelete(@ScriptDir & '\audit_groupe.csv') _AD_Open() GUICtrlSetData($Label3, 'EN COURS') Local $groupesamaccount, $countlogline $tt = 0 $countline = _FileCountLines(@ScriptDir & '\listgoup.csv') $fopen = FileOpen(@ScriptDir & '\listgoup.csv', 0) While 1 $groupe = FileReadLine($fopen) If @error = -1 Then ExitLoop $tt = $tt + 1 $p2 = ($tt * 100) / ($countline) GUICtrlSetData($Progress2, $p2) GUICtrlSetData($Label1, $groupe) $groupeFQDN = _ad_SamAccountNameToFQDN($groupe) $result = _AD_GetGroupMembers($groupeFQDN) ;~ _ArrayDisplay($result) GUICtrlSetData($Label2, $result[0]) $filetemp = FileOpen(@ScriptDir & '\audit_groupe.csv', 1) Local $description = 'description' ;~ MsgBox(64, '$groupe & $tt & $result[0] ', $groupeFQDN & ' ' & $tt & ' ' & $result[0], 1000) Local $groupdescription = $sAD_Object($groupeFQDN, 'desctiption') MsgBox(64, '$groupedescription', $groupdescription, 1000) If $result[0] = 0 Then FileWriteLine($filetemp, $groupeFQDN & '; no member') Else For $x = 1 To $result[0] ;~ MsgBox(64, '$result[$x] ', $result[$x], 1000) ;~ local $FQDN = $result[$x] ;~ $usertowrite = _AD_FQDNToDisplayname($FQDN) ;~ MsgBox(64,'',$usertowrite,1000) If $x = 1 Then FileWriteLine($filetemp, $groupe & ';' & $result[$x]) Else FileWriteLine($filetemp, ' ' & ';' & $result[$x]) EndIf Next EndIf FileClose($filetemp) Sleep(500) WEnd _AD_Close() GUICtrlSetData($Label3, 'TERMINE') EndFunc ;==>scan


ERROR

[ autoit ]      
>Running:(3.3.8.1):C:\Program Files (x86)\AutoIt3\autoit3.exe "D:\DEV\deleteuserlist\AEP\Auditgroup_OK.au3" --> Press Ctrl+Alt+F5 to Restart or Ctrl+Break to Stop C:\Program Files (x86)\AutoIt3\Include\AD.au3 (4378) : ==> Variable must be of type "Object".: Return $__oAD_OpenDS.OpenDSObject($sAD_FQDN, $sAD_UserId, $sAD_Password, $__bAD_BindFlags) Return $__oAD_OpenDS^ ERROR ->19:07:09 AutoIT3.exe ended.rc:1 >Exit code: 1 Time: 6.205

Viewing all articles
Browse latest Browse all 12506

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>