[Iska]

Delirium, у меня и под XP без этого условия выдавала и доменных пользователей. А под Windows 2000, помнится, в схеме свойства LocalAccount нет, но там выдавались только локальные пользователи, без доменных (опять же — у меня).

Можно ещё через ADSI …

читать дальше »

…попробовать (для провайдера «WinNT:» наличие домена вроде как не обязательно):

Код:

Option Explicit

Dim strComputer

Dim objIADsContainer
Dim objIADsUser


strComputer = "bla-bla-bla" 'WScript.CreateObject("WScript.Network").ComputerName

Set objIADsContainer = GetObject("WinNT://" & strComputer & ",computer")
objIADsContainer.Filter = Array("user")

For Each objIADsUser In objIADsContainer
	WScript.Echo "[" & objIADsUser.Name & "] on [" & objIADsContainer.Name & "]"
Next

Set objIADsUser      = Nothing
Set objIADsContainer = Nothing

WScript.Quit 0