Add Current User in local admin Group
Bonjour,
Je souhaiterais créer un script pour ajouter un utilisateur de domaine (connecté sur le pc) dans le groupe administrateur local de la machine.
J'ai déja crée un script pour récupérer le nom de l'utilisateur dans un fichier puis un autre script pour mettre ce même utilisateur dans le goupe local.
Au sein de mon entreprise nous utilisons la solution ALTIRIS déployment console et lorsque je lance le script au travers de cette solution cela ne fonctionne pas.
Voici les scripts que j'ai ecrits :
1er script (récupération du USERNAME)
Dim Domain
Dim UserName
Set WshNetwork = WScript.CreateObject("WScript.Network")
Domain = WshNetwork.UserDomain
UserName = WshNetwork.UserName
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\username.txt", 2,true)
f.writeline(UserName)
f.close()
2eme script (ajout de l'utilisateur)
Dim UserName
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\username.txt", 1,true)
Do While f.AtEndOfStream <> True
UserName = f.ReadLine
Loop
f.Close
MsgBox(UserName)
strcomputer = "."
set group = GetObject("WinNT://"& strcomputer &"/Administrators")
group.Add "WinNT://"& Domain &"/"& UserName &""
Merci pour votre aide
