Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*"
objDialog.InitialDir = "C:/"
intResult = objDialog.ShowOpen()
If intResult=0 then
wscript.quit
ELSE wscript.echo objDialog.file
End If
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*"
objDialog.InitialDir = "C:/"
intResult = objDialog.ShowOpen()
If intResult=0 then
wscript.quit
ELSE wscript.echo objDialog.file
End If