Script création compte admin local

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Script création compte admin local

Micko77666

Bonjour à tous,

Je cherche à limiter l'utilisation de compte admin sur notre domain, et de créer un compte ADMIN en local avec un mot de passe différent par machine.
J'ai regardé du côté des GPO, je peux effectivement créer un compte et le mettre admin local, mais ça sera le même mot de passe pour tout le monde.

Donc je me suis penché sur le script VBS avec utilisation d'une feuille Excel pour chercher les données. Problème, j'ai l'idée de l'algo et du concept, mais j'arrive pas à le faire

J'imagine dans ma feuille Excel avec en gros 4 colonnes :

Colonne 1 : Nom de l'ordinateur
Colonne 2 : nom du compte à créer
Colonne 3 : Mot de passe du compte
Colonne 4 : Groupe de l'utilisateur

J'aimerai donc que quand mon script se lance, il parte lire le nom de la machine, et complete des variables avec la feuille Excel par rapport au nom donc.
Avez-vous une idée ? Je trouve beaucoup d'info pour une création de compte sur l'AD, mais rien en local sur une machine.

Si vous avez des infos je suis preneur, en vous remerciant par avance

Amicalement,
Mickael

Publicité

Je@nb

Modérateur
Kindly give dime

https://code.msdn.microsoft.com/win [...] f-ae44e789 Tu as ça qui est pas mal.

Micko77666

Merci beaucoup Je@nb pour ton retour très rapide, je vais regarder un peu tout ça.

La je regarde du côté du VBS, et surtout l'utilisateur des feuilles Excel pour récupérer des informations.

Je@nb

Modérateur
Kindly give dime

Si tu veux continuer dans ta voie de fichier excel, fais du powershell et convertis ton fichier Excel en CSV. C'est 2 lignes pour récup ton user/mdp

Code :

$csvfile = "C:\users\jb\Documents\WindowsPowerShell\Scripts\HFR\complist.csv"
$infos = Import-Csv $csvfile -Delimiter ";" |? { $_.ComputerName -eq $env:COMPUTERNAME }
if ($infos -ne $null) {
$cn = [ADSI]"WinNT://$env:COMPUTERNAME"
$user = $cn.Create("User",$infos.UserName)
$user.SetPassword($infos.Password)
$user.setinfo()
$user.UserFlags[0] = $User.UserFlags[0] -bor 0x10000
$user.setinfo()
$group= [ADSI]"WinNT://$env:COMPUTERNAME/Administrators"
$group.Add("WinNT://$env:COMPUTERNAME/$($infos.Username)" )
}

ComputerName;UserName;Password
WIN8-JB;adminjb;P@ssw0rd
WIN10-VM;admin10jb;Pa$$w0rd

Message édité par Je@nb le 25-11-2014 à 17:36:55

Micko77666

Effectivement en PowerShell il y a aussi d'autre solution, la j'avais regardé sur le VBS car j'ai déjà un script de connexion users en VBS.

Il me manque uniquement la partie recherche dans une feuille Excel pour récupérer les infos et les mettre dans des variables.

Je@nb

Modérateur
Kindly give dime

Si tu exportes en CSV ça te génère le 2ème partie de mon poste. Et c'est lu à la 2ème ligne de mon script via le import-csv

Micko77666

Du coup nous avons réussi en VBS, encore merci à toi Je@nb

Message cité 1 fois

Lanstack

Micko77666 a écrit :

Du coup nous avons réussi en VBS, encore merci à toi Je@nb

Bonjour,

Pourrais-tu poster ton script? Cela pourrait servir à d'autres

---------------
« Mais j'vous jure, y'a dix minutes, ça marchait très bien... »

Micko77666

Pas de soucis le voici, il y a surement mieux, mais il fonctionne en tout cas

Par contre, il faut élever les droits sinon pas de création de users.

Code :

