VBS renommer différents comptes et SID

Version imprimable

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:

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

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:

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

Encore mieux : tout faire en WMI :

Code:

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

03/06/2015, 14h17
grenth

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
05/06/2015, 11h46
grenth
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:

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

Bonjour,

Tu peux procéder de cette façon :

Code:

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

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:

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^^

Bonjour,

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

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

Code:

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

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:

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 :/

Hum, un truc me chagrine.

Essayez ceci :

Code:

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.

05/06/2015, 15h26
grenth

Ligne 6
Caract: 1
Erreur: l'entrée dépasse la fin du fichier
Code: 800A003E
05/06/2015, 15h30
Miistik

Attention, vous avez remplacé

Code:

Data = objTextIn.ReadAll

par

Code:

Data = objTextIn.ReadLine.

.

Utilisez

Code:

Data = objTextIn.ReadAll
05/06/2015, 15h33
grenth

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

Comme ceci ?

Code:

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

05/06/2015, 15h52
grenth

Pas d'erreur mais pas de résultat
05/06/2015, 15h58
Miistik

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

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

Ajoutez

Code:

MsgBox(strComputer)

juste après

Code:

strComputer = arrLines(i)

- Le domaine est bien le nom de la VM ?

Affichez vos variables et dîtes moi où tout cela coince.
05/06/2015, 16h18
grenth

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
09/06/2015, 09h30
grenth

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

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

Code:

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