VBS renommer différents comptes et SID

**grenth** · 02/06/2015, 10h40

Bonjour tous,

Voila je débute depuis vraiment peu en VBS et en faisant mes recherches je retombe souvent sur developpez.net et j'ai aussi appris sur le site.

Aujourd'hui je souhaite renommer mes comptes administrateurs via un script vbs, jusqu'ici rien de difficile mais sur certains serveurs j'ai "Administrateur" et d'autres "Administrator" et la je bute... alors ma partie de script sur le renommage (car mon script fait d'autre choses qui fonctionnent) j'ai écrit un truc un peu moche qui est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
On Error resume next
 
strComputer = objTextIn.ReadLine
strOldName = "Administrator"
strOldName2 = "Administrateur"
strNewName = "Localusr"	
set objComp = GetObject("WinNT://" & strComputer)
set objUser = GetObject("WinNT://" & strComputer & "/" & strOldName & ",user")
set objUser = GetObject("WinNT://" & strComputer & "/" & strOldName2 & ",user")
set objNewUser = objComp.MoveHere(objUser.ADsPath, strNewName)
 
On Error GoTo 0

Cependant je voudrais faire un script sans le "on error" genre quelque chose qui vérifie le nom si c'est "administrateur" ou "administrateur" et si le sid correspond à celui de l'administrateur alors il renomme en "localusr".

j’espère être explicite dans ma demande et vous remercie par avance de votre aide.

Grenth

**pitchalov** · 03/06/2015, 11h15

Bonjour,

Ce Hey Scripting Guy indique comment récupérer le nom du compte Adminsitrateur Local.
Tu peux t'en servir de cette manière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
' Get Computer Name
Set WshNetwork = CreateObject("WScript.Network")
strComputer = WshNetwork.ComputerName
 
' WMI method to get local Administrator user name
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colAccounts = objWMIService.ExecQuery _
    ("Select * From Win32_UserAccount Where Domain = '" & strComputer & "'")
 
For Each objAccount in colAccounts
    If Left (objAccount.SID, 6) = "S-1-5-" and Right(objAccount.SID, 4) = "-500" Then
        strAdminLocalUserName = objAccount.Name
    End If
Next
 
'Rename the user
strNewName = "Localusr"	
set objUser = GetObject("WinNT://" & strComputer & "/" & strAdminLocalUserName & ",user")
set objNewUser = objComp.MoveHere(objUser.ADsPath, strNewName)

Bonne continuation

**pitchalov** · 03/06/2015, 11h20

Encore mieux : tout faire en WMI :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Set WshNetwork = CreateObject("WScript.Network")
strComputer = WshNetwork.ComputerName
 
strNewName = "Localusr"	
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colAccounts = objWMIService.ExecQuery _
    ("Select * From Win32_UserAccount Where Domain = '" & strComputer & "'")
 
For Each objAccount in colAccounts
    If Left (objAccount.SID, 6) = "S-1-5-" and Right(objAccount.SID, 4) = "-500" Then
        strAdminLocalUserName = objAccount.Name
        objAccount.Rename strNewName 
    End If
Next

**grenth** · 03/06/2015, 14h17

Salut,

Entre temps j'ai fais casi la meme chose en wmi. il me manquer ta ligne 13 et 14, je ne savais pas comment traduire donc merci beaucoup

Grenth

**grenth** · 05/06/2015, 11h46

J'ai une dernière question:

Si je veux renommer mes administrateurs depuis une liste.txt avec:
Serveur1
Serveur2
Serveur3
...

Je suis bloquer.

Par exemple dans le code de Pitchalov, je souhaite ajouter quelques lignes genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
dim objTextIn
strInputPath = "D:\log vbs\Liste_serveurs.txt"
set objTextIn = objFSO.OpenTextFile( strInputPath,1 )
strComputer = objTextIn.ReadLine
 
...
 
loop

Pour pouvoir renommer les admins de la liste

**Miistik** · 05/06/2015, 13h30

Bonjour,

Tu peux procéder de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'a la suite du début de ton code pour ouvrir un fichier
Data = objTextIn.ReadAll
objTextIn.Close 
 
'Tableau contenant chaque ligne de ton fichier
arrLines = Split(Data,vbCrLf)
 
'Parcours du contenu de ton fichier
For i = 0 To UBound(arrLines)
	strComputer = arrLines(i)
	'Ton code pour les renommer les admins
Next

**grenth** · 05/06/2015, 14h42

Salut,

En premier temps merci pour ta réponse.

Il me reste un soucis, surment un truc bete mais j'ai une erreur "next attendu" a l'endroit ou j'ai un next ... je marche un peu sur la tête

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
dim objTextIn
strInputPath = "D:\log vbs\Liste_serveurs.txt"
set objTextIn = objFSO.OpenTextFile( strInputPath,1 )
 
strComputer = objTextIn.ReadLine
Data = objTextIn.ReadAll
objTextIn.Close
arrLines = Split(Data,vbCrLf)
For i = 0 To UBound(arrLines)
	strComputer = arrLines(i)
	Set WshNetwork = CreateObject("WScript.Network")
strComputer = WshNetwork.ComputerName
 
strNewName = "Localusr"	
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colAccounts = objWMIService.ExecQuery _
    ("Select * From Win32_UserAccount Where Domain = '" & strComputer & "'")
 
For Each objAccount in colAccounts
    If Left (objAccount.SID, 6) = "S-1-5-" and Right(objAccount.SID, 4) = "-500" Then
        strAdminLocalUserName = objAccount.Name
        objAccount.Rename strNewName
	End If
 
Next

Si tu trouve ma bêtise je te met 10 pouces vert^^

**Miistik** · 05/06/2015, 14h49

Bonjour,

Attention, votre premier For n'est pas fermé.

Pour éviter ces petites erreurs, pensez à indenter votre code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
dim objTextIn
strInputPath = "D:\log vbs\Liste_serveurs.txt"
set objTextIn = objFSO.OpenTextFile( strInputPath,1 )
 
strComputer = objTextIn.ReadLine
Data = objTextIn.ReadAll
objTextIn.Close
arrLines = Split(Data,vbCrLf)
For i = 0 To UBound(arrLines)
	strComputer = arrLines(i)
	Set WshNetwork = CreateObject("WScript.Network")
	strComputer = WshNetwork.ComputerName
 
	strNewName = "Localusr"	
 
	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
	Set colAccounts = objWMIService.ExecQuery _
    ("Select * From Win32_UserAccount Where Domain = '" & strComputer & "'")
 
	For Each objAccount in colAccounts
		If Left (objAccount.SID, 6) = "S-1-5-" and Right(objAccount.SID, 4) = "-500" Then
			strAdminLocalUserName = objAccount.Name
			objAccount.Rename strNewName
	    End If
	Next
Next

**grenth** · 05/06/2015, 15h09

J'ai une nouvelle erreur en rapport au bout de code que tu m'a fourni: l'entrée dépasse la fin du fichier.
J'ai l'impression de faire 2 pas en arrière à chaque pas en avant ^^'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
dim objFSO, objTextIn, objTextOut
strInputPath = "D:\log vbs\Liste_serveurs.txt"
set objFSO = CreateObject("Scripting.FileSystemObject")
set objTextIn = objFSO.OpenTextFile( strInputPath,1 )
strComputer = objTextIn.ReadLine
Data = objTextIn.ReadLine
objTextIn.Close
arrLines = Split(Data,vbCrLf)
For i = 0 To UBound(arrLines)
	strComputer = arrLines(i)
	Set WshNetwork = CreateObject("WScript.Network")
	strComputer = WshNetwork.ComputerName
 
	strNewName = "Localusr"	
 
	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
	Set colAccounts = objWMIService.ExecQuery _
    ("Select * From Win32_UserAccount Where Domain = '" & strComputer & "'")
 
	For Each objAccount in colAccounts
		If Left (objAccount.SID, 6) = "S-1-5-" and Right(objAccount.SID, 4) = "-500" Then
			strAdminLocalUserName = objAccount.Name
			objAccount.Rename strNewName
	    End If
	Next
Next

Je souhaite juste que cette partie de mon script final renomme les comptes utilisateurs depuis mon fichier.txt ou je met les noms de mes VMs.
Moi qui pensais que c'était la partie la plus facile de tout mon script, c'est celle qui m’embête le plus :/

**Miistik** · 05/06/2015, 15h22

Hum, un truc me chagrine.

Essayez ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
dim objFSO, objTextIn, objTextOut
strInputPath = "D:\log vbs\Liste_serveurs.txt"
set objFSO = CreateObject("Scripting.FileSystemObject")
set objTextIn = objFSO.OpenTextFile( strInputPath,1 )
strComputer = objTextIn.ReadLine
Data = objTextIn.ReadLine
objTextIn.Close
arrLines = Split(Data,vbCrLf)
For i = 0 To UBound(arrLines)
	strComputer = arrLines(i)
 
	strNewName = "Localusr"	
 
	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
	Set colAccounts = objWMIService.ExecQuery _
    ("Select * From Win32_UserAccount Where Domain = '" & strComputer & "'")
 
	For Each objAccount in colAccounts
		If Left (objAccount.SID, 6) = "S-1-5-" and Right(objAccount.SID, 4) = "-500" Then
			strAdminLocalUserName = objAccount.Name
			objAccount.Rename strNewName
	    End If
	Next
Next

En cas d'erreur, pouvez-vous me spécifier la ligne de code en question. L'intitulé de l'erreur seul ne m'aide pas à vous aider.

**grenth** · 05/06/2015, 15h26

Ligne 6
Caract: 1
Erreur: l'entrée dépasse la fin du fichier
Code: 800A003E

**Miistik** · 05/06/2015, 15h30

Attention, vous avez remplacé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Data = objTextIn.ReadAll

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Data = objTextIn.ReadLine.

.

Utilisez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Data = objTextIn.ReadAll

**grenth** · 05/06/2015, 15h33

Oui j'ai vu mais l'erreur reste la même :/

**Miistik** · 05/06/2015, 15h45

Comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
dim objFSO, objTextIn, objTextOut
strInputPath = "D:\log vbs\Liste_serveurs.txt"
set objFSO = CreateObject("Scripting.FileSystemObject")
set objTextIn = objFSO.OpenTextFile( strInputPath,1 )
Data = objTextIn.ReadAll
objTextIn.Close
arrLines = Split(Data,vbCrLf)
For i = 0 To UBound(arrLines)
	strComputer = arrLines(i)
 
	strNewName = "Localusr"	
 
	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
	Set colAccounts = objWMIService.ExecQuery _
    ("Select * From Win32_UserAccount Where Domain = '" & strComputer & "'")
 
	For Each objAccount in colAccounts
		If Left (objAccount.SID, 6) = "S-1-5-" and Right(objAccount.SID, 4) = "-500" Then
			strAdminLocalUserName = objAccount.Name
			objAccount.Rename strNewName
	    End If
	Next
Next

**grenth** · 05/06/2015, 15h52

Pas d'erreur mais pas de résultat

**Miistik** · 05/06/2015, 15h58

En même temps, vous n'affichez rien.

- Vérifier que les noms de vos Vms s'enchaînent.

Ajoutez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox(strComputer)

juste après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strComputer = arrLines(i)

- Le domaine est bien le nom de la VM ?

Affichez vos variables et dîtes moi où tout cela coince.

**grenth** · 05/06/2015, 16h18

Je met le nom de chaques Vm à la ligne dans ma liste.txt
mon msgbox m'affiche bien chaque nom à la ligne (je limite a mon localhost et 4 VMs Test)
Avec mon code pas bien cela fonctionne mais pas ici :/
J'ai pas trop d'infos malheureusement, je sais je n'aide pas trop sur le coup

**grenth** · 09/06/2015, 09h30

Je relance un peu pour savoir si qq'un à une réponse à mon problème. Merci

**grenth** · 10/06/2015, 14h47

J'ai avancer mais le problème c'est qu'il se bloque à la premiere ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
dim strInputPath 
dim objFSO, objTextIn, objTextOut, objWMIService, colAccounts 
set objFSO = CreateObject("Scripting.FileSystemObject") 
strInputPath = "D:\log vbs\Liste_serveurs.txt" 
set objTextIn = objFSO.OpenTextFile( strInputPath,1 ) 
Set WshNetwork = CreateObject("WScript.Network") 
 
strComputer = objTextIn.ReadLine 
 
strNewName = "Localusr" 
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
 
Set colAccounts = objWMIService.ExecQuery _  
     ("Select * From Win32_UserAccount Where LocalAccount = TRUE") 
For Each objAccount in colAccounts 
     If Left (objAccount.SID, 6) = "S-1-5-" and Right(objAccount.SID, 4) = "-500" Then 
          strAdminLocalUserName = objAccount.Name        
               objAccount.Rename strNewName     
End If 
Next

Et meme avec un "do until objtextin.AtEndOfStream = true" cela marche pas, il me repete la premiere ligne

VBS renommer différents comptes et SID

VBScript

Discussions similaires

Partager

Partager