Map local drive/subst command in VBS script?

[profit10]

Hi,

I need to map a drive letter to a local path on the computer. For example, Z: drive points to c:\very\long\path.

I can do this using the subst command but I need a way to do it using my vbs logon script.

If anyone can help at all I would very much appreciate it.

Thanks.

[HilcrRWise]

Dim objShell, strDrive, strPath
Set objShell = CreateObject("WScript.Shell")
strDrive = "Z:"
strPath = """c:\very\long\path"""
objShell.Run "cmd /c SUBST " & strDrive & " " & strPath, 1, True

[profit10]

Thanks for your reply. I've left work now so will give this a try on Monday!