home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 October / PCWorld_2002-10_cd.bin / Software / TemaCD / wmenc9 / WMEncoder.exe / WMEncoder.msi / schedule.vbs < prev    next >
Encoding:
Text File  |  2002-07-22  |  785 b   |  42 lines
  1. Option Explicit
  2.  
  3. ' Declare objects and variables.
  4. Dim EncoderApp
  5. Dim Encoder
  6. Dim objArgs
  7. Dim I
  8. Dim duration
  9. dim EncodingTime
  10.  
  11. Set objArgs = WScript.Arguments
  12. Set EncoderApp = WScript.CreateObject("WMEnc.WMEncoderApp.1")
  13. Set Encoder = EncoderApp.Encoder
  14. EncoderApp.Visible = TRUE
  15.  
  16. If objArgs.Count > 0 Then
  17.     Encoder.Load objArgs( 0 )
  18. End If
  19.  
  20. Encoder.Start
  21.  
  22. If objArgs.Count = 1 Then
  23.     Do Until Encoder.RunState = 5
  24.         WScript.Sleep 20000
  25.     Loop
  26. ElseIf objArgs.Count = 2 Then
  27.     duration = objArgs( 1 )
  28.     duration = duration / 1000
  29.     I = 0
  30.     Do Until I = duration
  31.         WScript.Sleep 1000
  32.         I = I + 1
  33.     Loop
  34.     Encoder.Stop
  35. End If
  36.  
  37. ' TODO wait until indexing is done
  38.  
  39. Set Encoder = Nothing
  40. Set EncoderApp = Nothing
  41.  
  42.