Это может быть проще сделать с помощью HTML-приложения , а не с простым VBScript. Вот пример приложения HTML, которое отображает изображение во всплывающем окне, которое автоматически закрывается через 5 секунд (вы не сказали, нужно ли указывать имя изображения и время ожидания, поэтому я предполагаю, что они предопределены и могут быть жестко запрограммированы). ):
<html>
<hta:application id="oHTA"
border="none"
caption="no"
contextmenu="no"
innerborder="no"
scroll="no"
showintaskbar="no"
/>
<script language="VBScript">
Sub Window_OnLoad
' Resize and position the window
width = 500 : height = 400
window.resizeTo width, height
window.moveTo screen.availWidth\2 - width\2, screen.availHeight\2 - height\2
' Automatically close the windows after 5 seconds
idTimer = window.setTimeout("vbscript:window.close", 5000)
End Sub
</script>
<body>
<table border=0 width="100%" height="100%">
<tr>
<td align="center" valign="middle">
<img src="myimage.jpg"/>
</td>
</tr>
</table>
</body>
</html>
Просто вставьте этот код в текстовый редактор, замените ширину и высоту окна, время ожидания и имя файла изображения вашими значениями и сохраните как файл .HTA (например, showimage.hta ).
HTA можно запускать из командной строки по их имени, например,
showimage.hta
Чтобы запустить HTA из VBScript, вы можете использовать метод WshShell.Run:
CreateObject("WScript.Shell").Run "showimage.hta"