below is a snippet of some vbs code that I am using to try and map drives. When I run the script below, it says it cannot find the path for T & W.
I think it is because I am not using the variable I declared correctly. How can I make it so that when the script runs, the user’s username is inserted in the file path?
Option Explicit
Dim objSysInfo, objNetwork, strUserPath, objUser
Dim adoCommand, adoConnection, strBase, strAttributes
Dim objGroupList, oshell, WshSysenv, sUserName
Set objSysInfo = CreateObject(“ADSystemInfo”)
Set objNetwork = CreateObject(“Wscript.Network”)
strUserPath = “LDAP://” & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
Set oshell = CreateObject(“Wscript.shell”)
Set WshSysEnv = oshell.Environment(“User”)
sUsername = objnetwork.UserName
‘Removes curent mappings
On Error Resume Next
objNetwork.RemoveNetworkDrive “L:”, True, True
objNetwork.RemoveNetworkDrive “J:”, True, True
objNetwork.RemoveNetworkDrive “Z:”, True, True
objNetwork.RemoveNetworkDrive “R:”, True, True
objNetwork.RemoveNetworkDrive “N:”, True, True
objNetwork.RemoveNetworkDrive “O:”, True, True
objNetwork.RemoveNetworkDrive “U:”, True, True
objNetwork.RemoveNetworkDrive “S:”, True, True
objNetwork.RemoveNetworkDrive “M:”, True, True
objNetwork.RemoveNetworkDrive “I:”, True, True
objNetwork.RemoveNetworkDrive “K:”, True, True
objNetwork.RemoveNetworkDrive “X:”, True, True
objNetwork.RemoveNetworkDrive “Y:”, True, True
objNetwork.RemoveNetworkDrive “Q:”, True, True
objNetwork.RemoveNetworkDrive “P:”, True, True
objNetwork.RemoveNetworkDrive “V:”, True, True
On Error GoTo 0
Wscript.Sleep(5000)
objnetwork.mapnetworkDrive “T:”, “\\server.share.edu\com\profiles\'” & sUsername & “‘\My Documents”, False
objnetwork.mapnetworkDrive “W:”, “\\server.share.edu\'” & sUsername & “‘”, False