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"