Misschien is dit wat, een HTA pagina? Zie
http://www.visualbasicscript.com/m_3296/mpage_9/key_/tm.htm
Laatste zelf ook opzoek naar zoiets, delegatie zit er niet in maar het aanmaken van accounts gaat wel automatisch. Voor ons zelf hebben hebben we er enkele zaken toegevoegd, create home profile dir met rechten en set user properties in AD.
Quote script van website:
[/align]<html>
<HTA:APPLICATION
APPLICATIONNAME="Account Creation"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
>
<head>
<title>User Account Creation Form</title>
<style type="text/css">
<!--
.style3 {font-size: 13px}
body,td,th {
font-family: Arial, Helvetica, sans-serif;
}
.style2 { font-family: Arial, Helvetica, sans-serif;
font-size: 13.5pt;
color: #CC6600;
font-weight: bold;
}
.style5 {font-size: small; color: #FF0000; }
.style6 {color: #FF0000}
-->
</style> [/align] [/align]<script type="text/vbscript">
Sub CreateAccount [/align] [/align]strUser = TextBox0.Value
If strUser = "" Then
MsgBox "You're missing required fields.",64, "Alert"
Exit Sub
End If [/align] [/align]strFirst = TextBox1.Value
If strFirst = "" Then
MsgBox "You're missing required fields",64, "Alert"
Exit Sub
End If [/align] [/align]strInitial = TextBox2.Value [/align] [/align]strLast = TextBox3.Value
If strLast = "" Then
MsgBox "You're missing required fields",64, "Alert"
Exit Sub
End If [/align] [/align]strDisplay = strLast & ", " & strFirst [/align] [/align]Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;" [/align] [/align]Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection [/align] [/align]objCommand.CommandText = _
"<GC://dc=XXXX,dc=XXXX,dc=XXXX,dc=com>;(&(objectCategory=Person)(objectClass=user)" & _
"(samAccountName=" & strUser & "));samAccountName;subtree" [/align] [/align]Set objRecordSet = objCommand.Execute [/align] [/align]If objRecordSet.RecordCount = 0 Then [/align] [/align]Else
MsgBox "The User Account already exists.",48,"Alert"
Exit Sub
End If [/align] [/align]objConnection.Close [/align] [/align]Const ADS_UF_ACCOUNTDISABLE = 2
Const ADS_PROPERTY_UPDATE = 2 [/align] [/align]Set objRootDSE = GetObject("[link=http://www.visualbasicscript.com/ldap://rootDSE]LDAP://rootDSE[/link]")
strContainer = "ou=test,ou=test,ou=Users,ou=User Accounts"
Set objOU = GetObject("LDAP://" & strContainer & "," & _
objRootDSE.Get("defaultNamingContext"))
Set objUser = objOU.Create("User", "cn=" & strUser)
objUser.Put "sAMAccountName", LCase(strUser)
objUser.SetInfo [/align] [/align]objUser.Put "givenName", strFirst [/align] [/align]If strInitial <> "" Then
objUser.Put "initials", strInitial
End If [/align] [/align]objUser.Put "sn", strLast
objUser.Put "displayName", strDisplay [/align] [/align]objUser.SetPassword "password"
objUser.Put "pwdLastSet", 0 [/align] [/align]intUAC = objUser.Get("userAccountControl")
If intUAC And ADS_UF_ACCOUNTDISABLE Then
objUser.Put"userAccountControl", intUAC Xor ADS_UF_ACCOUNTDISABLE
End If
objUser.SetInfo [/align] [/align]End Sub [/align] [/align]Sub Reload
Location.Reload(True)
End Sub [/align] [/align]Sub bodyLoaded()
window.ResizeTo 600,510 ' WIDTH, HEIGHT
End Sub [/align] [/align]</script>
</head>
<body onLoad="bodyLoaded()">
<p><img src="/images/logo.gif" width="189" height="46"></p>
<p class="style2">Account Creation Page.</p>
<table width="289" border="0" align="left">
<tr>
<td width="89"><span class="style5">*</span>Login ID: </td>
<td width="144"><input type="text" name="textbox0"></td>
</tr>
<tr>
<td><span class="style5">*</span>First Name:</td>
<td><input type="text" name="textbox1"></td>
</tr>
<tr>
<td>Middle Initial: </td>
<td><input type="text" name="textbox2"></td>
</tr>
<tr>
<td><span class="style5">*</span>Last Name: </td>
<td><input type="text" name="textbox3"></td>
</tr>
</table>
<p> </p>
<p> </p>
<p> </p>
<p><br>
<input type="button" name="Submit" value="Submit" onClick="CreateAccount">
</p>
<p>The login ID will have an initial password of password. </p>
<p>The new employee will also be requiered to change their password at first logon. </p>
<p class="style3"><span class="style6">*</span> Indicates Required Field</p>
<p>
<input id="reloadbutton" class="button" type="reset" value="Clear Form" name="reload_button" onClick="Reload">
</p>
<p>
<input type="button" value=" Exit " name="close_button" onClick="Self.Close">
</p>
</body>
</html> [/align]