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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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