Dim objflags,objChangePwdTrue, newpass, intPwdExpired, objPwdExpiredTrue, objPassword
Dim objuser, vdomain, vusername, wshshell, sMessage, sTitle, objdomain, objusername, strShell
Dim mailbox, forename, surname


' Set WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")

on error resume Next

'forename = InputBox(" Please enter your forename: ", "Open mailbox")
'surname = InputBox(" Please enter your surname: ", "Open mailbox")
mailbox = InputBox(" Please enter your FULL name with NO SPACES.                                                                                 e.g. joeboggs ", "Open mailbox")

	
Set wshShell = WScript.CreateObject("Wscript.Shell")
strShell = "http://homer/exchange/" & mailbox
intReturnCode = wshShell.Run (strShell, 0, True)
Set wshShell = Nothing