Remove From My Forums

Problème sur manipulation du groupe local "Administrateurs"

Question
0

Connectez-vous pour voter
Bonjour,

Je me demande si cela est faisable dans ma situation, je m'explique. Dans mon entreprise, nous masterisons les postes via une image indépendante de la machine, via une application maison on installe les pilotes et dans le même temps personnalise le nom de la machine. [Je tente de faire un programme qui automatise la suite]. Ensuite, nous faisons une mise sur le domaine [Ok], redémarrage du PC, modification des droits sur le fichier C:\Windows\SapLogon.ini [Ok], et dernier point il me reste à ajouter un groupe de l'AD dans le groupe local Administrateurs et là cela coince.

Dans cette dernière phase je suis administrateur local de la machine, lorsque je vais ajouter le groupe je dois entrer mon compte adminitrateur réseau. Je pense que c'est là que cela se joue. Quand je lance la fonction en Administrateur local, j'obtiens directement un accès refusé. si je génére l'éxecutable et tente un "éxecuter en tant que ..." j'obtiens le message : "Windows ne parvient pas à accéder au périphérique, au chemin d'accès, ou au fichier spécifié. Vous ne disposez peut-être pas des autorisations ...". JE suppose que cela vient du fait que je ne dispose pas de compte Adminitrateur Local + Réseau.

Est-il possible de contourner cela ? Dois-je m'orienter sur la création d'un second éxecutable et de le lancer du premier via Process.Start("Second.exe", username, password, domaine) ? (Je n'aime pas trop l'idée).

Je mets le code que j'utilise poura jouter le groupe AD vers le groupe Administrateurs Local :

Try Dim PC As String = Environ("ComputerName") Dim LCL As New DirectoryEntry("WinNT://" & PC & ",computer") Dim DOM As New DirectoryEntry("WinNT://" & TBDomaine) Dim DOMGRP As DirectoryEntry = DOM.Children.Find("GG-ComputersLocalAdmin", "group") Dim LCLGRP As DirectoryEntry = LCL.Children.Find("Administrateurs", "group") LCLGRP.Invoke("Add", New Object() {LCLGRP.Path.ToString}) MessageBox.Show("Modification du groupe Administrateurs Local réussie !", "Opération réussie", MessageBoxButtons.OK, MessageBoxIcon.Information) End Catch ex As Exception MessageBox.Show(ex.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error) End End Try

Merci, cordialement,

Cyril
mardi 27 septembre 2011 12:44

Réponse

|

Citation

Réponses

Connectez-vous pour voter

Bonjour Cyril,

On dirais que vous posez les même questions que moi il y a un bon moment de ça :) (On est peut être collègue ?)
J'ai fait déjà toute cette partie d'automatisme avec Windows XP et Windows 7

Le code ci dessous fonctionne normalement sous Windows XP et 7

        '
        ' Ajoute l'utilisateur (AD) dans le group Administrateurs
        '
        Dim de As New DirectoryEntry("LDAP:xxxxxxxxxxxx")
        Dim deSearch As New DirectorySearcher() With {.SearchRoot = de, .Filter = "cn=xtalour"}

        Dim group As New DirectoryEntry("WinNT://" & oComputerName & "/Administrateurs")
        Dim Members As Object = group.Invoke("Members", Nothing)
        Dim ExistLocal = False

        For Each Member As Object In CType(Members, IEnumerable)

            Dim x As New DirectoryEntry(Member)
            If x.Name.ToLower = deSearch.FindOne.GetDirectoryEntry.Properties("cn").Value.ToString.ToLower Then
                ExistLocal = True
                Exit For
            End If
        Next

        If ExistLocal = False Then
            group.Invoke("Add", New Object() {"WinNT://" & de.Properties("dc").Value & "/" & deSearch.FindOne.GetDirectoryEntry.Properties("cn").Value})
        Else
            Console.WriteLine("Le compte exite deja")
        End If

faire attention au groupe Administrateurs en anglais c'est administrators

Je detaille pas trop c'est volontaire, faite moi savoir si vous avez un problème ...

A bientôt

Cordialement,
Xavier TALOUR
Alias Troxsa SendMail

Modifié TroxsaEditor mardi 27 septembre 2011 13:34 add
Proposé comme réponse TroxsaEditor mardi 27 septembre 2011 18:36
Marqué comme réponse Ciprian Duduiala mardi 4 octobre 2011 06:29

mardi 27 septembre 2011 13:33

Auteur de réponse

3

Connectez-vous pour voter
Merci de donner des nouvelles.

J'ai vu sur certain site ou il rencontrait le même problème que vous et aprioris ils n'ont pas trouver de solution.

Dans le cas ou cela ne fonctionnerais toujours pas je vous donne une solution de contournement (un article de : Alex Petrescu)
Comment modifier les I/O standard d’un processus

ne n'est pas très propre de procéder ainsi mais des fois on a pas le choix
Pour récupérer les erreurs éventuelles il faudra utiliser "StandardError"

A bientôt
Cordialement,
Xavier TALOUR
Alias Troxsa SendMail
- Proposé comme réponse Ciprian Duduiala lundi 3 octobre 2011 06:09
- Marqué comme réponse Ciprian Duduiala mardi 4 octobre 2011 06:30
vendredi 30 septembre 2011 08:02

Réponse

|

Citation

Auteur de réponse

Toutes les réponses