' This script was originally published in the Exchange Cookbook,
' (http://www.exchangebookcook.com). Written by Paul Robichaux, 
' Missy Koslosky, and Devin Ganger. Redistributed with permission 
' of the publisher, O'Reilly & Associates.

' This code sets the public and private machine timeouts for OWA 2003
' ------ SCRIPT CONFIGURATION ------
strOWA = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MSExchangeWeb\OWA\"
intPubTimeout = 5
intPrivTimeout = 30
' ------ END CONFIGURATION ---------

Set objWSH = wscript.CreateObject("WScript.Shell")
objWSH.RegWrite strOWA & "PublicClientTimeout", intPubTimeout, "REG_DWORD"
WScript.echo "Public machine timeout set to" & intPubTimeout & " minutes."
objWSH.RegWrite strOWA & "TrustedClientTimeout", 30, "REG_DWORD"
WScript.echo "Public machine timeout set to " & intPrivTimeout & " minutes."