Set colComputers = GetObject(LDAP://CN=Computers, DC=mydomain, DC=com)
For Each oComputer in colComputers
		sComputerName = oComputer.CN

Поделитесь материалом с коллегами и друзьями