Dim WshNet, computername
Set WshNet = CreateObject("Wscript.Network" )
computername = WshNet.ComputerName
Dim result, objUser
Dim info_users(1000,4)
Dim i
Dim ligne
Dim temp_tab(4)
Dim nom, compte, password, groupe
'************************************************
Set WshShell = CreateObject("WScript.Shell" )
'excel *********
Set objExcel = CreateObject("Excel.Application" )
objExcel.Visible = false
Set objWorkbook = objExcel.Workbooks.Open("\\ordi\Comptes.xls" )
Set objWorksheet = objWorkbook.Worksheets(1)
'création du pointeur i, de la localisation de la ligne, et d'un tableau temporaire pour la fonction filter
'on parcourt le tableau
for i=1 to 1000
temp_tab(1) = objWorksheet.cells(i,1).value
temp_tab(2) = objWorksheet.cells(i,2).value
temp_tab(3) = objWorksheet.cells(i,3).value
'on recherche "computername" dans le tableau à une dimension, result contient le computername
result = filter(temp_tab, computername, 1)
info_users(i,1) = temp_tab(1)
info_users(i,2) = temp_tab(2)
info_users(i,3) = temp_tab(3)
'on cherche si la fonction filter a retourné un resultat, si oui, ces instructions sont effectuées
for each x in result
ligne = Cstr(i)
next
next
'Fermeture de l'application Excel
objWorkBook.Close
'Désallocation mémoire
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
'**************************************************
'création users
if Not IsNull(ligne) then
nom = info_users(ligne,1)
compte = info_users(ligne,2)
password = info_users(ligne,3)
groupe = info_users(ligne,4)
Set colAccounts = GetObject("WinNT://"&nom&"" )
'test existence de l'utilisateur
on error resume next
set ouser=getobject("WinNT://"& nom &"/"&compte& ",user" )
if err.number<>0 then
'wscript.echo "Ce compte n'existe pas encore, nous allons le créer."
err.clear
Set objUser = colAccounts.Create("user", compte)
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
objPasswordExpirationFlag = ADS_UF_DONT_EXPIRE_PASSWD
'test de création mot de passe
on error resume next
objUser.SetPassword "@"& password
if err.number<>0 then
'wscript.echo "Création du mot de passe."
end if
on error goto 0
objUser.SetInfo
objUser.Put "userFlags", objPasswordExpirationFlag
'wscript.echo "Utilisateur "+nom+" créé. Tentative d'affectation au groupe..."
'test d'ajout à un groupe
on error resume next
Set Group = GetObject("WinNT://" + Cstr(nom) + "/Administrateurs,group" )
if err.number=0 then
'wscript.echo "Le compte "+compte+" a ete ajoute au groupe "+groupe
Group.Add(objUser.ADspath)
Group.SetInfo
end if
on error goto 0
else
'si l'user existe déjà
On Error Resume Next
objUser.SetPassword "@"& password
if err.number <>0 then
objUser.Put "userFlags", objPasswordExpirationFlag
'wscript.echo "Mot de passe redefini."
objUser.SetInfo
end if
on error goto 0
on error resume next
Set Group = GetObject("WinNT://" + Cstr(nom) + "/Administrateurs,group" )
if err.number = 0 then
Group.Add(objUser.ADspath)
Group.SetInfo
end if
on error goto 0
end if
on error goto 0
end if
wscript.echo "End."

FORUM HardWare.fr

Systèmes & Réseaux Pro

Poste de travail

Script création compte admin local

Sujets relatifs
connexion vpn pptp perte réseau local	[Résolu] Firefox/Chrome plus lents que IE pour télécharger en local
Problème remote admin sur routeurs Netgear	Registry file admin batch file
[AD] Problème de création utlisitateur	Installation d'imprimante via script
[RESOLU] Création d'un partage sous Windows Server 2012	cherche freeware pour surveiller un periph snmp et lancer un script
Méthode pour changer le mot de passe admin local sur les postes
Plus de sujets relatifs à : Script création compte admin local

Page générée en 0.079 secondes