windows - ini ファイルと Config ファイルをメモ帳で開く VBScript

Question

私は病院環境で働いており、現在 PC の導入を行っています。展開の一部では、ネットワーク ドライブ上の 2 つのファイルを表示して、古いシステムに関する情報を探す必要があります。特定のポートや TTY を使用して、各部門の情報を表示します。

2 つの異なるメモ帳ウィンドウで 2 つのファイルを開くことができる VBS ファイルを作成しようとしています。最初のものは開きますが、pcview.cfg でエラーが発生し続けます。HBOWEM32 が指しているのと同じ場所にリンクしようとしています。誰でも解決できますか？セキュリティ上の理由から、ネットワーク ドライブの正確な場所を取り出しました。以下のコードは、古い PC 名である特定のフォルダー名を要求します。そのデータを入力すると、HBOWEM32 ファイルが正常に開きますが、他の部分が見つからないと表示されます。フォルダー内を手動で調べたところ、pcview.cfg ファイルが存在します。実行プロンプトを強制的に実行するのではなく、これらを開くためのより高速な方法が必要です。

これがコードです。

CONST strDir = "<Netowrk Location)"
Dim WshShell

set objShell = CreateObject("WScript.Shell")
set objFSO = CreateObject("Scripting.FileSystemObject")

function findFolder(strDir, strFlag)
    set objFolder = objFSO.GetFolder(strDir)
    for each objSubFolder in objFolder.SubFolders
        if (inStr(objSubFolder.Name, strFlag)) then
            findFolder = objSubFolder.Path
            exit function
        else        
            findFolder = findFolder (objSubFolder.Path, strFlag)
        end if
   next
end function

strFlag = inputBox("Enter Computer Name:")
strWeb = findFolder(strDir, strFlag) & "\HBOWEM32.ini"
objShell.Run strWeb

Set WshShell = CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe """ + "\\<same location as above>\Pcview.cfg""")