Discussion :

[cbo59]

Salut à tous,
J'ai des petits problèmes avec ces petits utilitaires, je les lance par du code VB mais si j'essaie en direct avec un invite de commande, ça fait la même chose.

Alors voila mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

Dim groupe, compte, domaine, utilisateur As String 
   section = "[User]" 
   compte = "toto,,toto," 
    
    
   Open "c:\toto.txt" For Output As #1 
   Print #1, section 
   Print #1, compte 
   Close #1 
    
   ShellAndWait "c:\ressource kit\addusers.exe /c c:\toto.txt /p:le", "", vbHide 
      
   Kill "c:\toto.txt" 
    
   domaine = "domain: localmachine" 
   groupe = "localgroup: Administrateurs" 
   utilisateur = "toto" 
    
   Open "c:\toto.txt" For Output As #1 
   Print #1, domaine 
   Print #1, groupe 
   Print #1, utilisateur 
   Close #1 
    
   ShellAndWait "c:\ressource kit\usrtogrp.exe c:\toto.txt", "", vbHide 
    
   Kill "c:\toto.txt"

Je pense avoir suivi la doc comme il faut mais le addusers n'est pas propre du moins sous 2K et XP puisqu'à la fin le user est visible dans la "gestion de l'ordinateur local" mais pas dans "Panneau de configuration > utilisateurs et mot de passe" néanmoins, on peut ouvrir une session sous toto donc il fonctionne.
La ou cela se complique, c'est que le usrtogrp me renvoie une erreur (LsaLookupNames Failed, status = 0xc0000073 Unable to translate names to sids.), que lorsque je regarde dans le groupe admin toto n'est pas présent mais que si j'essaie de l'inscrire à la main, XP ou 2K me dit qu'il fait dejà parti du groupe. Et si je me connecte sous toto et que j'essaie de faire une action reservée aux admins, il me crée une erreur car je n'ai pas les droits .

Si j'ai fait une connerie, je ne vois pas ou

Merci pour votre aide.

Cyril.

PS: il est évident que je fais ces manips avec un compte admin local...

[Laurent Dardenne]

Quelles version du KR utilises-tu ?
Est-tu en domaine ou sous AD ?
L'utilisateur que tu souhaites créer est en local ?
Est-ce que cela fonctionne sous NT ?

Pourquoi ne pas utiliser cette Api :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netmgmt/netmgmt/netgroupadduser.asp

[cbo59]

Bonjour et merci de ta réponse,

le ressource kit est celui de 2000

je cherche à créer un user local et à l'insérer dans le groupe admin (pour pouvoir administrer plus facilement), donc tout se passe en local sans AD.
je n'ai pas testé sur NT car nous n'en n'avons pas sous la main.
je pense après maintes recherches que le problème viendrait du fait que le groupe "administrateurs" n'est un groupe normal, il fait partie des groupes dits spéciaux....
reste maintenant à savoir si il y a une méthode avec ces groupes .
je n'ai toujours pas trouvé mais je ne désespère pas .

dans tous les cas merci et si tu as des infos, surtout n'hésites pas...

[cbo59]

bon c'est bon pour ce petit problème

je suis passé par la commande "net localgroup" pour ajouter le user au groupe admin 8)

maintenant je me pose une autre question:
peut-on virer l'écran d'accueil de XP par une commande du même type :
mais je vais ouvrir un nouveau post.

Merci quand même à ceux qui ont essayés de m'aider ou qui auraient bien voulu .

Cyril.