strExcelFile = Replace(WScript.ScriptFullName, WScript.ScriptName, "") & "Test.xls"
Set objExcel = CreateObject("Excel.Application")
Set objWB1 = objExcel.Workbooks.Open(strExcelFile, False, False)
objExcel.Visible = True
objWB1.Application.Run "Macro1"
objWB1.Close True
objExcel.Quit
create a batch file and mention the following lines
c:\windows\System32\cmd.ex
save the file as fileName.bat and now in schedule task specify the batch file instead of vbs file.
Try and see if that helps you.
Regards,
Navdeep [v-2nas]