VBSの実行時間を指定するには?


ひだまり  2004-04-02 20:31:20  No: 112615

ADのスタートアップスクリプトでインストーラーを走らせたいと思います。
ファイルの有無を確認して、インストールするか否かを自動で判断するようにしました。
インストール中にポップアップやメッセージボックスを表示しないとインストーラーが走らないため、ポップアップを表示することにしました。
しかし、そのポップアップを「OK」するとインストーラーが止まってしまうため、ループさせることにしました。
あとは、このスクリプトが10秒で終了してくれれば解決なのですが、方法がわかりません。
スクリプトは以下のとおりです。
--------------------------------------------------
dim fso, oshell, wsh
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("C:\Program Files\XXXX\XXXX.exe")) Then
Else
Set oshell = CreateObject("Wscript.shell")
oshell.run "インストーラーのパス "
Set wsh = CreateObject("WScript.Shell")
for i=0 to 100
wsh.Popup "インストール中", 10, "Driver_Install", vbInformation
next
End If
--------------------------------------------------

VBSを指定時間に終了する方法か、他に解決策があれば教えてください。
よろしくお願いします。


36NET  2004-04-03 02:09:37  No: 112616

これでは駄目ですか?

Dim objFso
Dim objShell
Dim objExec

Set objFso = CreateObject("Scripting.FileSystemObject")
If Not objFso.FileExists("*:\*.exe") Then
  Set objShell = CreateObject("WScript.Shell")
  Set objExec=objShell.Exec("*setup.exe")
  Do While objExec.Status=0 ' 実行が終わるまでループ
    Wscript.sleep(100)
  Loop
  Set objShell = Nothing
End If
Set objFso = Nothing


ひだまり  2004-04-06 03:31:03  No: 112617

36NETさんありがとうございます。

教えていただいたソースはどこでインストーラーのEXEを指定すればいいのでしょうか?


36NET  2004-04-06 05:45:32  No: 112618

>If Not objFso.FileExists("*:\*.exe") Then
「"*:\*.exe"」がファイルの有無の指定箇所で
>Set objExec=objShell.Exec("*setup.exe")
「"*setup.exe"」でインストーラーのEXEを指定してやってみてください


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加