hide UNC bij netwerk mapping

[Rotty]

Tijdens het aanloggen op een windows server worden een aantal netwerk maqppings gemaakt ( maar ook via het profiel van de user (home dir) tabblad in AD.

Resultaat is dat in explorer de share wordt weergegeven met de omschrijving Weet iemand een eenvoudige methode om de pad verwijzing niet te laten zien of aan te passen.

[ Voor 17% gewijzigd door Rotty op 16-02-2009 22:32 ]

[MRE-Inc]

Ik heb thuis nog wel een vb scriptje die dit doet. Die vervangt het gehele pad naar een naampje die jij daar voor ingeeft.

Gebruiker krijgt dan ipv \\servernaam\share\folder\usernaam

Homedrive H:\ te zien......

Wellicht dat je er wat verder mee kunt stoeien:

code:

Dim objNetwork, strDrive, objShell, objUNC, strGroup, strgroup2, strGroupName, objGroup, strGroupPath, WSHNetwork

Dim strRemotePath1, strDriveLetter1, strNewName1,strRemotePath2, strDriveLetter2, strNewName2, strRemotePath3, strDriveLetter3, strNewName3, strRemotePath4, strDriveLetter4, strNewName4, strRemotePath5, strDriveLetter5, strNewName5, strRemotePath6, strDriveLetter6, strNewName6

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objShell = CreateObject("Shell.Application")
Set objNetwork = CreateObject("WScript.Network")
Set ADInfo = CreateObject("adsysteminfo")

strUserPath = "LDAP://" & ADInfo.UserName

Set objUser = GetObject(strUserPath)

UserString = WSHNetwork.UserName

'wscript.echo UserString 

strDriveLetter1 = "P:"
strDriveLetter2 = "Q:"
strDriveLetter3 = "R:"
strDriveLetter4 = "T:"
strDriveLetter5 = "W:"

strRemotePath1 = "\\servernaam\share\users$\" & UserString
strRemotePath2 = "\\servernaam\share\Folder1"
strRemotePath3 = "\\servernaam\share\Folder2"
strRemotePath4 = "\\servernaam\share\Folder3"
strRemotePath5 = "\\servernaam\share\Folder4"

strNewName1 = "Mijn Documenten"
strNewName2 = "Technische data"
strNewName3 = "HR"
strNewName4 = "Temp"
strNewName5 = "Development"

'Remove all mappings
On Error Resume Next
objNetwork.RemoveNetworkDrive strDriveLetter1
objNetwork.RemoveNetworkDrive strDriveLetter2
objNetwork.RemoveNetworkDrive strDriveLetter3
objNetwork.RemoveNetworkDrive strDriveLetter4
objNetwork.RemoveNetworkDrive strDriveLetter5

'Mappings for all users
objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1
objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2
objNetwork.MapNetworkDrive strDriveLetter4, strRemotePath4
objShell.NameSpace(strDriveLetter1).Self.Name = strNewName1
objShell.NameSpace(strDriveLetter2).Self.Name = strNewName2
objShell.NameSpace(strDriveLetter4).Self.Name = strNewName4

[Rotty]

bedankt voor de input, maar voor de login scripts wordt hier gebruik gemaakt van Kix (ben daar zelf niet heel erg bekend mee) ik zoek dus eigenlijk een oplossing binnen het reeds bestaande script.

Anyone care to collaborate ?

[DukeBox]

KiXX kan dat niet, ik zou hoe dan ook verder kijken daar KiXX erg leuk is maar toch zeer beperkt.
Je zou ook kunnen kijken naar een policy zodat je hemelaal niet meer aan loginscripts vast zit.

[elevator]

Ik zou even in explorer de network drive renamen, vervolgens in de registry onder "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2" (iirc) kijken -- je zou daar dan je renamede drive terug moeten vinden.

Als je die registry key in je logon script zet dan zou het hetzelfde effect moeten hebben

[Rotty]

elevator schreef op vrijdag 13 februari 2009 @ 16:10:
Ik zou even in explorer de network drive renamen, vervolgens in de registry onder "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2" (iirc) kijken -- je zou daar dan je renamede drive terug moeten vinden.

Als je die registry key in je logon script zet dan zou het hetzelfde effect moeten hebben

Goeie optie indeed, hier kan ik wel wat mee !