How to call QuickTest test scripts by scheduled tasks

Dim qtApp  
Dim qtTest 
Dim qtResultsOpt  

Set qtApp = CreateObject("")  
  
 = True  
 "C:\QuickTest Professional\tests\test1\", True 

Set qtTest =   
 = "NextStep"  
Set qtResultsOpt = CreateObject("")  
 = "C:\QuickTest Professional\tests\test1\"  
 

Set qtResultsOpt = Nothing  
Set qtTest = Nothing  
Set qtApp = Nothing