Pergunta : Perguntar uma lima do txt e adicionar um cliente de usuário no grupo do administrador de cada máquina.

Olá!, o

Query uma lima do txt e adiciona um cliente de usuário no grupo do administrador de cada machine.
I tem o as
Machinename da lima do txt; A verificação do funcionamento do certificado de Userlogin

When cada máquina e adiciona esse usuário no admin local. Eu quero adicionar o mesmo nome de início de uma sessão que é ao lado do nome da máquina mas 2 inícios de uma sessão similares de 2 Domains

Domain1 \ Userlogin1
Domain2 \ Userlogin1

Regards
sharath
class= do

Resposta : Perguntar uma lima do txt e adicionar um cliente de usuário no grupo do administrador de cada máquina.

tentar isto para fora:
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:
Opção explícita

adoCommand não ofuscante, adoConnection, strBase, strFilter, strAttributes
objLogFile não ofuscante, objInputFile, objFileSystem, objRootDSE, strDNSDomain, strQuery, adoRecordset, strName
objNetwork não ofuscante, strComputer, strUser, objAdmin, strDomain
Linhas não ofuscantes, símbolos, linha

Ajustar o objFileSystem = o CreateObject (“Scripting.fileSystemObject”)
Ajustar objInputFile = objFileSystem.OpenTextFile (“C:\temp\users.txt”, 1)
linhas = separação (objInputFile.ReadAll, vbNewline)
objInputFile.Close

objLogFile ajustado = objFileSystem.CreateTextFile (“C:\temp\users.log”, 2)

Para cada linha nas linhas
	símbolos = separação (linha, “; ")
	strComputer = guarnição (símbolos (0))
	strUser = guarnição (símbolos (1))
	
	se o sibilo (strComputer) = retifica então
		o strComputer de objLogFile.WriteLine & “contatou”
		strComputer de AddUserGroup, strUser
	Mais
		o strComputer de objLogFile.WriteLine & “não podia ser contatado”
	terminar se

Em seguida

objLogFile.Close

AddUserGroup secundário (strComputer, strUser)
	'Recuperar o nome de computador local e o nome de NetBIOS do domínio.
	Ajustar o objNetwork = o CreateObject (“Wscript.Network”)
	strDomain = objNetwork.UserDomain
	
	WScript.Echo “adicionam” & strUser & “a” & strComputer
	
	'Ligamento ao grupo dos administradores locais.
	Ajustar o objAdmin = o GetObject (“WinNT: /” & strComputer & “/Administrators, grupo”)

	'Objetos da DEMORA da instalação.
	Ajustar o adoCommand = o CreateObject (“ADODB.Command”)
	Ajustar o adoConnection = o CreateObject (“ADODB.Connection”)
	adoConnection.Provider = “ADsDSOObject”
	adoConnection.Open “fornecedor ativo do diretório”
	Ajustar adoCommand.ActiveConnection = adoConnection

	'Procurarar o domínio ativo inteiro do diretório.
	Ajustar o objRootDSE = o GetObject (“LDAP: //RootDSE”)
	strDNSDomain = objRootDSE.Get (“defaultNamingContext”)
	strBase = ""

	'Filtro no usuário com de “nome do início de uma sessão pre-Windows 2000”.
	strFilter = “(sAMAccountName=” & strUser & ") “

	'Lista limitada vírgula de valores de atributo a recuperar.
	strAttributes = “sAMAccountName”

	'Construir a pergunta da sintaxe de LDAP.
	strQuery = strBase & “; ” & strFilter & “; ” & strAttributes & “; subtree”
	adoCommand.CommandText = strQuery
	adoCommand.Properties (de “tamanho página”) = 100
	adoCommand.Properties (“intervalo de parada”) = 30
	adoCommand.Properties (o “esconderijo resulta”) = falso

	'Funcionar a pergunta.
	Ajustar o adoRecordset = o adoCommand.Execute

	'Enumerar o recordset resultante.
	Fazer até adoRecordset.EOF
		'Recuperar valores.
		strName = adoRecordset.Fields (“sAMAccountName”). Valor
		'Verific se usuário já um membro do grupo dos administradores locais.
		Se (objAdmin.IsMember (“WinNT: /” & strDomain & “/” & strName) = falso) então
			No resumo do erro em seguida
			
			'Adicionar este usuário ao grupo.
			objAdmin.Add (“WinNT: /” & strDomain & “/” & strName)
			
			Se (Err.Number <> 0) então
				strComputer de objLogFile.WriteLine & “; ” & strUser & “; Falha” 
			mais
				O strName de WScript.Echo & “foi adicionado.”
				strComputer de objLogFile.WriteLine & “; ” & strUser & “; Sucesso” 			
			Terminar se

		mais
			O strName de WScript.Echo & “já existe.”
			
			strComputer de objLogFile.WriteLine & “; ” & strUser & “; Sucesso” 
		Terminar se
		
		'Mover-se para o registro seguinte no recordset.
		adoRecordset.MoveNext
	Laço

	'Limpar.
	adoRecordset.Close
	adoConnection.Close
Terminar o submarino

Sibilo da função (strHost)

    objPing não ofuscante, objRetStatus

    objPing ajustado = GetObject (“winmgmts: {impersonationLevel=impersonate} _ de ").ExecQuery
      (“selecionar * de Win32_PingStatus onde endereço = “” & strHost & “” ")

    para cada objRetStatus em objPing
        se IsNull (objRetStatus.StatusCode) ou objRetStatus.StatusCode0<> então
    Sibilo = falso
            'WScript.Echo “código de status é” & objRetStatus.StatusCode
        mais
            O sibilo = retifica
            'Wscript.Echo “bytes =” & vbTab & objRetStatus.BufferSize
            'Wscript.Echo “tempo (Senhora) =” & vbTab & objRetStatus.ResponseTime
            'Wscript.Echo “TTL (s) =” & vbTab & objRetStatus.ResponseTimeToLive
        terminar se
    em seguida
Função do fim
Outras soluções  
 
programming4us programming4us