Frontpage
Forums
Tutorials
Members
Calendar
Subscription
Donate
Links
Contact 
Help
Quote
<HEAD><html>
<HTA:APPLICATION
ID="Gsm_UserAdd" SCROLL="No"
SCROLLFLAT ="No" SingleInstance="Yes"
ShowInTaskbar="Yes" SysMenu="Yes"
MaximizeButton="No" MinimizeButton="Yes"
Border="Thin" BORDERSTYLE ="complex"
INNERBORDER ="No" Caption="Yes"
WindowState="Normal" APPLICATIONNAME="Gsm_UserAdd"
Icon="%SystemRoot%\explorer.exe">
<Title>Gsm Add User</Title>
<!-- BODY STYLE -->
<STYLE type="text/css">
Body.Normal
{
font: 10.25pt Verdana;
color:#000080;
font-weight:bold;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0,StartColorStr='#86cceb',endColorStr='#5589ab');
padding-top:1;
padding-bottom:1;
Text-Align:;
}
.Txt1
{
font: 8.25pt Verdana;
color:#000080;
font-weight:bold;
padding-top:1;
padding-bottom:1;
}
.Txt2
{
font: 8.25pt Verdana;
color:#196239;
font-weight:bold;
padding-top:1;
padding-bottom:1;
}
Table.Normal
{
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0,StartColorStr='#E2E2E2',EndColorStr='#9e9e9e');
padding-top:1;
padding-bottom:1;
Text-Align:;
vertical-align:;
}
.Button
{
font: 8.25pt Verdana;
color:#E1E1E1;
font-weight:bold;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0,StartColorStr='#86cceb',endColorStr='#5589ab');
padding-top:1;
padding-bottom:1;
Text-Align:Center;
cursor:Hand;
Height:21;
width:77;
border-left: 1px Transparent #6480af;
border-right: 2px Transparent #6480af;
border-top: 1px Transparent #6480af;
border-Bottom: 2px Transparent #6480af;
}
</STYLE>
<!-- RE SIZE THE WINDOW AND PLACE THE WINDOW -->
<script Language="JavaScript">
window.resizeTo (375,275),window.moveTo (100,125);
</SCRIPT>
<!-- BODY ON LOAD AND LIST BOX -->
<script language="VBScript">
Dim Act : Set Act = CreateObject("WScript.Shell")
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim Uname : Uname = Act.ExpandEnvironmentStrings("%UserName%")
Dim DelHta : DelHta = Act.ExpandEnvironmentStrings("%SystemDrive%\UserAdd.Hta")
Dim strComputer,objGroup, objOption
Dim A1, A2, A3, CT : CT = 0
strComputer = Act.ExpandEnvironmentStrings("%ComputerName%")
'/-> MAKES THE LIST OF USER GROUPS
Function ComputerGroups()
Set colGroups = GetObject("WinNT://" & strComputer & "") : colGroups.Filter = Array("group")
For Each objGroup In colGroups
CT = CT + 1
Set objOption = Document.createElement("OPTION")
objOption.Value = CT
objOption.Text = objGroup.Name
If CT = 2 or CT = 4 or CT = 6 or CT = 8 or CT = 10 Then
objOption.style.backgroundcolor = "#C9C9C9"
objOption.style.color = "#3A3A3A"
Else
objOption.style.backgroundcolor = "#E9E9E9"
objOption.style.color = "#235779"
End If
AvailableGroups.Add(objOption)
Next
GU = Array(OBJGU)
Text.innerHTML = Uname & ", did you want to add a new user?"
End Function
'/-> GET THE VALUE FROM THE LIST BOX
Function SelectTheGroup()
For Each objOption in AvailableGroups.Options
If objOption.Selected Then
A3 = objOption.InnerText
End If
Next
End Function
</SCRIPT>
<!-- --></Head><Body Class='Normal' onLoad='ComputerGroups()'>
<!-- TOP TEXT --><Center><Table><TD Class='Txt1'><Span ID='Text'> </Span></TD></Table></Center><!-- -->
<!-- USER NAME -->
<script language="VBScript">
Function ClearUserName()
document.Forms(0).elements("UserName").value = ""
End Function
</SCRIPT>
<Table><Form><TD Class='Txt2' Width='80'>User Name</TD><TD>
<input type=text Size=35 Style='font:8.25pt Verdana;color:#1E1E1E;font-weight:bold;' name='UserName' tabindex=1>
</TD></Table></Form>
<!-- PASSWORD -->
<script language="VBScript">
Function ClearPassWord()
document.Forms(1).elements("PassWord").value = ""
End Function
</SCRIPT>
<Table><Form><TD Class='Txt2' Width='80'>Password</TD><TD>
<input type=text Size=35 Style='font:8.25pt Verdana;color:#1E1E1E;font-weight:bold;' name='PassWord' tabindex=2>
</TD></Table></Form>
<!-- GROUPS-->
<Table><TD Class='Txt2' Width='80'>Group</TD><TD>
<select size='1' name='AvailableGroups' style='width:230'></select></TD></Table>
<!-- TEXT MESSAGE-->
<Center><Table><TD Class='Txt2' Height='23'>Select the group name you want to add</TD></Table></Center>
<!-- START BUTTUN TABLE -->
<Center><Table Class='Normal'><!-- SPACER --><TD Width='15'></TD><!-- -->
<!-- ADD USER -->
<script language="VBScript">
<!--
'/--> WHERE ALL INPUT INFO GOES TO
Function UserAdd_OnClick
Dim ColGroup,NewUser
SelectTheGroup()
A1 = document.Forms(0).elements("UserName").value
If A1 = "" Then
window.alert Uname & ", there was no name in the inputbox" & "Type in the name in the top inputbox"
Exit Function
End If
If A1 <> "" Then
window.alert "New User Name = " & A1
End If
A2 = document.Forms(1).elements("PassWord").value
If A2 = "" Then : window.alert "You Have Select not to add a password to user" : End If
If A2 <> "" Then
window.alert "User Password = " & A2
End If
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objGroup = GetObject("WinNT://" & strComputer & "/" & A3 & ",group")
Set objUser = colAccounts.Create("user", "" & A1 & "")
objUser.SetPassword "" & A2 & ""
objUser.SetInfo
objGroup.Add(objUser.ADsPath)
Exit Function
End Function
-->
</SCRIPT>
<TD><INPUT NAME='UserAdd' TYPE='BUTTON' VALUE='Add User' Class='Button'></TD>
<!-- SPACER --><TD Width='15'></TD>
<!-- CLEAR TEXT -->
<script language="VBScript">
Function TextClear_OnClick
ClearUserName() : ClearPassWord()
End Function
</SCRIPT>
<TD><INPUT NAME='TextClear' TYPE='BUTTON' VALUE='Clear Text' Class='Button'></TD>
<!-- SPACER --><TD Width='15'></TD>
<!-- CLOSE HTA BUTTON -->
<script language="VBScript">
Function ExitHta_OnClick
If Fso.FileExists(DelHta) Then Fso.DeleteFile(DelHta) End If
window.close()
End Function
</SCRIPT>
<!-- CLOSE HTA BUTTON -->
<TD><INPUT NAME='ExitHta' TYPE='BUTTON' VALUE='Close Hta' Class='Button' STyle='color:#ad0000;'></TD>
<!-- SPACER --><TD Width='15'></TD><!-- --></Table></Center>
Updated Manage User Tool
This post has been edited by Yzöwl: 29 January 2008 - 02:24 PM
Reason for edit: code tags replaced to improve board formatting
Back to top
Posted 14 February 2008 - 01:53 AM
I found out that was what was causing my errors when running your HTA scripts before.
Posted 26 March 2008 - 03:10 AM
