Need help converting javascript to vb script

[Pablo4077]

I don't fully understand javascript could someone help me convert this to VBS, this is the code:
var logQuery=new ActiveXObject("MSUtil.LogQuery"
var recordSet=logQuery.Execute(&quot;SELECT * FROM <1>&quot;

for(; !recordSet.atEnd(); recordSet.moveNext())
{
var record=recordSet.getRecord();
for(var col=0; col<recordSet.getColumnCount(); col++)
{
if(record.isNull(col))
WScript.Echo(&quot;NULL&quot;
else
WScript.Echo(record.getValue(col));
}
}var logQuery=new ActiveXObject(&quot;MSUtil.LogQuery&quot;
var recordSet=logQuery.Execute(&quot;SELECT * FROM <1>&quot;

for(; !recordSet.atEnd(); recordSet.moveNext())
{
var record=recordSet.getRecord();
for(var col=0; col<recordSet.getColumnCount(); col++)
{
if(record.isNull(col))
WScript.Echo(&quot;NULL&quot;
else
WScript.Echo(record.getValue(col));
}
}

 

[codestorm]

Personally I do't know why anyone would /want/ to go in this direction, but lets see:

dim logQuery
dim recordSet
dim record
dim col

logQuery = ActiveXObject(&quot;MSUtil.LogQuery&quot
recordSet = logQuery.Execute(&quot;SELECT * FROM <1>&quot
while not recordSet.atEnd
record = recordSet.getRecord
for col = 0 to recordSet.getColumnCount - 1
if record.isNull(col) then
WScript.Echo &quot;NULL&quot;
else
WScript.Echo record.getValue(col)
end if
next
recordSet.moveNext
wend

I assume you accidentally pasted the code in twice?

Above code was off top of head and as such is untested.

codestorm
Newbie Life Member.
Fire bad. Tree pretty. - Buffy
<insert witticism here>

 

[Pablo4077]

Want to go whitch direction? using VBS or using the logparser com?

 

[codestorm]

From Javascript to VBScript

codestorm
Newbie Life Member.
Fire bad. Tree pretty. - Buffy
<insert witticism here>

 

[Pablo4077]

Because I program in VB and its easer for me to convert VBS to VB than to learn a new Language.