Photo Gallery Member List Search Calendars FAQ Ticket List Log Out


Re: Create User Script

  		Logged in as: Guest
arrSession:exec spGetSession 2,2,3296
Active Users: There are 0 members and 0 guests.
Users viewing this topic: none
 

 

  
 
  Printable Version
All Forums >> [Scripting] >> WSH & Client Side VBScript >> Re: Create User Script
  Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks! 		Page: <<   < prev  2 3 [4] 5 6   next >   >>
Login
Message << Older Topic   Newer Topic >>
Re: Create User Script - 6/30/2005 8:33:47 PM   
  cjwallace

 

Posts: 484
Score: 0
Joined: 3/5/2005
From: United Kingdom
Status: offline
quote:
Originally posted by esnmb

cjwallace,

Ah yeah. Sorry, you can't use a Wscript.Sleep in an HTA or HTML App. Sorry about that. I have been thinking about it and would like you to just run setacl on your own from a command prompt with the appropriate parameters to see if you get any errors.

Example:

SetACL.exe -on "C:\my dir" -ot file -actn ace -ace "n:domain1\user1;p:change"


Hello mate, if I run the command you said to run I get:

Error: Invalid parameter specified: ace!

If I then remove the ace part I get:

Error: Invalid parameter specified: n:WITHERS\cjw;p:change!

I have never used setacl so I don't know what's wrong with the command.

Any ideas as to what is going on?

If it helps i am running v 0.9.0.4 of setacl

Thanks for your help

(in reply to cjwallace)
 
 
Post #: 61
 
Re: Create User Script - 6/30/2005 9:40:06 PM   
  cjwallace

 

Posts: 484
Score: 0
Joined: 3/5/2005
From: United Kingdom
Status: offline 		esnmb:

Hello mate, I have download the up to date version of setacl and surprise surprise it works.

Thanks so much for your help. I am sure i will be back soon with more issues.

But again thanks so much for your help.

(in reply to cjwallace)
 
 
Post #: 62
 
Re: Create User Script - 6/30/2005 10:06:22 PM   
  cjwallace

 

Posts: 484
Score: 0
Joined: 3/5/2005
From: United Kingdom
Status: offline 		esnmb:

Hello mate. Man this script is running good.

My next issue with the script is this and I have only just noticed it. When the user is created if I go into the OU to find the user instead of seeing the users First Name & Last Name I am seeing the users login which happens to be the users initials.

How can I change the script so that it displays the users First Name and Last Name and not the login id which happens to be their initials

Many thanks for all your help I could not have done this with out you.

(in reply to cjwallace)
 
 
Post #: 63
 
Re: Create User Script - 7/1/2005 2:34:06 AM   
  esnmb

 

Posts: 431
Score: 0
Joined: 1/11/2005
From: USA
Status: offline 		I had the same issue. Here is what you need.
I create a variable like so: strDisplay = strLast & ", " & strFirst
Then add it to AD like this: objUser.Put "displayName", strDisplay

(in reply to cjwallace)
 
 
Post #: 64
 
Re: Create User Script - 7/1/2005 2:35:06 AM   
  esnmb

 

Posts: 431
Score: 0
Joined: 1/11/2005
From: USA
Status: offline 		BTW, glad to hear that everything is working!

(in reply to cjwallace)
 
 
Post #: 65
 
Re: Create User Script - 7/1/2005 2:44:46 AM   
  cjwallace

 

Posts: 484
Score: 0
Joined: 3/5/2005
From: United Kingdom
Status: offline 		Hi Esnmb, Thanks very much for your reply. The code you have said to use above is already in the script. Any ideas as to what is going wrong?

Thanks for your help so far.

The Script so Far:

<html>
<HTA:APPLICATION
APPLICATIONNAME="Withers LLP AD Account Creation"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
>
<head>
<title>Withers LLP 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>

<script type="text/vbscript">

'This section is the error reporting for the application

Sub CreateAccount

strUser = TextBox0.Value
If strUser = "" Then
MsgBox "You're missing required fields.",64, "Alert"
Exit Sub
End If

strFirst = TextBox1.Value
If strFirst = "" Then
MsgBox "You're missing required fields",64, "Alert"
Exit Sub
End If

strInitial = TextBox2.Value

strLast = TextBox3.Value
If strLast = "" Then
MsgBox "You're missing required fields",64, "Alert"
Exit Sub
End If

strDisplay = strFirst & ", " & strLast

Const ADS_UF_ACCOUNTDISABLE = 2
Const ADS_PROPERTY_UPDATE = 2

' This section will create the user & set part of the General Page.

