' 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 creates the EnableFreedocs key on the local server and reboots
' the server
' ------ SCRIPT CONFIGURATION ------
strOWA = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MSExchangeWeb\OWA\"
strFreedoc = strOWA & "EnableFreedocs"
' ------ END CONFIGURATION ---------

Set objWSH = wscript.CreateObject("WScript.Shell")
objWSH.RegWrite strFreedoc, 3, "REG_DWORD"
WScript.echo "Successfully created key; rebooting..."
objWSH.Run"rundll32 shell32.dll,SHExitWindowsEx 2"