Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Mettre utilistateur admin local dans un domain

1 réponse
Avatar
Titi
On me demande de faire un script qui pourrai mettre un utilisateur admin
local de son poste dés qu'il s'identifierai

par exemple :
On lit un fichier exel ou autre qui contient la liste des PC et COmpte user
a mettre admin local du poste.
ensuite
si ordinateur 1 = PC1 et User1 = U1 alors le mettre admin local
et reinscrire sa dans un autre fichier que XXX est admin local de la machine
YYY

1 réponse

Avatar
Titi
j'ai trouvé :-)
si cela peut interesser je poste le script VBS

'------------------------------------------------------------
' Ce script à pour fonction d'ajouter un utilisateur
' du domaine en admin local
' Mais pour cela il faut etre admin
' Verifiez que liste.txt est bien dans le dossier Temp
'-------------------------------------------------------------

Const ForReading = 1
Const ForWriting = 2
Set net = Wscript.CreateObject("WScript.Network")
CurrentUser=net.username
CurrentComputer=net.ComputerName
Set oWshNet = Wscript.CreateObject("Wscript.Network")

dim param
Set fso = CreateObject("Scripting.FileSystemObject")
Set Liste = fso.OpenTextFile("c:templiste.txt", 1)
Do While not Liste.AtEndOfStream

'-------------------------------------------------------------
' Lecture du fichier texte
' Utilisateur:Ordinateur
' param(0):param(1) avant le " : " c'est 0 aprés c'est 1
'-------------------------------------------------------------

ligne = Liste.ReadLine
param=split(ligne,":")
strUsers=param(0)
Computer=param(1)
'Wscript.Echo Computer
'Wscript.Echo strUsers
On Error Resume next
if strComp(strUsers,CurrentUser,vbTextCompare)=0 and _
StrComp(Computer,CurrentComputer,vbTextCompare)=0 then
Set objGroup = GetObject("WinNT://"& oWshNet.Computername
&"/Administrateurs")
'Wscript.Echo "Nom de Machine OK"
'Wscript.Echo strUsers

'-------------------------------------------------------------
' Ajout de l'utilisateur dans le groupe admin
' Local de l'ordinateur
'-------------------------------------------------------------

objGroup.Add ("WinNT://Domaine/" & strUsers & "")

'Wscript.Echo "Utilisateur Ajouté dans groupe Admin Local"
end if
Loop
Liste.Close

'-------------------------------------------------------------
' Fin du script
'-------------------------------------------------------------




On me demande de faire un script qui pourrai mettre un utilisateur admin
local de son poste dés qu'il s'identifierai

par exemple :
On lit un fichier exel ou autre qui contient la liste des PC et COmpte user
a mettre admin local du poste.
ensuite
si ordinateur 1 = PC1 et User1 = U1 alors le mettre admin local
et reinscrire sa dans un autre fichier que XXX est admin local de la machine
YYY