Option Explicit

Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")

Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")

Dim strDriveLetter
Dim strRemotePath

strDriveLetter = "H:"
strRemotePath = "\\WGSERVER\homes\"&WshNetwork.UserName

objNetwork.MapNetworkDrive strDriveLetter, strRemotePath