strTitle="Add New User"
strFirst=InputBox("Enter the user's first name:",strTitle,"John")
strLast=InputBox("Enter the user's last name:",strTitle,"Sample")
strChar=InputBox("Enter a single non alpha-numeric " &_ 
character:",strTitle,"!")
strCreated=Now
strSam=Left(strFirst,2) & Left(strLast,5) &_
 (Len(strLast)+Len(strFirst))
strDesc="Created " & strCreated
strPassword=Len(strLast)+Len(strFirst) & strChar & _
Left(StrReverse(strLast),5)
strMsg="Create account (" & strSam & ") for " &_
strFirst & " " & strLast & " with a password of " &_
strPassword & "?"
rc=MsgBox(strMsg,vbYesNo+vbQuestion+vbDefaultButton2,strTitle)
If rc=VbNo Then WScript.quit
'script continues....