Add AD computer description to script/GUI

[water]

Looks quite old (10-May-2007). Can you install the latest version 3.3.8.0 of Autoit and the latest SciTE editor as well?

Download AutoIt Full Installation and AutoIt Script Editor.

[mik3]

That did it! Thanks

[water]

Glad the problem is solved! Otherwise I would have run out of ideas.

[mik3]

In the last tab, I just have to type the name of the computer account I create in the previous tab right? Which should be the current computer name?

[mik3]

Instead of typing the computername in the last tab, could the script pull the current computername?

[water]

Right.

[water]

Sure. Change line 90 from

Global $hT2_ComputerName = GUICtrlCreateInput("", 208, 72, 209, 21)

to

Global $hT2_ComputerName = GUICtrlCreateInput(@ComputerName, 208, 72, 209, 21)

Edit: And line 67 too

Edited January 10, 2012 by water

[mik3]

90 is 88 on mine. Also 67 is 65. On line 65 do I copy the same one is $hT2 and the other $hT1?

[water]

Sorry, I've already updated my version of the script.

I've uploaded a new version to this

Please download - the computername is pre-set on tab1 and tab2.

[mik3]

Beautiful! Thanks so much.

I have read that koda allows one to create the GUI easier. Do you know of a good tutorial out there?

[water]

This is the for Koda. It has a link to the Koda wiki and there you find all you need to know about Koda.

[mik3]

I am getting errors creating computer accounts. However, when I try it a few times and even though errors appear, the computer account gets created. I do not have the error message with me now. I will post it tomorrow. I did not try joining, but will tomorrow. It would be nice to be able to search for a computer account to verify it was created.

[water]

The errors are caused by missing permissions. Every user is allowed to create up to 10 computer accounts. The AD function then sets some necessary permissions for this new account which needs some extra user permissions which an ordinary user doesn't have.

I will implement a computer search function.

[water]

I've uploaded a new version to this

Every Input field for username or computername now has a button to its right which displays a (filtered) list of users/computers.

Edited January 11, 2012 by water

[mik3]

The errors are caused by missing permissions. Every user is allowed to create up to 10 computer accounts. The AD function then sets some necessary permissions for this new account which needs some extra user permissions which an ordinary user doesn't have.

I will implement a computer search function.

Right. The way this tool will be used is on computers that have just been cloned. Since it is not joined and logged in as the local admin, the tool can not create computer accounts. The most important things are to join computer and be able to choose what OU it gets put in. Also computer description is important so that we may link computer to user. The creation of the computer account is not that important if I can do these things.

[water]

Even from a computer which is not a member of the domain yet you can run the script and create a computer.

On the "General" tab enter userid and password of a domain user with the proper permissions (plus the remaining domain relevant fields) to create a computer and set the permissions in AD.

[mik3]

I hope I am not becoming a pain, but it would be cool if in the serach feature there is a column for the location of the object. Thanks for all your help!!!

[mik3]

Even from a computer which is not a member of the domain yet you can run the script and create a computer.

On the "General" tab enter userid and password of a domain user with the proper permissions (plus the remaining domain relevant fields) to create a computer and set the permissions in AD.

I did that, but maybe I did something wrong. I will try again.

[water]

Replace the function List_Computer with this code.

; #FUNCTION# ====================================================================================================================
; Name...........: List_Computer
; Description ...: Create a list of computer accounts
; ===============================================================================================================================
Func List_Computer()
Local $sComputer = InputBox($sTitle, "Computer account(s) to search for." & @CRLF & "Wildcards are allowed.", "*", "", 300, 150, Default, Default, Default, $hGUI)
If @error = 1 Then Return
If _AD_Open() Then
  If StringInStr($sComputer, "*") = 0 Then $sComputer &= "*"
  Local $aComputer = _AD_GetObjectsInOU("", "(&(objectcategory=computer)(Samaccountname=" & $sComputer & "))", 2, "cn, description,location")
  If @error = 3 Then
   MsgBox(16, $sTitle, "No computer accounts found using the specified search pattern!")
  Else
   _ArrayDisplay($aComputer, "List of computer accounts", -1, 0, "", "|", "|Name|Description|Location")
  EndIf
  _AD_Close()
EndIf
Return 1
EndFunc   ;==>List_Computer

[water]

The "General" tab should look like:

<domain><userid>
<password>
DC=microsoft,DC=com
<servername>.microsoft.com
CN=Configuration,DC=microsoft,DC=com

<servername>.microsoft.com is optional.