Valnurat Posted October 15, 2022 Share Posted October 15, 2022 I'm trying to find computer objects by using the AD filter, but I can't figure it out. I have this: #include <AD.au3> #include <Excel.au3> #include <FileConstants.au3> #include <MsgBoxConstants.au3> ;OpenExcel() UpdateExcel() _AD_Open() Func OpenExcel() Local Const $sMessage = "Select a single file of any type." ; Open an existing workbook and return its object identifier. Local $sWorkbook = FileOpenDialog($sMessage, @ScriptDir & "\", "Excel (*.xls;*.xlsx)", $FD_FILEMUSTEXIST) ; Create application object Local $oExcel = _Excel_Open() If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpen Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended) Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook) If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpen Example 1", "Error opening '" & $sWorkbook & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) EndFunc Func UpdateExcel() Local $sOU = "OU=Computers,OU=so,OU=dk,OU=company,DC=ad,DC=company,DC=org" MsgBox(0,"",$sOU) Local $aObjects = _AD_GetObjectsInOU($sOU, "(&(objectclass=computer)", Default, "cn") _ArrayDisplay($aObjects,"1") EndFunc _AD_close() I'm just getting this error: $__oAD_Command.CommandText = "<LDAP://" & $sAD_HostServer & "/" & $sAD_DNSDomain & ">;(" & $sProperty & "=" & $sObject & ");ADsPath;subtree" $__oAD_Command^ ERROR Yours sincerely Kenneth. Link to comment Share on other sites More sharing options...
water Posted October 15, 2022 Share Posted October 15, 2022 Which line of your script raises this error? My UDFs and Tutorials: Spoiler UDFs:Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsOutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - DownloadOutlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - WikiPowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - WikiTask Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs:Excel - Example Scripts - WikiWord - Wiki Tutorials:ADO - WikiWebDriver - Wiki Link to comment Share on other sites More sharing options...
Valnurat Posted October 15, 2022 Author Share Posted October 15, 2022 Just now, water said: Which line of your script raises this error? Local $aObjects = _AD_GetObjectsInOU($sOU, "(&(objectclass=computer)", Default, "cn") Yours sincerely Kenneth. Link to comment Share on other sites More sharing options...
Subz Posted October 15, 2022 Share Posted October 15, 2022 You're using _AD_Open() below the UpdateExcel() function, Link to comment Share on other sites More sharing options...
Valnurat Posted October 15, 2022 Author Share Posted October 15, 2022 1 minute ago, Subz said: You're using _AD_Open() below the UpdateExcel() function, Facepalm Thank you. 😶 Yours sincerely Kenneth. Link to comment Share on other sites More sharing options...
water Posted October 16, 2022 Share Posted October 16, 2022 Should be: Local $aObjects = _AD_GetObjectsInOU($sOU, "(&(objectclass=computer))", Default, "cn") My UDFs and Tutorials: Spoiler UDFs:Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsOutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - DownloadOutlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - WikiPowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - WikiTask Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs:Excel - Example Scripts - WikiWord - Wiki Tutorials:ADO - WikiWebDriver - Wiki Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now