WIS blogg

On our server we have split our disks into:

C: System disk

D: Data disk

E: Archive

T: Temp

In addition we have a fewsubsted drives, both substed to a folder in D:\...:

I: Common

H: Home

And a few mapped network drives:

W: Webserver

X: Appserver

My "problem" is that I relate much more to drive letters than to drive names, so

I've found that I could rename mapped network drives in scripting, but for long not my substed drives

It always comes up as Data (I:). The same name as my physical D: drive

Then I found a comment on this article:

http://www.digwin.com/cant-rename-subst-drive-in-ultimate-32bit

And it turns out that you can only rename substed drive if the drive you are substing to is not named...

So I deleted the "Data" name on our D: disk so that it comes up as "Local Disk (D:)" and now I can rename my substed drive:-)

So my script turned out like this:

set WshShell = CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")

WshShell.run "subst I: D:\Data"
WshShell.run "subst H: D:\Home\%Username%"

WshShell.run "net use W: \\5.10.1.2\wis pwd /USER:uname /Persistent:No"

WshShell.run "net use X: \\5.10.1.2\wis pwd /USER:uname /Persistent:No" 

objShell.NameSpace("E:").Self.Name = "E: Archive"
objShell.NameSpace("I:").Self.Name = "I: Common"
objShell.NameSpace("H:").Self.Name = "H: Home"
objShell.NameSpace("T:").Self.Name = "T: Temp"
objShell.NameSpace("W:").Self.Name = "W: Webserver"
objShell.NameSpace("X:").Self.Name = "X: Appserver"