VBSの内容を編集したい（アクションを増やしたい）

質問

現在のVBS記述は以下のとおりです。

NUM = MsgBox("メール" & vbCrLf & "日報" & vbCrLf & "緊急案件" & vbCrLf & "引継ぎ・持ち越しアクション" & vbCrLf & "すべて確認しましたか？", vbYesNo + vbCritical, "お疲れ様です。")
if (num =VBYES) then
msgbox "モニターを消して業務終了してください。" & vbCrLf & "お疲れ様でした♪",0,"ＯＫ！"（※１）
elseif (NUM =VBNO) then
msgbox "すべてチェックしてください！",0,"注意"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "z:\v\hhc\本部\業務処理関係\終了チェック.vbs"
Set WshShell = Nothing
msgbox "業務終了前には、必ずチェックしてください！"
end if

上記（※１）でOKを押したときに、c:\s.lnkを実行するようにしたいのですが、どのように記述すればよいでしょうか？

当方、VBは疎く、この記述を作った担当者が退職したために、動かすことができなくなり困っております。

回答No.1

noname#144013 · ベストアンサー

こんにちは。

ご提示の内容より、ご使用のOSはWindowsだと仮定して書かせて
頂きます。

> c:\s.lnkを実行するようにしたいのですが、・・・

「s.lnk」というのは何かの『ショートカット』でしょうか？

その場合、「s.lnk」の実体（リンク先の実体ファイル）が
　　・実行可能ファイル（exe、bat、vbs など）
　　・そのファイルを開くアプリケーションの関連付けがされている
の何れかの場合は、
　　 WshShell.Run "C:\s.lnk"
の記述で起動（開く）が可能だと思います。

ですので、ご提示のスクリプト（VBS）を変更させて頂くと、

＝＝＝↓ここから＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit
Dim Ans
Dim WshShell

'== Shellオブジェクトの取得 ==
Set WshShell = WScript.CreateObject("WScript.Shell")

'== [Yes/No]の確認メッセージ表示 ==
Ans = MsgBox("1) メール" & vbCrLf & "2) 日報" & vbCrLf _
& "3) 緊急案件" & vbCrLf & "4) 引継ぎ・持ち越しアクション" _
& vbCrLf & vbCrLf & "すべて確認しましたか？", _
vbYesNo + vbQuestion, "お疲れ様です。")

'== [Yes/No]の応答による分岐処理 ==
If (Ans = vbYes) Then
MsgBox "モニターを消して業務終了してください。" _
& vbCrLf & "お疲れ様でした♪",, "ＯＫ！"
WshShell.Run "C:\s.lnk"
ElseIf (Ans = vbNo) Then
MsgBox "すべてチェックしてください！", vbExclamation, "注意"
WshShell.Run "Z:\v\hhc\本部\業務処理関係\終了チェック.vbs"
MsgBox "業務終了前には、必ずチェックしてください！", vbExclamation, "確認"
End If

'== Shellオブジェクトの解放 ==
Set WshShell = Nothing
＝＝＝↑ここまで＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

のようになると思います。（これは一例です。）
一部、変数名、メッセージボックスの表示内容の変更、及びコメント付加などを
させて頂きました。宜しければ検証してみて下さい。

VBScript及びWSHの構文、使い方等については下記の参考サイトをご覧下さい。
※WSH（Windows Scripting Host）とは、Windows上でVBScriptやJScriptなどの
　スクリプト言語を実行するための環境を指します。
　（WSHは最近のWindowsでは標準で実装されていると思います。）

■参考サイト（VBS／WSH関連）
WSH@Workshop - WSHのサンプル集＆リファレンス
http://wsh.style-mods.net/
VBScript/JScriptプログラミング＆Tips for WSH
http://www.happy2-island.com/vbs/
VBScript関数リファレンス
http://www.kanaya440.com/contents/script/

以上です。

お礼

修正案だけでなく、参考サイトまでご提示いただきありがとうございます。
実際に修正案をそのまま使ってみたところ、リンクファイルの実行もスムーズで、期待通りのアクションを行うことが出来ました。