VB

'変数定義
Dim objWSH 'Wscript.Shellオブジェクト格納
Dim l_kaihoNO '改保NO
Dim l_kinou '機能選択 0:フォルダ、1：メール 初期値は0
Dim l_open_path '開くフォルダ
Dim l_folder_path '改保フォルダの基本フォルダ
Dim l_mail_path 'メールのパブリックフォルダの基本フォルダ
Dim objIE 'IEオブジェクトの格納
Dim l_default_kinou '機能の初期値


l_default_kinou ="0" '機能の初期値セット
folder_path = "フォルダパス"
mail_path = "outlook:パブリックフォルダ"


'改保NO入力
l_kaihoNO=inputbox("kaiho NO")


'改保NOが入力されていたら
if l_kaihoNO <> "" then

'機能選択 0:フォルダ、1：メール、2：システム 初期値は0
l_kinou=inputbox("機能　0:フォルダ、1：メール、2：WEB","",l_default_kinou)

'機能選択 0:フォルダ、1：メール
if l_kinou = "0" OR l_kinou = "1" then
if l_kinou = "0" then
open_path = folder_path
else
open_path = mail_path
end if

open_path = open_path & "\NO" & left(l_kaihoNO,2) & "00-" & left(l_kaihoNO,2) & "99\NO" & l_kaihoNO

Set objWSH = CreateObject("Wscript.Shell")
objWSH.Run """" & open_path & """"
Set objWSH = Nothing

'機能選択 2：改良保守システム
elseif l_kinou = "2" then
'IEオブジェクトを作成します
Set objIE = CreateObject("InternetExplorer.Application")

'ウィンドウの大きさを変更します
objIE.Width = 900
objIE.Height = 700

'表示位置を変更します
objIE.Left = 50
objIE.Top = 0

'ステータスバーとツールバーを非表示にします
objIE.Statusbar = True
objIE.ToolBar = True

'インターネットエクスプローラ画面を非表示でオープン　システムのトップ画面を開いてクッキー作成
objIE.Visible = False 'IE非表示
objIE.Navigate "http://***.com"

'改良保守システムのトップ画面を開くまで少し待つ。急にURL変えるとクッキー作成前になる。
Do Until objIE.Busy = False
'空ループだと無駄にCPUを使うので250ミリ秒のインターバルを置く
WScript.sleep(250)
Loop

'①指定したURLを表示します
objIE.Navigate "http://***.com?ID=" & l_kaihoNO

'IE表示
objIE.Visible = True

' Set objIE = Nothing

end if
end if




http://rainbow6666.cs.land.to/list.php