Вопрос : Запросите архив txt и добавьте учет потребителя в группу в составе администратора каждая машина.

Hi,

Query архив txt и добавляет учет потребителя в группу в составе администратора каждое machine.
I имеет as
Machinename архива txt; Проверка бега сценария Userlogin

When каждая машина и добавляет того потребителя в местный admin. Я хочу добавить такое же имя имени пользователя рядом с именем машины только 2 подобных имени пользователя от 2 Domains

Domain1 \ Userlogin1
Domain2 \ Userlogin1

Regards
sharath
class=

Ответ : Запросите архив txt и добавьте учет потребителя в группу в составе администратора каждая машина.

попытайтесь это вне:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
Вариант точный

Тусклое adoCommand, adoConnection, strBase, strFilter, strAttributes
Тусклое objLogFile, objInputFile, objFileSystem, objRootDSE, strDNSDomain, strQuery, adoRecordset, strName
Тусклое objNetwork, strComputer, strUser, objAdmin, strDomain
Тусклые линии, знаки внимания, линия

Установите objFileSystem = CreateObject («Scripting.fileSystemObject»)
Установите objInputFile = objFileSystem.OpenTextFile («C:\temp\users.txt», 1)
линии = разделили (objInputFile.ReadAll, vbNewline)
objInputFile.Close

Установленное objLogFile = objFileSystem.CreateTextFile («C:\temp\users.log», 2)

Для каждой линии в линиях
	знаки внимания = разделили (линия, «; ")
	strComputer = уравновешивание (знаки внимания (0))
	strUser = уравновешивание (знаки внимания (1))
	
	если Пинг (strComputer) = True после этого
		strComputer objLogFile.WriteLine & «контактировало»
		strComputer AddUserGroup, strUser
	Еще
		strComputer objLogFile.WriteLine & «не smogло быть контактировано»
	закончитесь если

Затем

objLogFile.Close

Sub AddUserGroup (strComputer, strUser)
	'Восстановите местное имя компьютера и имя NetBIOS домена.
	Установите objNetwork = CreateObject («Wscript.Network»)
	strDomain = objNetwork.UserDomain
	
	WScript.Echo «добавляют» & strUser & «к» & strComputer
	
	'Связь к группе местных администраторов.
	Установите objAdmin = GetObject («WinNT: /» & strComputer & «/Administrators, группа»)

	'Предметы СУЕТЫ установки.
	Установите adoCommand = CreateObject («ADODB.Command»)
	Установите adoConnection = CreateObject («ADODB.Connection»)
	adoConnection.Provider = «ADsDSOObject»
	adoConnection.Open «активно провайдер директории»
	Установите adoCommand.ActiveConnection = adoConnection

	'Ищите весь активно домен директории.
	Установите objRootDSE = GetObject («LDAP: //RootDSE»)
	strDNSDomain = objRootDSE.Get («defaultNamingContext»)
	strBase = ""

	'Фильтр на потребителе с «именем logon pre-Windows 2000».
	strFilter = «(sAMAccountName=» & strUser & ") «

	'Список размежеванный запятым значений атрибута, котор нужно восстановить.
	strAttributes = «sAMAccountName»

	'Построьте вопрос синтаксиса LDAP.
	strQuery = strBase & «; » & strFilter & «; » & strAttributes & «; поддерево»
	adoCommand.CommandText = strQuery
	adoCommand.Properties («размер страницы») = 100
	adoCommand.Properties («перерыв») = 30
	adoCommand.Properties («тайник приводит к») = ложно

	'Побегите вопрос.
	Установите adoRecordset = adoCommand.Execute

	'Перечислите приводя к recordset.
	Не сделать до adoRecordset.EOF
		'Восстановите значения.
		strName = adoRecordset.Fields («sAMAccountName»). Значение
		'Проверите если потребитель уже член группы местных администраторов.
		Если (objAdmin.IsMember, то («WinNT: /» & strDomain & «/» & strName) = ложно) после этого
			На резюме ошибки затем
			
			'Добавьте этого потребителя к группе.
			objAdmin.Add («WinNT: /» & strDomain & «/» & strName)
			
			Если (Err.Number <> 0) после этого
				strComputer objLogFile.WriteLine & «; » & strUser & «; Отказ» 
			еще
				Было добавлено strName WScript.Echo & «.»
				strComputer objLogFile.WriteLine & «; » & strUser & «; Успех» 			
			Закончитесь если

		еще
			strName WScript.Echo & «уже существует.»
			
			strComputer objLogFile.WriteLine & «; » & strUser & «; Успех» 
		Закончитесь если
		
		'Двиньте к следующему показателю в recordset.
		adoRecordset.MoveNext
	Петля

	'Очистьте вверх.
	adoRecordset.Close
	adoConnection.Close
Закончите подводную лодку

Пинг функции (strHost)

    тусклый objPing, objRetStatus

    установленный objPing = GetObject («winmgmts: {impersonationLevel=impersonate} _ ").ExecQuery
      («выберите * от Win32_PingStatus где адрес = «» & strHost & «» ")

    для каждого objRetStatus в objPing
        если IsNull (objRetStatus.StatusCode) или objRetStatus.StatusCode0<> после этого
    Пинг = ложно
            'WScript.Echo «Кодий состояния» & objRetStatus.StatusCode
        еще
            Пинг = True
            'Wscript.Echo «байты =» & vbTab & objRetStatus.BufferSize
            'Wscript.Echo «время (госпожа) =» & vbTab & objRetStatus.ResponseTime
            'Wscript.Echo «TTL (s) =» & vbTab & objRetStatus.ResponseTimeToLive
        закончитесь если
    затем
Функция конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
  •  Шнур ошибки в блоке задвижки?
  •  сколько вариант сервера SQL на одной машине
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
  •  Активно директория DNS записывает вопрос
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
  •  Прокладчик OCE 9400 не начинает
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
  •  VB6 к VS2010 - консультации тренировки?
  •  
    programming4us programming4us