'Designed for script:\ entries, but can be used elsewhere.
'Usage:
'script:\timeout_pausex.vbs -timeout=10000
'Or you can just call it from another script
 
args = Split(Arguments, "-", -1, 1)
 
for each arg in args
if arg <> "" Then
 ita = Split(arg, "=", -1, 1)
 if ubound(ita) > 0 Then
 
  if StrComp(ita(0), "timeout") = 0 then
   description = "Pausex: Pausing for " + ita(1) + " ms"
   msgbox description
  end if
 
  if StrComp(ita(0), "pos") = 0 then
   'Set if started from the playlist through script:\
   msgbox "Position="&ita(1)
  end if
 end if
end if
next