Locator=СоздатьОбъект("WbemScripting.SWbemLocator");
Компьютер = Locator.ConnectServer(СетевоеИмя);
Коллекция = Компьютер.ExecQuery("Select * from Win32_Product");
вопрос в том, как пройтись по коллекции?
Метод Item почему-то не работает.....
HELP......

А такой метод есть? Если нет, то только V8 и для каждого...

SWbemObjectSet.Item(strObjectPath)
strObjectPath - путь к объекту в виде строки.
Так что только через скрипт.

В данном случае лучше WindowsInstaller юзать - и проще, и шустрее...

Мож это чем поможет:
Const wbemImpersonationLevelDelegate = 4
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objConnection = objwbemLocator.ConnectServer _
    ("WebServer", "root\cimv2", "fabrikam\administrator", _
     "password", , "kerberos:WebServer")
objConnection.Security_.ImpersonationLevel = wbemImpersonationLevelDelegate
Set objSoftware = objConnection.Get("Win32_Product")
errReturn = objSoftware.Install("\\atl-dc-02\scripts\1561_lab.msi",,True)
Wscript.Echo errReturn

(4)Мне нужно получить список установленного ПО. Но т.к. нету For Each ... в 1С сделать этого не могу.

(5) ну тады мож это:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("c:\scripts\software.tsv", True)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
    ("Select * from Win32_Product")
objTextFile.WriteLine "Caption" & vbtab & _
    "Description" & vbtab & "Identifying Number" & vbtab & _
    "Install Date" & vbtab & "Install Location" & vbtab & _
    "Install State" & vbtab & "Name" & vbtab & _
    "Package Cache" & vbtab & "SKU Number" & vbtab & "Vendor" & vbtab _
        & "Version"
For Each objSoftware in colSoftware
    objTextFile.WriteLine objSoftware.Caption & vbtab & _
    objSoftware.Description & vbtab & _
    objSoftware.IdentifyingNumber & vbtab & _
    objSoftware.InstallDate2 & vbtab & _
    objSoftware.InstallLocation & vbtab & _
    objSoftware.InstallState & vbtab & _
    objSoftware.Name & vbtab & _
    objSoftware.PackageCache & vbtab & _
    objSoftware.SKUNumber & vbtab & _
    objSoftware.Vendor & vbtab & _
    objSoftware.Version
Next
objTextFile.Close
или вот это:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFeatures = objWMIService.ExecQuery _
    ("Select * from Win32_SoftwareFeature")
For each objFeature in colfeatures
    Wscript.Echo "Accesses: " & objFeature.Accesses
    Wscript.Echo "Attributes: " & objFeature.Attributes
    Wscript.Echo "Caption: " & objFeature.Caption
    Wscript.Echo "Description: " & objFeature.Description
    Wscript.Echo "Identifying Number: " & objFeature.IdentifyingNumber
    Wscript.Echo "Install Date: " & objFeature.InstallDate
    Wscript.Echo "Install State: " & objFeature.InstallState
    Wscript.Echo "LastUse: " & objFeature.LastUse
    Wscript.Echo "Name: " & objFeature.Name
    Wscript.Echo "ProductName: " & objFeature.ProductName
    Wscript.Echo "Vendor: " & objFeature.Vendor
    Wscript.Echo "Version: " & objFeature.Version
Next

(6) ты это в 1С напиши. Там цикла FOR EACH нету..............

а ты из 1С можешь скрипт запустить. В скрипте скидывать в текстовый файл и уже из 1С парсить ентот файлик слабо? :)

(7)Если надо только локально работать - см.(3)...

всем спасибо....

(0) Вот тебе индексатор словаря:
функция getIndexed(dic)
  перем
    sc
  ;
  
  sc = СоздатьОбъект("MSScriptControl.ScriptControl");
  sc.Language = "JScript";
  sc.AddCode("
    |function getIndexed(dic)
    |{
    | var
    | e = new Enumerator(dic),
    | coll = new ActiveXObject(""Scripting.Dictionary"")
    | ;
    |
    | for (i = 1; !e.atEnd(); e.moveNext(), i++) coll.Add(i, e.item());
    |
    | return coll;
    |}
    |"
  );
  
  
  возврат sc.Modules("Global").CodeObject.getIndexed(dic);
  
конецФункции

11) Дай бог тебе здоровья и хорошую любовницу

(0) Я конечно не очень силен в объектной технике, но обычно у всех коллекций есть метод, возвращающий количество элементов и метод, получающий элемент коллекции по индексу. Может порыть в этом направлении, что то вроде Count и Item. Надо только помнить что коллеция нумеруется с нуля.