Another Admin Tool for Active Directory

[arcker]

Edited February 16, 2006 by arcker

[arcker]

updated

[SpookMeister]

Nice work!

[JerryD]

Hi everyone !

edit : 02/16/2006

<snip>

and now, here is the code :

<snip>
func _log($actionjournal,$descriptionjournal,$dureetraitement = "non défini")
    GUICtrlCreateListViewItem($compteurjournal & "|" & $objgroup.cn & "|" & $actionjournal & "|" & &#0

Errr... I think some code got lost in the edit????

[sksbir]

hello arker,

pretty interesting

I'have already wrote a WSH script witch do some AD management, using wshdialog.dll in order to get dialog boxes

So I will not rewrite it in autoit language .

Edited February 22, 2006 by sksbir

[arcker]

oh really ?

ok but i try to integrate as mush as possible some functionalities

so, if you have any ideas....

++

Edited July 2, 2006 by arcker

[sksbir]

Sorry , but the script is for a realy dedicated usage : i mean, it uses the fact that for example, the printers definitions are stored is AD security groups...

The behaviour of the script is:

- fist locate the user in AD : give some letters, and script will perform a AD search on displayname and samaccount name.

The multiple results are stored in a combo box : you have to choose the user you want.

Once the user is choosed, the memberof list is showed in option box (so you can select the groups you want )

- select the action ( group cloning, adding group , reset password, move user,etc...)

- if action is group cloning, you must select the destination user

- if action is adding group, you must select the group to ad

- if action is move user, you must select the destination OU.

etc...

Only once it's ok, the "execute" button will appear.

Edited February 22, 2006 by sksbir

[jpm]

@sksbir and @arcker

If you want to discuss about vbs script can you do it at least in english or privately by PM.

I was thinking this scripts and scraps forum is around AutoIt script.

Thanks for people that don't understand french

[SpookMeister]

Thanks for people that don't understand french

There are a lot of people who don't understand the French

[sksbir]

@sksbir and @arcker

If you want to discuss about vbs script can you do it at least in english or privately by PM.

I was thinking this scripts and scraps forum is around AutoIt script.

Thanks for people that don't understand french

you are right. this is now not a problem at all.

--> two preceding reply edited.

[jpm]

you are right. this is now not a problem at all.

--> two preceding reply edited.

Thanks very much

"Merci beaucoup" for those which are learning french.

[Rahul Rohela]

I cant understand it.. Please convert it to English..

[jpm]

I cant understand it.. Please convert it to English..

"Merci Beaucoup" = "Thank you very much"

[SpookMeister]

"Merci Beaucoup" = "Thank you very much"

[Rahul Rohela]

h

[Zedna]

Doubleclick in Listview:

Global Const $WM_NOTIFY = 0x004E
Global Const $NM_FIRST = 0
Global Const $NM_CLICK = ($NM_FIRST - 2)
Global Const $NM_DBLCLK = ($NM_FIRST - 3)

GUIRegisterMsg($WM_NOTIFY, "WM_Notify_Events")

Func WM_Notify_Events($hWndGUI, $MsgID, $wParam, $lParam)
    #forceref $hWndGUI, $MsgID, $wParam
    Local $tagNMHDR, $event
    
    $tagNMHDR = DllStructCreate("int;int;int", $lParam)
    If @error Then Return
    $event = DllStructGetData($tagNMHDR, 3)
    
    Select
        Case $wParam = $ListView1
            Select
                Case $event = $NM_CLICK
                    ListViewClick()
                Case $event = $NM_DBLCLK
                    ListViewDoubleClick()
            EndSelect
    EndSelect
    
    $tagNMHDR = 0
EndFunc