Vbs Script Runs As Standalone, But Not In Dts Or Sql Job

I have a vbs script to try to prove that I can perform vbs scripting in either a job step or a dts package
The script is

dim rs, sql,adoconn, adocommand, dataconnstring

set adoconn = createObject("ADODB.CONNECTION")
Set rs = CreateObject("ADODB.Recordset")
set adocommand = CreateObject("ADODB.Command")
adoconn.ConnectionString = "Provider=SQLOLEDB;Server=myserver;Database=pubs;U id=myuser;Pwd=mypass;"

adoconn.Open
sql = "select * from import"
rs.Open sql, adoconn,adOpenForwardOnly
while rs.EOF = false
sql = "insert into zz default values"
adocommand.ActiveConnection = adoconn
adocommand.CommandText = sql
adocommand.Execute

rs.MoveNext
wend

rs.Close
adoconn.Close
set adoconn = nothing


However,
when I run this from windows explorer it works fine,
but when I try to run it as an activeX script, I get the error ActiveX scripting: Function not found

As a cmdexec step in a job, I use the line c:inetpubwwwrootvbsvbstest1.vbs
It failed with the error
The process could not be created for step 1 of job 0x119BDBD264AD9B4597A9302786F0E250 (reason: %1 is not a valid Win32 application). The step failed.


What is wrong with the vbs script ?, or do I need to invoke it a different way ?

thanks in advance