1

関連するボタンがクリックされたときに明らかに呼び出される、イントラネットから編集するために Word ドキュメントを開く次のようなコードがあります。

  Dim objWord
  Sub Btn956_onclick()
    call OpenDoc("\\server01\folder1\docname.docx")
  End Sub
  Sub OpenDoc(strLocation)
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = true
    objWord.Documents.Open strLocation
  End Sub

これを IE (スタッフ用の標準ブラウザ) で動作させるには、インターネット セキュリティ設定を一度だけ変更してもらう必要があります (そうしないと、javascript エラーが発生するだけです)。特に、イントラネット ゾーンの [安全とマークされていない ActiveX コントロールの初期化とスクリプトの作成] 設定が無効から有効に変更されました。

ユーザーが技術的なサポートなしでこの設定を更新できるようにするには、正しく設定されていない場合に設定を変更する必要があることをユーザーに通知する方法が必要です。上記の OpenDoc コマンドが設定を更新していないために失敗していることをプログラムで検出する方法はありますか?

4

1 に答える 1

1

これを行うには、レジストリを読み取る必要があります。ただし、OSやIEのバージョンに依存するところ。たとえば、IE6 の場合は HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Internet Settings および HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings などです。

サイトが属するセキュリティ ゾーンにも依存します。スクリプトでレジストリを読み取るには、ユーザーに十分な権限が必要です。反対に、ユーザーがスクリプトから設定を正しく設定できる十分な権限を持っている場合、彼は私が推測するいくつかのプロンプトを確認する必要があります。

グループポリシーで設定を正しく設定し、これらの設定をワークステーションに配布するのが最善の策だと思います。グループ ポリシーを使用しない場合は、適切なレジストリ キーを探してテストし、ログオン スクリプトを使用して配布するか、.reg ファイルをダブルクリックして手動で読み込むことができます。

于 2012-05-16T07:18:18.470 に答える