|
I have vb script to create exchange mailbox but not TS profile.
The code is as follow:
Dim sMBXStoreDN, suserid
Set objOU = GetObject("LDAP://OU=test,dc=jis,dc=edu,dc=bn")
'Create the User Account
Set objUser = objOU.Create("User","cn=sample")
'Set Account properties
objuser.Put "samAccountName", sample
objUser.Put "sn", sample
objUser.SetInfo
'Create Mailbox
sMBXStoreDN= "LDAP://JISFNP01/CN=Staff JIS," & _
"CN=First Storage Group," & _
"CN=InformationStore,CN=JISEXCH01,cn=Servers," & _
"CN=First Administrative Group,CN=Administrative Groups," & _
"CN=Jis Organization,CN=Microsoft Exchange," & _
"CN=Services,CN=Configuration,DC=jis,DC=edu,DC=bn"
Set objMailbox = objuser
'create a milbox for the recipient
objMailbox.CreateMailbox sMBXStoreDN
objuser.Setinfo
wscript.echo "user mailbox created successfully"
| 
![[Big Grin]](images/icons/grin.gif){kind=icon}
