Network Drive Label 1

[NEAXMAN]

Hello all,

I am having a bit of a problem trying to rename mapped network drives. We use a .bat logon script that maps our network drives using net use and then the batch script calls a vbscript that renames the network drives. The script vbscript looks like:

Set oShell = CreateObject("Shell.Application")
oShell.NameSpace("H:\").Self.Name = "Home"
oShell.NameSpace("I:\").Self.Name = "ProgramFiles"
oShell.NameSpace("P:\").Self.Name = "Public"
oShell.NameSpace("X:\").Self.Name = "Apps"

The problem is that we now would like to label the H: Drive with the %username% variable, so it shows the user's logon name. So for example Sue Water's H: Drive would show up as waterss (H in My Computer. How would I go about doing this?

 

[guitarzan]

Try this:

Set wshShell = CreateObject( "WScript.Shell" )
username = wshShell.ExpandEnvironmentStrings( "%username%" )

http://www.robvanderwoude.com/vbstech_data_environment.php

 

[NEAXMAN]

Thanks for the reply. So in this case, what would my whole VBScript look like?

 

[guitarzan]

Assuming your initial code worked and made the H: drive show up as [highlight #FCE94F]Home (H[/highlight], then this should work (not tested):

Set wshShell = CreateObject( "WScript.Shell" )
username = wshShell.ExpandEnvironmentStrings( "%username%" )

Set oShell = CreateObject("Shell.Application")
oShell.NameSpace("H:\").Self.Name = [highlight #FCE94F]username[/highlight]
oShell.NameSpace("I:\").Self.Name = "ProgramFiles"
oShell.NameSpace("P:\").Self.Name = "Public"
oShell.NameSpace("X:\").Self.Name = "Apps"

 

[NEAXMAN]

Perfect!! Thank you so much! This works just as we had hoped. The H: Drive is labeled as the user's logon username. Thanks a million!

 

[guitarzan]

You're welcome, glad it helped.

 

[markdmac]

Neaxman, don't forget to click the Great Post link to give a star to Guitarzan's post.

I hope that helps.

Regards,

Mark

No trees were harmed in posting this message, however a significant number of electrons were terribly inconvenienced.

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER.

 

[strongm]

Given that users can modify environment variables, why not go with:

[blue]Set wshNetwork = CreateObject("WScript.Network")
username =  wshNetwork.UserName[/blue]