Windows Script to open Office files with read only.

Office_readonly.vbs

Dim strFileName, strExt
Dim objApp

'Check arguments
If WScript.Arguments.Count <> 1 Then WScript.Quit

'get file name
strFileName = WScript.Arguments(0)
strExt = LCase(Right(strFileName, 4))

Select Case strExt
  Case "pptx", ".ppt"
    'open powerpoint
    Set objApp = WScript.CreateObject("Powerpoint.Application")
    objApp.Visible = True
    'open file with read only
    Call objApp.Presentations.Open(strFileName,True)

  Case "docx", ".doc"
    'open word
    Set objApp = WScript.CreateObject("Word.Application")
    objApp.Visible = True
    'open file with read only
    Call objApp.Documents.Open(strFileName,,True)

  Case "xlsx", ".xls"
    'open excel
    Set objApp = WScript.CreateObject("Excel.Application")
    objApp.Visible = True
    'open file with read only
    Call objApp.Workbooks.Open(strFileName,,True)

End Select

'finish
Set objApp = Nothing
WScript.Quit