Question : Questionner un dossier de txt et ajouter un compte d'utilisateur dans le groupe d'administrateur de chaque machine.

Bonjour, le

Query un dossier de txt et ajoutent un compte d'utilisateur dans le groupe d'administrateur de chaque machine.
I ont l'as
Machinename de dossier de txt ; Le contrôle de course de manuscrit d'Userlogin

When chaque machine et ajoutent cet utilisateur dans l'admin local. Je veux ajouter le même nom d'ouverture qui est à côté du nom de machine mais 2 ouvertures semblables de 2 Domains

Domain1 \ Userlogin1
Domain2 \ Userlogin1

Regards
sharath
class= de

Réponse : Questionner un dossier de txt et ajouter un compte d'utilisateur dans le groupe d'administrateur de chaque machine.

essayer ceci dehors :
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 :
Option explicite

Faible adoCommand, adoConnection, strBase, strFilter, strAttributes
Faible objLogFile, objInputFile, objFileSystem, objRootDSE, strDNSDomain, strQuery, adoRecordset, strName
Faible objNetwork, strComputer, strUser, objAdmin, strDomain
Faibles lignes, marques, ligne

Placer l'objFileSystem = le CreateObject (« Scripting.fileSystemObject »)
Placer objInputFile = objFileSystem.OpenTextFile (« C:\temp\users.txt », 1)
les lignes = se sont dédoublées (objInputFile.ReadAll, le vbNewline)
objInputFile.Close

objLogFile réglé = objFileSystem.CreateTextFile (« C:\temp\users.log », 2)

Pour chaque ligne dans les lignes
	les marques = se sont dédoublées (ligne, « ; ")
	strComputer = équilibre (marques (0))
	strUser = équilibre (marques (1))
	
	si le cinglement (strComputer) = rectifient alors
		le strComputer d'objLogFile.WriteLine et « a entré en contact »
		strComputer d'AddUserGroup, strUser
	Autrement
		le strComputer d'objLogFile.WriteLine et « n'a pas pu être entré en contact »
	finir si

Après

objLogFile.Close

AddUserGroup secondaire (strComputer, strUser)
	'Rechercher le nom d'ordinateur local et le nom de NetBIOS du domaine.
	Placer l'objNetwork = le CreateObject (« Wscript.Network »)
	strDomain = objNetwork.UserDomain
	
	WScript.Echo « s'ajoutent » et strUser et « à » et strComputer
	
	'Grippage au groupe d'administrateurs locaux.
	Placer l'objAdmin = le GetObject (« WinNT : / » et strComputer et « /Administrators, groupe »)

	'Objets d'AGITATION d'installation.
	Placer l'adoCommand = le CreateObject (« ADODB.Command »)
	Placer l'adoConnection = le CreateObject (« ADODB.Connection »)
	adoConnection.Provider = « ADsDSOObject »
	adoConnection.Open « fournisseur actif d'annuaire »
	Placer adoCommand.ActiveConnection = adoConnection

	'Rechercher le domaine actif entier d'annuaire.
	Placer l'objRootDSE = le GetObject (« LDAP : //RootDSE »)
	strDNSDomain = objRootDSE.Get (« defaultNamingContext »)
	strBase = ""

	'Filtre sur l'utilisateur avec le nom « d'ouverture de pré-Windows 2000 ».
	strFilter = « (sAMAccountName= » et strUser et ") « 

	'Liste délimitée par virgule de valeurs d'attribut à rechercher.
	strAttributes = « sAMAccountName »

	'Construire la question de syntaxe de LDAP.
	strQuery = strBase et « ;  » et strFilter et « ;  » et strAttributes et « ; sous-arbre »
	adoCommand.CommandText = strQuery
	adoCommand.Properties (« taille de page ») = 100
	adoCommand.Properties (« temps mort ») = 30
	adoCommand.Properties (la « cachette résulte ») = faux

	'Courir la question.
	Placer l'adoRecordset = l'adoCommand.Execute

	'Énumérer le recordset en résultant.
	Faire jusqu'à adoRecordset.EOF
		'Rechercher les valeurs.
		strName = adoRecordset.Fields (« sAMAccountName »). Valeur
		'Vérifier si utilisateur déjà un membre du groupe d'administrateurs locaux.
		Si (objAdmin.IsMember (« WinNT : / » et strDomain et « / » et strName) = faux) puis
			Sur le résumé d'erreur après
			
			'Ajouter cet utilisateur au groupe.
			objAdmin.Add (« WinNT : / » et strDomain et « / » et strName)
			
			Si (Err.Number <> 0) puis
				strComputer d'objLogFile.WriteLine et « ;  » et strUser et « ; Échec » 
			autrement
				Le strName de WScript.Echo et « a été ajouté. »
				strComputer d'objLogFile.WriteLine et « ;  » et strUser et « ; Succès » 			
			Finir si

		autrement
			Le strName de WScript.Echo et « existe déjà. »
			
			strComputer d'objLogFile.WriteLine et « ;  » et strUser et « ; Succès » 
		Finir si
		
		'Se déplacer au prochain disque dans le recordset.
		adoRecordset.MoveNext
	Boucle

	'Nettoyer.
	adoRecordset.Close
	adoConnection.Close
Finir le sous-marin

Cinglement de fonction (strHost)

    faible objPing, objRetStatus

    objPing réglé = GetObject (« winmgmts : {impersonationLevel=impersonate} _ de ").ExecQuery
      (« choisir * à partir de Win32_PingStatus où adresse = «  » et strHost et «  » ")

    pour chaque objRetStatus dans objPing
        s'IsNull (objRetStatus.StatusCode) ou objRetStatus.StatusCode0<> alors
    Cinglement = faux
            'WScript.Echo « code statut est » et objRetStatus.StatusCode
        autrement
            Le cinglement = rectifient
            'Wscript.Echo « bytes = » et vbTab et objRetStatus.BufferSize
            'Wscript.Echo « temps (Mme) = » et vbTab et objRetStatus.ResponseTime
            'Wscript.Echo « TTL (s) = » et vbTab et objRetStatus.ResponseTimeToLive
        finir si
    après
Fonction de fin
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
  •  Winzip 12 issues de secours du travail ?
  •  
    programming4us programming4us