Changer nom de l'utilisateur

Question

Bonjour à tous, j'ai dans mon ordinateur dans C:\Documents and Settings\  2 dossiers, nommé ALL USERS et GAB je voudrais savoir q'il y a un script pour changer GAB en GABRIEL.

Merci d'avance et à bientôt !!!

Flachy Joe · Answer

T'es sur que t'as besoin d'un script ? (Quel langage de script d'ailleur ?)
Je dirai qu'il suffit d'ajouter un nouvel utilisateur et de transferer les fichiers de l'ancien dossier au nouveau...

 Flachy Joe

cs_lilsgabbg · Answer

en VBS, oui il me faut bien un script en vbs FLACHY JOE car je crée un programme pour windows.

merci d'avance

cs_Bidou · Answer

Déplacé sur vbfrance















<hr />
-Blog-

cs_Willi · Answer

Bonjour,
Assez délicat...
Oulala pourquoi vouloir renommer le répertoire correspondant à un profil utilisateur par programmation ?

Renfield · Answer

surtout que c'est inutile, NTFS s'occupe de tout....

j'en ai fait l'experience...
j'ai renommmé un user.
le nom de son rep perso n'a PAS changé

et heureusement, que serait-il advenu de tous les chemins, raccourcis etc qui poinntaient d'ores et deja vers des choses présentes dans ce repertoire....

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_Willi · Answer

Y a t-il quelqu'un d'assez imprudent  pour faire le test avec la fonction SHSetFolderPath avec le flag CSIDL_PROFILE ??

Renfield · Answer

je passe mon tour

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Flachy Joe · Answer

@ Willi : Envoi la sauce, je suis pret à tester : mon install de window$ est la quasiment là seulement pour faire beau en ce moment, je bosse uniquement sous Linux...
De toute façon je ne pense pas qu'on puisse foutre sufisament le bazar pour empecher une réparation.

 Flachy Joe

cs_Willi · Answer

Si tu veux :)
Sous vb6, colle le code suivant dans une feuille et ajoute un bouton Button1....Bon test.
Mais bon pas possible en vbs d'utiliser les api windows.

----------------------------------------------------------
Private Declare Function SHSetFolderPath Lib "shell32.dll" Alias "#232" (ByVal csidl As Integer, ByVal hToken As Long, _
ByVal dwFlags As Long, ByVal pszPath As String) As Long

Private Declare Function GetLastError Lib "kernel32.dll" () As Long

Const CSIDL_PROFILE As Integer = &H28

Private Sub Command1_Click()

    SHSetFolderPath CSIDL_PROFILE, 0, 0, StrConv("C:\DossierDeRemplacement", vbUnicode)
    
    MsgBox GetLastError()

End Sub
----------------------------------------------------------

Changer nom de l'utilisateur

9 réponses

Votre réponse

Discussions similaires