'Script by Bill Prentice 'Found on: http://blogs.technet.com/b/exchange/archive/2011/09/08/configure-automatic-replies-for-a-user-in-exchange-2010.aspx Set objMAPISession = CreateObject("MAPI.Session") strExchangeSvr = InputBox("Please provide the name of your Exchange Server") strMailbox = InputBox("Please provide the name of the Mailbox that you wish to set OOO") strMAPI = strExchangeSvr & vbLf & strMailbox On error Resume Next objMAPISession.Logon "", "", False, True, 0, False, strMAPI If err <> 0 Then Wscript.Echo "An Error occured: " & err.description Err.clear Wscript.Sleep 7000 Wscript.Quit End If strOOOMessage = InputBox("Please type in the OOO message for this user") objMAPISession.OutOfOfficeText = strOOOMessage objMAPISession.OutOfOffice = 1 strOOOMessage = objMAPISession.OutOfOfficeText objMAPISession.Logoff Set objMAPISession = Nothing