Получить список пользователей в системе.

[TrueTrue]

На форуме нашёл код:

Код: Выделить всё

        objNetwork = .CreateObject("Wscript.Network")
        strComputer = objNetwork.ComputerName
        colAccounts = GetObject("WinNT://" & strComputer & "")
        colAccounts.Filter = Array("user")
        For Each objUser In colAccounts
            MsgBox(objUser.Name)
        Next

Проблема в том, что у меня в VB.NET я не нашёл Windows Scripting Host.

Нашёл Windows Scripting Host Model 1.0, подключил к проекту, но он видимо не имеет необходимых функций.
Кто понял, о чём я , подскажите пожалста, что делаю не так? Может у меня библиотек каких не хватает? Где их взять?

[TrueTrue]

Вобщем по первому вопросу разобрался.

Код: Выделить всё

objNetwork = .CreateObject("Wscript.Network")
        strComputer = objNetwork.ComputerName
        colAccounts = GetObject("WinNT://" & strComputer & "")
        colAccounts.Filter = [b]Array[/b]("user")
        For Each objUser In colAccounts
            MsgBox(objUser.Name)
        Next

Теперь не могу понять почему, у меня ругается на Array?
Пишет: "Ошибка 18 "Array" является типом и не может использоваться как выражение."

[Qwertiy]

Потому что Array - это тип...