Modification Profil User en Auto
Résolu/Fermé
dje-dje
Messages postés
10415
Date d'inscription
mardi 6 janvier 2004
Statut
Modérateur
Dernière intervention
28 janvier 2011
-
14 avril 2006 à 15:06
dje-dje Messages postés 10415 Date d'inscription mardi 6 janvier 2004 Statut Modérateur Dernière intervention 28 janvier 2011 - 15 avril 2006 à 10:51
dje-dje Messages postés 10415 Date d'inscription mardi 6 janvier 2004 Statut Modérateur Dernière intervention 28 janvier 2011 - 15 avril 2006 à 10:51
A voir également:
- Modification Profil User en Auto
- Qui regarde mon profil facebook - Guide
- Photo de profil - Guide
- Qui regarde mon profil instagram - Guide
- Logiciel modification pdf - Guide
- Ajouter un profil netflix payant - Guide
2 réponses
dje-dje
Messages postés
10415
Date d'inscription
mardi 6 janvier 2004
Statut
Modérateur
Dernière intervention
28 janvier 2011
757
14 avril 2006 à 15:27
14 avril 2006 à 15:27
Apres recherche et test, la clé de registre a modifier est:
HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folder
Elle est de type:
\\monserveur\user
Et doit devenir:
\\monserveur2\user
Merci
a+
dje-dje
--
HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folder
Elle est de type:
\\monserveur\user
Et doit devenir:
\\monserveur2\user
Merci
a+
dje-dje
--
Il y a 10 types de personne dans le monde, ceux qui comprennent le binaire et les autres
dje-dje
Messages postés
10415
Date d'inscription
mardi 6 janvier 2004
Statut
Modérateur
Dernière intervention
28 janvier 2011
757
15 avril 2006 à 10:51
15 avril 2006 à 10:51
J'ai terminé mon script ca donne ca:
Dim WS, cle
Set WS = WScript.CreateObject("WScript.Shell")
cle = WS.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Z")
WS.Popup(Cle)
' Cle est la clé a tester. Ici on en lit la valeur. Le nom de la clé est pipeau, créee pour mes test
' Le nous permet de determiner s'il faut ou non modifier la clé
' Ici, on teste si la partie gauche de la chaine est "\\myserver2" Si c le cas on remplace on enleve les 11 premiers' ' caracteres et on rajoute a gauche de la chaine \\myserver1
if left(cle, 11) = "\\myserver2" then
' le 11 vient de la longueur de la chaine \\myserver2
WS.Popup "Cette chaine pointe vers myserver2, Nous allons la modifier"
' Création de la chaine de remplacement dans valeur
longueur = len(cle)
chaine = right(cle, Longueur - 11)
valeur = "\\myserver1" & Chaine
' On affiche la valeur de remplacement
WS.Popup "La chaine sera modifier par: " & Valeur
' Ecriture dans le registre
WS.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Z", valeur, "REG_EXPAND_SZ"
' On avertit si on ne fait rien
else
WS.Popup "La chaine ne pointe pas vers myserver2, on ne fera rien"
'Fin du If
end if
--
Dim WS, cle
Set WS = WScript.CreateObject("WScript.Shell")
cle = WS.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Z")
WS.Popup(Cle)
' Cle est la clé a tester. Ici on en lit la valeur. Le nom de la clé est pipeau, créee pour mes test
' Le nous permet de determiner s'il faut ou non modifier la clé
' Ici, on teste si la partie gauche de la chaine est "\\myserver2" Si c le cas on remplace on enleve les 11 premiers' ' caracteres et on rajoute a gauche de la chaine \\myserver1
if left(cle, 11) = "\\myserver2" then
' le 11 vient de la longueur de la chaine \\myserver2
WS.Popup "Cette chaine pointe vers myserver2, Nous allons la modifier"
' Création de la chaine de remplacement dans valeur
longueur = len(cle)
chaine = right(cle, Longueur - 11)
valeur = "\\myserver1" & Chaine
' On affiche la valeur de remplacement
WS.Popup "La chaine sera modifier par: " & Valeur
' Ecriture dans le registre
WS.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Z", valeur, "REG_EXPAND_SZ"
' On avertit si on ne fait rien
else
WS.Popup "La chaine ne pointe pas vers myserver2, on ne fera rien"
'Fin du If
end if
--
Il y a 10 types de personne dans le monde, ceux qui comprennent le binaire et les autres