Créer un alias pour un lecteur réseau

[Noosymer]

Bonjour,

J'ai créé un dossier de base pour les utilisateurs du domaine et j'aimerai que lorsque les utilisateurs vont dans leur poste de travail, qu'ils ne voient pas le chemin du répertoire qui contient les dossiers de base.

Ca se présente sous cette forme :

<DossierPartagé$>
|_<utilisateur1>
|_<utilisateur2>
|_<utilisateur3>


Affichage dans les postes de travail :

<utilisateur> sur 'Server\<DossierPartagé$>' (Z: )


Affichage souhaité :

<utilisateur> (Z: )


J'ai entendu parlé d'alias mais je ne sais pas comment ça fonctionne.
Merci de votre aide.

[blackjack]

J4avais déjà posé la question et Goran m'avait donné un script pour faire cela... je te le post dans l'après-midi...

[Noosymer]

Merci blackjack.

[blackjack]

Sorry, j'ai pas eu le temps cet aprèm mais demain jte donne ça.

[blackjack]

Voici le script :

Code: Tout sélectionner

ON ERROR RESUME NEXT

'Init Groups
Dim UserGroups,GroupObj

set WshShell = CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")

Script1()
Script2()

Sub Script1()
   ON ERROR RESUME NEXT
   if WshShell.ExpandEnvironmentStrings("%OS%") <> "Windows_NT" then
      WshShell.Run "COMMAND.EXE /C NET TIME \\Activedirectory /SET /Y >NUL:"
      DomainName=WshShell.RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MSNP32\NetworkProvider\AuthenticatingAgent")
      Set UserObj = GetObject("WinNT://" & DomainName & "/" & WshNetwork.username)
      WshNetwork.MapNetworkDrive "U:",UserObj.HomeDirectory
      ' msgbox (UserObj.homeDrive)
      msgbox (UserObj.HomeDirectory)
   else
      DomainName=WshShell.ExpandEnvironmentStrings("%USERDOMAIN%")
      Set UserObj = GetObject("WinNT://" & DomainName & "/" & WshNetwork.username)
   end if

   
      [b]WshNetwork.MapNetworkDrive "G:","\\FILESERVER\BUREAUTIQUE$" [/b]
      WshNetwork.MapNetworkDrive "H:","\\FILESERVER\USERS$"
      WshNetwork.MapNetworkDrive "S:","\\GATEWAYNW\USERS_MSD"
      WshNetwork.MapNetworkDrive "T:","\\GATEWAYNW\USERS2_MSD"
   

End Sub

Function InGroup(strGroup)
   ON ERROR RESUME NEXT
   InGroup=False
   If InStr(UserGroups,"[" & strGroup & "]") Then
      InGroup=True
   End If
End Function

Sub Script2()
   ON ERROR RESUME NEXT
   [b]set shell=createobject("shell.application")
   shell.namespace("G:\").self.name="Bureautique"
'   set Shell=nothing [/b]

   set shell=createobject("shell.application")
   shell.namespace("H:\").self.name="Répertoires utilisateurs"
'   set Shell=nothing

   set shell=createobject("shell.application")
   shell.namespace("S:\").self.name="Users Novell"
'   set Shell=nothing

   set shell=createobject("shell.application")
   shell.namespace("T:\").self.name="Users2 Novell"
   set Shell=nothing
End Sub

C'est la partie en gras qui modifie le nom de ton lecteur réseau. Elle se rapporte au lecteur cité plus haut.

[Noosymer]

D'après ce que j'ai compris, je ne peux pas attribuer la même lettre de lecteur pour tous les utilisateurs :

Code: Tout sélectionner

WshNetwork.MapNetworkDrive "G:","\\FILESERVER\BUREAUTIQUE$"
WshNetwork.MapNetworkDrive "H:","\\FILESERVER\USERS$"
WshNetwork.MapNetworkDrive "S:","\\GATEWAYNW\USERS_MSD"
WshNetwork.MapNetworkDrive "T:","\\GATEWAYNW\USERS2_MSD"

[blackjack]

En fait ce script est spécifique à moi.
Mais les utilisateurs peuvent avoir la même lettre... Seulement il faudra leur créer un script pour chacun (enfin si tu veux utiliser le modèle que je t'ai donné)..

Maintenet je ne suis pas catégorique la-dessus ne connaissant pas trop bien vbscript ...

[Noosymer]

Ok, je te remercie quand même. Je vais essayer de jeter un oeil dans les bouquins Microsoft.

[nadir.amghar]

merci BLACKJACK

pour le script, j'étais à la recherche d'un script qui cache le nom du serveur ainsi que de son partage

[Noosymer]

Du coup j'ai créé mon propre script et ça marche niquel. Ca va modifier une clé dans la base de registre de l'utilisateur.

[bigstyle]

Noozymer ca aurait ete sympa d'en faire profiter les autres

[Noosymer]

Pas de pb je metterai le code en ligne lundi, là je ne pouvais pas j'étais chez moi quand j'ai écrit ce message et j'ai ça au boulot.

[Noosymer]

Voilà le code qui permet de re,ommer un lecteur réseau :

Code: Tout sélectionner

Dim WshShell, bKey, pKey

Set WshShell = WScript.CreateObject("WScript.Shell")

on error resume next

pKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##NomDuServer#DossierPartagé\_LabelFromReg"      
bKey = WshShell.RegRead(pKey)
If (Err <> 0) then
   WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##NomDuServer#DossierPartagé\_LabelFromReg", "NomDuLecteurRéseau"
else
   if (bKey <> "NomDuLecteurRéseau") then
      WshShell.RegWrite pKey, "NomDuLecteurRéseau"     
   end if         
end if

[Polo]

Un peut plus simple :
-> créer un fichier "desktop.ini" a la racine du partage.
Dans le fichier mettre :

Code: Tout sélectionner

[.ShellClassInfo]
NetShareDisplayName=Nom_du_partage



Il suffit de cacher le fichier, au moins, le lecteur réseau s'apelle pareil pour tout le monde...