maksim32Есть у меня программа на VBS, которую я хотел перевести на JavaScript. Вот она:

sFileName = "C:\TLBINF32.DLL"
Set oTypeLib = CreateObject("TLI.TypeLibInfo")
If IsObject(oTypeLib) Then
oTypeLib.ContainingFile = sFileName
WScript.Echo "TLB Name:" & vbTab & oTypeLib.Name
WScript.Echo "TLB GUID:" & vbTab & oTypeLib.GUID
WScript.Echo "TLB LCID:" & vbTab & oTypeLib.LCID
WScript.Echo "TLB Ver.:" & vbTab & oTypeLib.MajorVersion & "." & oTypeLib.MinorVersion
WScript.Echo vbCRLF & "CoClasses of Library:"
WScript.Echo "---------"

For Each oTypeLibInfo In oTypeLib.CoClasses
WScript.Echo oTypeLibInfo.GUID & " : " & oTypeLibInfo.Name
Next
End If

Перевел я ее и цикл for each..next заменил на for in object:

sFileName="C:\TLBINF32.DLL";
var oTypeLib=new ActiveXObject("TLI.TypeLibInfo");
oTypeLib.ContainingFile=sFileName;
etxt= "TLB Name:"+"\t"+oTypeLib.Name+"\n";
etxt+="TLB GUID:"+"\t"+oTypeLib.GUID+"\n";
etxt+="TLB LCID:"+"\t"+oTypeLib.LCID+"\n";
etxt+="TLB Ver.:"+"\t"+oTypeLib.MajorVersion+"."+oTypeLib.MinorVersion+"\n";
etxt+="\nCoClasses of Library:\n---------\n";
for(var otli in oTypeLib.CoClasses){etxt+=otli.GUID+" : "+otli.Name+"\n"};
WScript.Echo(etxt);

Но теперь он не работает, помогите исправить!

исли правильно понимаю, For Each в VBScript работаит аналогично foreach в пхп... то есть в перемнной oTypeLibInfo Вы получаете объект (ну то есть значение), так вот, а в for(var otli in oTypeLib.CoClasses) в javascript otli - это ключ массива, то есть надо писать

maksim32 Програмёр, Ваш способ не подходит, к тому же цикл все равно ни разу не запускается.

С критическими системными ошибками из-за кода, который я когда-либо писал, никогда не встречался, обычно обработчик ошибок указывает на ошибку..
maksim32 VSVLAD, большое спасибо что уделили внимание и помогли! Я разобрался с циклом: object.item(i) и перечислить все объекты.

sFileName="C:\\TLBINF32.DLL";
var oTypeLib=new ActiveXObject("TLI.TypeLibInfo");
oTypeLib.ContainingFile=sFileName;
var etxt= "TLB Name:"+"\t"+oTypeLib.Name+"\n";
etxt+="TLB GUID:"+"\t"+oTypeLib.GUID+"\n";
etxt+="TLB LCID:"+"\t"+oTypeLib.LCID+"\n";
etxt+="TLB Ver.:"+"\t"+oTypeLib.MajorVersion+"."+oTypeLib.MinorVersion+"\n";
etxt+="\nCoClasses of Library:\n---------\n";
for(i=1;i<=oTypeLib.CoClasses.Count;i++){
otli=oTypeLib.CoClasses.Item(i);
etxt+=otli.Guid+" : "+otli.Name+"\n"};
WScript.Echo(etxt);

в js массив но не объект? Предложеный мной вариант правда не сработал? Если кто знает почему он мог не сработать, напишите пожалуйста. просто впервые с тактм сталкиваюсь. Заранее благодарен.
P.s. Как предположение, могло ли это быть вызвано упущенным hasOwnProperty? Может всё намного проще, и оно просто обращалось к свойствам null или undefined?
Вообщем догадок много, кто знает, подскажите.

VSVLAD,

точно, не заметил разницы, что теперь I - параметр функции. Спасибо что поправили. Внимательности мне явно не хватает.