Set objOU = GetObject("LDAP://OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
Set objUser = objOU.Create("User", "cn=" & strUser)
objUser.Put "sAMAccountName", LCase(strUser)
objUser.Put "userPrincipalName", strUser & "@withers.net"
objUser.SetInfo

objUser.Put "givenName", strFirst

If strInitial <> "" Then
objUser.Put "initials", strInitial
End If

objUser.Put "sn", strLast
objUser.Put "displayName", strDisplay

' This section will assign the user a standard password

objUser.SetPassword "Passw0rd"
objUser.Put "pwdLastSet", 0

intUAC = objUser.Get("userAccountControl")
If intUAC And ADS_UF_ACCOUNTDISABLE Then
objUser.Put"userAccountControl", intUAC Xor ADS_UF_ACCOUNTDISABLE
End If
objUser.SetInfo

' Address Page Information

Set objUser = GetObject _
("LDAP://cn=" & strUser & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")

objUser.Put "streetAddress", "16 Old Bailey"
objUser.Put "l", "London"
objUser.Put "postalCode", "EC4M 7EG"
objUser.Put "c", "GB"
objUser.SetInfo

' General Page Information

Set objUser = GetObject _
("LDAP://cn=" & strUser & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")

objUser.Put "physicalDeliveryOfficeName", "London"
objUser.Put "telephoneNumber", "+44 (0)20 7597"
objUser.Put "mail", "@withersworldwide.com"
objUser.Put "wWWHomePage", "http://www.withersworldwide.com"
objUser.SetInfo

' Users Telephone Information

Set objUser = GetObject _
("LDAP://cn=" & strUser & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")

objUser.Put "facsimileTelephoneNumber", "+44 (0)20 7597 6543"
objUser.SetInfo

' Organization Information

Set objUser = GetObject _
("LDAP://cn=" & strUser & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")

objUser.Put "department", "Family Department"
objUser.Put "company", "Withers LLP"
objUser.SetInfo

'This Section Will Add the user to the Withers standard Security Groups

Const ADS_PROPERTY_APPEND = 3

Set objGroup = GetObject _
("LDAP://cn=LN London Users,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.PutEx ADS_PROPERTY_APPEND, _
"member", Array("cn=" & strUser & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.SetInfo

Set objGroup = GetObject _
("LDAP://cn=LN Family,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.PutEx ADS_PROPERTY_APPEND, _
"member", Array("cn=" & strUser & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.SetInfo

Set objGroup = GetObject _
("LDAP://cn=LN GWArchive,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.PutEx ADS_PROPERTY_APPEND, _
"member", Array("cn=" & strUser & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.SetInfo

' Users Home & Profile Information

(in reply to cjwallace)
 
 
Post #: 66
 
Re: Create User Script - 7/1/2005 2:50:51 AM   
  esnmb

 

Posts: 431
Score: 0
Joined: 1/11/2005
From: USA
Status: offline 		ok, Create another variable: strCN = strLast & "\, " & strFirst

When creating the user, replace Set objUser = objOU.Create("User", "cn=" & strUser) with
Set objUser = objOU.Create("User", "cn=" & strCN)

(in reply to cjwallace)
 
 
Post #: 67
 
Re: Create User Script - 7/1/2005 2:54:53 AM   
  esnmb

 

Posts: 431
Score: 0
Joined: 1/11/2005
From: USA
Status: offline 		Also, when you add the user to groups, you most likely will need to replace strUser with strCN:

Set objGroup = GetObject _
("LDAP://cn=LN London Users,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.PutEx ADS_PROPERTY_APPEND, _
"member", Array("cn=" & strCN & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.SetInfo

(in reply to cjwallace)
 
 
Post #: 68
 
Re: Create User Script - 7/1/2005 3:03:26 AM   
  cjwallace

 

Posts: 484
Score: 0
Joined: 3/5/2005
From: United Kingdom
Status: offline 		Thanks for your help on this.

Ok, that has done what i want it to, BUT and here is the but. When i run the script i get

Line: 89

Char: 1

Error: There is no such object on the server.

And when i go into the account that it has created all my info such as profile directorys, Address page info is blank.

The Code So far with the changes.

<html>
<HTA:APPLICATION
APPLICATIONNAME="Withers LLP AD Account Creation"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
>
<head>
<title>Withers LLP 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>

<script type="text/vbscript">

'This section is the error reporting for the application

Sub CreateAccount

strUser = TextBox0.Value
If strUser = "" Then
MsgBox "You're missing required fields.",64, "Alert"
Exit Sub
End If

strFirst = TextBox1.Value
If strFirst = "" Then
MsgBox "You're missing required fields",64, "Alert"
Exit Sub
End If

strInitial = TextBox2.Value

strLast = TextBox3.Value
If strLast = "" Then
MsgBox "You're missing required fields",64, "Alert"
Exit Sub
End If

strDisplay = strFirst & ", " & strLast
strCN = strLast & "\, " & strFirst
Const ADS_UF_ACCOUNTDISABLE = 2
Const ADS_PROPERTY_UPDATE = 2

' This section will create the user & set part of the General Page.

Set objOU = GetObject("LDAP://OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
Set objUser = objOU.Create("User", "cn=" & strCN)
rem Set objUser = objOU.Create("User", "cn=" & strUser)
objUser.Put "sAMAccountName", LCase(strUser)
objUser.Put "userPrincipalName", strUser & "@withers.net"
objUser.SetInfo

objUser.Put "givenName", strFirst

If strInitial <> "" Then
objUser.Put "initials", strInitial
End If

objUser.Put "sn", strLast
objUser.Put "displayName", strDisplay

' This section will assign the user a standard password

objUser.SetPassword "Passw0rd"
objUser.Put "pwdLastSet", 0

intUAC = objUser.Get("userAccountControl")
If intUAC And ADS_UF_ACCOUNTDISABLE Then
objUser.Put"userAccountControl", intUAC Xor ADS_UF_ACCOUNTDISABLE
End If
objUser.SetInfo

' Address Page Information

Set objUser = GetObject _
("LDAP://cn=" & strUser & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")

objUser.Put "streetAddress", "16 Old Bailey"
objUser.Put "l", "London"
objUser.Put "postalCode", "EC4M 7EG"
objUser.Put "c", "GB"
objUser.SetInfo

' General Page Information

Set objUser = GetObject _
("LDAP://cn=" & strUser & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")

objUser.Put "physicalDeliveryOfficeName", "London"
objUser.Put "telephoneNumber", "+44 (0)20 7597"
objUser.Put "mail", "@withersworldwide.com"
objUser.Put "wWWHomePage", "http://www.withersworldwide.com"
objUser.SetInfo

' Users Telephone Information

Set objUser = GetObject _
("LDAP://cn=" & strUser & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")

objUser.Put "facsimileTelephoneNumber", "+44 (0)20 7597 6543"
objUser.SetInfo

' Organization Information

Set objUser = GetObject _
("LDAP://cn=" & strUser & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")

objUser.Put "department", "Family Department"
objUser.Put "company", "Withers LLP"
objUser.SetInfo

'This Section Will Add the user to the Withers standard Security Groups

Const ADS_PROPERTY_APPEND = 3

Set objGroup = GetObject _
("LDAP://cn=LN London Users,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.PutEx ADS_PROPERTY_APPEND, _
"member", Array("cn=" & strUser & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.SetInfo

Set objGroup = GetObject _
("LDAP://cn=LN Family,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.PutEx ADS_PROPERTY_APPEND, _
"member", Array("cn=" & strUser & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.SetInfo

(in reply to cjwallace)
 
 
Post #: 69
 
Re: Create User Script - 7/1/2005 3:08:50 AM   
  esnmb

 

Posts: 431
Score: 0
Joined: 1/11/2005
From: USA
Status: offline 		Give this a try:


<html>
<HTA:APPLICATION
APPLICATIONNAME="Withers LLP AD Account Creation"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
>
<head>
<title>Withers LLP 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>

<script type="text/vbscript">

'This section is the error reporting for the application

Sub CreateAccount

strUser = TextBox0.Value
If strUser = "" Then
MsgBox "You're missing required fields.",64, "Alert"
Exit Sub
End If

strFirst = TextBox1.Value
If strFirst = "" Then
MsgBox "You're missing required fields",64, "Alert"
Exit Sub
End If

strInitial = TextBox2.Value

strLast = TextBox3.Value
If strLast = "" Then
MsgBox "You're missing required fields",64, "Alert"
Exit Sub
End If

strDisplay = strFirst & ", " & strLast
strCN = strLast & "\, " & strFirst
Const ADS_UF_ACCOUNTDISABLE = 2
Const ADS_PROPERTY_UPDATE = 2

' This section will create the user & set part of the General Page.

Set objOU = GetObject("LDAP://OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
Set objUser = objOU.Create("User", "cn=" & strCN)
rem Set objUser = objOU.Create("User", "cn=" & strUser)
objUser.Put "sAMAccountName", LCase(strUser)
objUser.Put "userPrincipalName", strUser & "@withers.net"
objUser.SetInfo

objUser.Put "givenName", strFirst

If strInitial <> "" Then
objUser.Put "initials", strInitial
End If

objUser.Put "sn", strLast
objUser.Put "displayName", strDisplay

' This section will assign the user a standard password

objUser.SetPassword "Passw0rd"
objUser.Put "pwdLastSet", 0

intUAC = objUser.Get("userAccountControl")
If intUAC And ADS_UF_ACCOUNTDISABLE Then
objUser.Put"userAccountControl", intUAC Xor ADS_UF_ACCOUNTDISABLE
End If
objUser.SetInfo

' Address Page Information

Set objUser = GetObject _
("LDAP://cn=" & strCN & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")

objUser.Put "streetAddress", "16 Old Bailey"
objUser.Put "l", "London"
objUser.Put "postalCode", "EC4M 7EG"
objUser.Put "c", "GB"
objUser.SetInfo

' General Page Information

objUser.Put "physicalDeliveryOfficeName", "London"
objUser.Put "telephoneNumber", "+44 (0)20 7597"
objUser.Put "mail", "@withersworldwide.com"
objUser.Put "wWWHomePage", "http://www.withersworldwide.com"
objUser.SetInfo

' Users Telephone Information

objUser.Put "facsimileTelephoneNumber", "+44 (0)20 7597 6543"
objUser.SetInfo

' Organization Information

objUser.Put "department", "Family Department"
objUser.Put "company", "Withers LLP"
objUser.SetInfo

'This Section Will Add the user to the Withers standard Security Groups

Const ADS_PROPERTY_APPEND = 3

Set objGroup = GetObject _
("LDAP://cn=LN London Users,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.PutEx ADS_PROPERTY_APPEND, _
"member", Array("cn=" & strCN & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.SetInfo

Set objGroup = GetObject _
("LDAP://cn=LN Family,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.PutEx ADS_PROPERTY_APPEND, _

(in reply to cjwallace)
 
 
Post #: 70
 
Re: Create User Script - 7/1/2005 3:09:26 AM   
  cjwallace

 

Posts: 484
Score: 0
Joined: 3/5/2005
From: United Kingdom
Status: offline
quote:
Originally posted by esnmb

Also, when you add the user to groups, you most likely will need to replace strUser with strCN:

Set objGroup = GetObject _
("LDAP://cn=LN London Users,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.PutEx ADS_PROPERTY_APPEND, _
"member", Array("cn=" & strCN & ",OU=FAMILY,OU=LONDON USERS,OU=WITHERS USERS,dc=withers,dc=net")
objGroup.SetInfo


Thanks for the reply mate. Ok i have strUser all over my script which works a treat. do i need to replace everything that has strUser with strCN?

(in reply to cjwallace)
 
 
Post #: 71
 
Re: Create User Script - 7/1/2005 3:10:21 AM   
  esnmb

 

Posts: 431
Score: 0
Joined: 1/11/2005
From: USA
Status: offline 		Use my last post. I modified what needed to be changed...hopefully.

(in reply to cjwallace)
 
 
Post #: 72
 
Re: Create User Script - 7/1/2005 3:23:42 AM   
  cjwallace

 

Posts: 484
Score: 0
Joined: 3/5/2005
From: United Kingdom
Status: offline 		esnmb: You are the man....I can thank you enough it works a treat. I love this script so much. I am going to put a reference to you in it. Thank you so much for all your hard work on this issue.

I have one small and i think last issue to try and resolve. With the email address as you can see it has @withersworldwide what i would like the script to do is put the users first and last name before it with a . in the middle eg FirstName.LastName@withersworldwide.com

Is this something you can help me on. Again i cant thank you enough for all your help. I wish could buy you a beer.

' General Page Information

objUser.Put "physicalDeliveryOfficeName", "London"
objUser.Put "telephoneNumber", "+44 (0)20 7597"
objUser.Put "mail", "@withersworldwide.com"
objUser.Put "wWWHomePage", "http://www.withersworldwide.com"
objUser.SetInfo

(in reply to cjwallace)
 
 
Post #: 73
 
Re: Create User Script - 7/1/2005 3:27:32 AM   
  esnmb

 

Posts: 431
Score: 0
Joined: 1/11/2005
From: USA
Status: offline 		My pleasure, really.

I think it can be done like so:

objUser.Put "physicalDeliveryOfficeName", "London"
objUser.Put "telephoneNumber", "+44 (0)20 7597"
objUser.Put "mail", strFirst & "." & strLast & "@withersworldwide.com"
objUser.Put "wWWHomePage", "http://www.withersworldwide.com"
objUser.SetInfo

If that doesn't work, make a variable with that info:
strMail = strFirst & "." & strLast & "@withersworldwide.com"

objUser.Put "physicalDeliveryOfficeName", "London"
objUser.Put "telephoneNumber", "+44 (0)20 7597"
objUser.Put "mail", strMail
objUser.Put "wWWHomePage", "http://www.withersworldwide.com"
objUser.SetInfo

(in reply to cjwallace)
 
 
Post #: 74
 
Re: Create User Script - 7/1/2005 3:35:16 AM   
  esnmb

 

Posts: 431
Score: 0
Joined: 1/11/2005
From: USA
Status: offline 		But, to create an Exchange mailbox you may find this useful:

' Creates the users mailbox
Set oIADSUser = GetObject("LDAP://CN=" & strCN & "," & strLDAP)
oIADSUser.CreateMailbox "LDAP://CN=Mailbox Store (EXCHANGE),CN=First Storage Group,CN=InformationStore,CN=ExchangeServerName,CN=Servers,CN=MIDDLETOWN,CN=Administrative Groups,CN=Site,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=domain,DC=com"
oIADSUser.SetInfo

Watch for word wrapping. If you are unsure of the whole LDAP string for your Exchange environment, open up ADSIEdit and drill down in the configuration by following the LDAP string in my example in reverse order to find yours. Once you find your CN=Mailbox Store, right click on it and go to properties ,and get the distinguishedName.

< Message edited by esnmb -- 1/2/2007 5:35:33 AM >

(in reply to cjwallace)
 
 
Post #: 75
 
Re: Create User Script - 7/1/2005 3:37:55 AM   
  cjwallace

 

Posts: 484
Score: 0
Joined: 3/5/2005
From: United Kingdom
Status: offline 		Thanks mate, that worked a treat. I really cant thank you enough for all your help on taking your script and making it bigger. You have been so much help to me and I have learnt so so so much about vbscript from you.

Again thank you so much, I really cant thank you enough

(in reply to cjwallace)
 
 
Post #: 76
 
Re: Create User Script - 7/1/2005 3:39:17 AM   
  esnmb

 

Posts: 431
Score: 0
Joined: 1/11/2005
From: USA
Status: offline 		Any time my friend. Good luck with it all.

(in reply to cjwallace)
 
 
Post #: 77
 
Re: Create User Script - 7/1/2005 3:56:55 AM   
  cjwallace

 

Posts: 484
Score: 0
Joined: 3/5/2005
From: United Kingdom
Status: offline 		Thank you so much

I am going to expand on this script to try and make it do a few more things. I hope you can help me further, but for this week i am just over the moon that it works the way i want it to.

Have a good weekend

Craig

(in reply to cjwallace)
 
 
Post #: 78
 
Re: Create User Script - 7/1/2005 6:17:13 AM   
  esnmb

 

Posts: 431
Score: 0
Joined: 1/11/2005
From: USA
Status: offline 		I've expanded it many times over since I posted my code originally. My HTA stands at 1104 lines of code now...

Once you learn how to do it, you will find it pretty fun to add stuff to make it more like an application.

I have multi-select drop downs, check boxes to create home folders and mailboxes, sends HTML emails with a summary of everything, as well as a toned down email for an alternative manager email address that can be added. It's fun doing this since I'm a Network Engineer and not a developer so it's a good change of pace.

Matt

(in reply to cjwallace)
 
 
Post #: 79
 
Re: Create User Script - 7/1/2005 6:39:57 AM   
  sdeklerk

 

Posts: 16
Score: 0
Joined: 6/28/2005
From: the Netherlands
Status: offline 		I'm a network administrator and i really enjoy making vbscript for myself these days! Still learning, but this site helps alot.

Slowly the peaces come together ;)

(in reply to cjwallace)
 
 
Post #: 80
 
 
Page:  <<   < prev  2 3 [4] 5 6   next >   >>
 
 

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.
All Forums >> [Scripting] >> WSH & Client Side VBScript >> Re: Create User Script Page: <<   < prev  2 3 [4] 5 6   next >   >>
Jump to:





New Messages No New Messages
Hot Topic w/ New Messages Hot Topic w/o New Messages
Locked w/ New Messages Locked w/o New Messages
 Post New Thread
 Reply to Message
 Post New Poll
 Submit Vote
 Delete My Own Post
 Delete My Own Thread
 Rate Posts




Forum Software © ASPPlayground.NET Advanced Edition 2.5.5 ANSI