Serverhomelaufwerk verbinden

Hallo Liebe Administratorgemeinde

ich habe ein problem. und zwar habe ich vbs skript erstellt welche unsere clients mit netzlaufwerken verbindet.

dieses skript funktioniert so weit auch recht gut. das einzige problem ist das verbinden mit dem homelaufwerk, dass problem dabei ist dass die homelaufwerke so "vorname_nachname" und die normalen Serverprofile "vorname.nachname" eingerichtet ist.
mit dem skript kann ich zwar den username ermitteln wo gerade sich anmeldet und das skript ausführt jedoch finde ich keinen weg den usernamen im skript so um zu bennen damit anstatt des "." ein "_" ist und das homelaufwerk verbindet.

hier noch mein skript:

' Netzlaufwerke verbinden und eindeutig benennen

'kommandozeilen öffnet sich kurz, zum trennen aller bisher gemappten Laufwerke starten
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("net use * /d /y")
Set WshShell = Nothing

' Variablen deklariere
Dim objNetwork, objShell
Dim strMyName, strMyDriveLetter, strMyRemotePath
Set objNetwork = CreateObject("WScript.Network")
Set objShell = CreateObject("Shell.Application")

Public Function mapMyDrives(strMyName, strMyDriveLetter, strMyRemotePath)
objNetwork.MapNetworkDrive strMyDriveLetter, strMyRemotePath
objShell.NameSpace(strMyDriveLetter).Self.Name = strMyName
mapMyDrives = ""

End Function

Set wn = WScript.CreateObject("WScript.Network")
domain = wn.UserDomain
computer = wn.ComputerName
user = wn.UserName

' hier dann der Funktionsaufruf mit dem ich schön die Laufwerke verbinden kann
mapMyDrives "Home", "H:", "\\W2K3EX1\" & user & "$"
mapMyDrives "Firma Alle", "I:", "\\server\alle$"
mapMyDrives "Tausch", "T:", "\\server\tausch$"
mapMyDrives "Programme", "P:", "\\Server\Programme$"

Set objNetwork = Nothing
Set objShell = Nothing


hat hierfür jemand einen Tipp???

gruß