Mapping network drives using VB Script

Hi, i'm currently using VB Script to map all of our shared drive to client workstation. i would like to know if anyone can advise if there's any possible ways i can make the mapped shared drives only visible to allowed person based on the sharing and security settings for the shared drive.

All drives are mapped to all client wks including drives that are not accessible. Would like to make it non-visible to staffs that do not have access to it. Below are the script that i'm currently using to map shared drives to client workstation.

On Error Resume Next

' ############ Drivemap Section #################
Dim WSHNetwork

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

WshNetwork.RemoveNetworkDrive "I:", True, True
WshNetwork.MapNetworkDrive "I:", "\\Srv03\DriveA"

WshNetwork.RemoveNetworkDrive "V:", True, True
WshNetwork.MapNetworkDrive "V:", "\\Srv03\DriveB"

WshNetwork.RemoveNetworkDrive "H:", True, True
WshNetwork.MapNetworkDrive "H:", "\\Srv03\DriveC$\" + WshNetwork.UserName + "$"

WshNetwork.RemoveNetworkDrive "G:", True, True
WshNetwork.MapNetworkDrive "G:", "\\Srv03\DriveD"

WshNetwork.RemoveNetworkDrive "O:", True, True
WshNetwork.MapNetworkDrive "O:", "\\Srv03\DriveE"

WshNetwork.RemoveNetworkDrive "P:", True, True
WshNetwork.MapNetworkDrive "P:", "\\Srv03\DriveF$"

WshNetwork.RemoveNetworkDrive "M:", True, True
WshNetwork.MapNetworkDrive "M:", "\\Srv03\DriveG"

'WshNetwork.RemoveNetworkDrive "S:", True, True
'WshNetwork.MapNetworkDrive "S:", "\\Srv03\DriveH"

WshNetwork.RemoveNetworkDrive "N:", True, True
WshNetwork.MapNetworkDrive "N:", "\\Srv03\DriveI"

WshNetwork.RemoveNetworkDrive "R:", True, True
WshNetwork.MapNetworkDrive "R:", "\\Srv03\DriveJ"

'WshNetwork.RemoveNetworkDrive "T:", True, True
'WshNetwork.MapNetworkDrive "T:", "\\Srv03\DriveK"

WshNetwork.RemoveNetworkDrive "J:", True, True
WshNetwork.MapNetworkDrive "J:", "\\Srv03\DriveL"

WshNetwork.RemoveNetworkDrive "L:", True, True
WshNetwork.MapNetworkDrive "L:", "\\Srv03\DriveM$"

WshNetwork.RemoveNetworkDrive "K:", True, True
WshNetwork.MapNetworkDrive "K:", "\\mSrv03\DriveN"

---

Cheers, Sparcx [MCTS,MCITP-EA]