Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
'==========================================================================
'
' NAME: OWAFreedoc.vbs
' VERSION: 1.0
'
' AUTHOR: Pat Richard, Exchange MVP
' URL: http://blog.innervation.com/
'
' COPYRIGHT (c) 2007 ALL RIGHTS RESERVED - YOU'RE FREE TO ALTER THIS CODE,
' BUT PLEASE PASS ALONG ANY IMPROVEMENTS TO THE AUTHOR SO THAT OTHERS MAY
' BENEFIT.
'
' DATE: 01/11/2007
'
' PURPOSE: Allows you to configure access to freedocs via OWA
' WEB: http://blog.innervation.com/
'
' USE: Run manually
' MORE INFO: http://support.microsoft.com/kb/834743/
'
' CREDITS:
' SOME SCRIPTING METHODS AND IDEAS LEACHED DIRECTLY FROM
' MARK D. MACLACHLAN, THE SPIDER'S PARLOR
' URL: http://www.thespidersparlor.com/vbscript.asp
'
' DISCLAIMER:
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
' ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED To
' THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
' PARTICULAR PURPOSE.
'
' IN NO EVENT SHALL THE AUTHOR AND/OR HIS EMPLOYER, COLLEAGUES,
' FRIENDS, SPOUSE, OR CATS BE LIABLE FOR ANY SPECIAL, INDIRECT OR
' CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
' LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
' NEGLIGENCE OR OTHER TORTIOUS, ACTION, ARISING OUT OF OR IN
' CONNECTION WITH THE USE OR PERFORMANCE OF THIS CODE OR INFORMATION.
'
' CHANGELOG:
' 1.0 - Original release
'==========================================================================
On Error Resume Next
Set WSHShell = CreateObject("WScript.Shell")
strExchangeKey = "HKLM\System\CurrentControlSet\Services\MSExchangeWeb\OWA\"
strExchangeSubKey = "EnableFreedocs"
strFreedoc = WSHShell.RegRead (strExchangeKey & strExchangeSubKey)
If strFreedoc = "" Then
strFreedoc = "Not enabled"
End If
strPrompt = InputBox ("Current value = " & strFreedoc & vbcrlf & vbcrlf & "Please choose from one of the following options:" & vbcrlf & vbcrlf _
& "0 = Freedocs are inaccessible in OWA. This value is the default value." & vbcrlf & vbcrlf _
& "1 = Freedocs are accessible in OWA, but only when the freedocs are accessed from the back-end server." & vbcrlf & vbcrlf _
& "2 = Freedocs are accessible in OWA, but only when the freedocs are accessed from the back-end server or the front-end server by using a host header that matches an entry in the AcceptedAttachmentFrontEnds registry value." & vbcrlf & vbcrlf _
& "3 = Freedocs are accessible everywhere.","Please enter a value",1)
WshShell.RegWrite strExchangeKey & strExchangeSubKey, strPrompt, "REG_DWORD"
Const INFORMATION = 4
report = "OWA Freedoc access setting set to " & strPrompt
WshShell.LogEvent INFORMATION, report & vbCrLf & "Script courtesy http://blog.innervation.com/"
WScript.Quit