1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| ' PopUpMessage script
' Part of PDFCreator
' License: GPL
' Homepage: <a href="http://www.sf.net/projects/pdfcreator" target="_blank">http://www.sf.net/projects/pdfcreator</a>
' Version: 1.1.0.0
' Date: September, 1. 2005
' Author: Frank Heindörfer
Option Explicit
Const AppTitle = "PDFCreator - PopUpMessage"
Const SecondsToWait = 5
Dim objArgs, WshShell
Set objArgs = WScript.Arguments
If objArgs.Count = 0 Then
MsgBox "This script needs a parameter!", vbExclamation, AppTitle
WScript.Quit
End If
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Popup "Le pdf à été crée" & vbcrlf & vbcrlf & _
"Filename:" & vbtab & vbtab & objArgs(0) & vbcrlf, SecondsToWait, AppTitle, 0 |
Partager