Sign in to follow this  
Followers 0
Dalex

Help with arrays

8 posts in this topic

Hey guys, I have never really grasped the usage of arrays, and it really bugs me I have read the help notes I have read the wiki but for some reason I can't get it. Anyway, I am trying to check the local machine administrator group for a specific user (to make sure it was added correctly)

I figured I would collect the group, put it in an array and search the array for the value, then display a message if the specific value (User) was not found. I have used some of examples found here in the forums to create what I have below. At the moment I'm writing it in a msgbox just to test that I'm getting the information.

How do you correctkly put it into an array then search it? Also if there is a better way to do this please give me a hint.

(Thanks to spudw2k who posted the code that I have used)

#Include <Array.au3>
_GetLocalAdmins()
Func _GetLocalAdmins($host = @ComputerName)
    Dim $filter[1] = ["group"]
    $colGroups = ObjGet("WinNT://" & $host & "")
    If Not IsObj($colGroups) Then Return 0
    $colGroups.Filter = $filter
    For $objGroup In $colGroups
  Local $string
        If $objGroup.name = "Administrators" Then
            ConsoleWrite($host & @CRLF)
            For $objUser In $objGroup.Members
   $string = $String & $objUser.name & @CRLF
  Next
   msgbox(0,"",$String)
        EndIf
    Next
EndFunc

[size="2"][u]Beer is living proof that God loves us and wants us to be happy.-- Ben Franklin[/u][/size]

Share this post


Link to post
Share on other sites



#include <array.au3>
Dim $a_admins[1]
For $objUser In $objGroup.Members
   _ArrayAdd($a_admins, $objUser.name)
   $a_admins[0] += 1
Next
_ArrayDisplay($a_admins)


Regards,Hannes[spoiler]If you can't convince them, confuse them![/spoiler]

Share this post


Link to post
Share on other sites

Thanks for that quick reply! I'm very sorry to be so ignorant, but I get an erro when I attempt to test it

C:Usersremoved my nameDesktopTEST2.au3(59,34) : WARNING: $objGroup: possibly used before declaration.
For $objUser In $objGroup.Members
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:Usersremoved my nameDesktopTEST2.au3(59,34) : ERROR: $objGroup: undeclared global variable.
For $objUser In $objGroup.Members
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:Usersremoved my nameDesktopTEST2.au3 - 1 error(s), 1 warning(s)

[size="2"][u]Beer is living proof that God loves us and wants us to be happy.-- Ben Franklin[/u][/size]

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Well, I only sent you a part of the script.

you'll need to mash it up into what you posted first:

#Include <Array.au3>
_GetLocalAdmins()
Func _GetLocalAdmins($host = @ComputerName)
    Dim $filter[1] = ["group"]
    Dim $a_admins[1]    ;<<<<<<<<<<<<<<<<<<<<<

    $colGroups = ObjGet("WinNT://" & $host & "")
    If Not IsObj($colGroups) Then Return 0
    $colGroups.Filter = $filter
    For $objGroup In $colGroups
  Local $string
        If $objGroup.name = "Administrators" Then
            ConsoleWrite($host & @CRLF)
            For $objUser In $objGroup.Members
                _ArrayAdd($a_admins, $objUser.name)    ;<<<<<<<<<<<<<<<<<<<<<
                $a_admins[0] += 1    ;<<<<<<<<<<<<<<<<<<<<<
            Next
        EndIf
    Next
    _ArrayDisplay($a_admins)  ;<<<<<<<<<<<<<<<<<<<<<
EndFunc

see the Lines marked with "<"

Edit:

But then again, to confuse you even more, "_ArrayAdd" is a slow function, because it re-dims the array on every call. You could then go ahead and count the objects first, then dim your array and fill it at last, or create a string with delimiters in it and split it at the end, and ... :)

Edited by hannes08
1 person likes this

Regards,Hannes[spoiler]If you can't convince them, confuse them![/spoiler]

Share this post


Link to post
Share on other sites

Insert "Global $objGroup" at the top of your script.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Awesome thank you so much guys! I'm going to study this one for a while to try and get my mind wrapped around "Arrays" and this "$objgroup" thing.

Thanks again!

:)


[size="2"][u]Beer is living proof that God loves us and wants us to be happy.-- Ben Franklin[/u][/size]

Share this post


Link to post
Share on other sites

Also the group names are localized: for instance the name is "Administrateurs" in a french Windows.


This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Share this post


Link to post
Share on other sites

You are pretty lucky to get a reply. i asked the to do with arrays and still no answer. I may just have to study this thread eh ;-)

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0