Moderators: Management, Forum Experts
Iam going to try this new GP Monday. If it does not work I am going to change the redirection to the home directory that is set in the profile.

Hey hey hey

'Option Explicit
Dim objFSO, objNetwork, strRemotePath1
Dim strDriveLetter1
Set objNetwork = WScript.CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Remove any old drive mappings before starting
If objFSO.DriveExists("T:") = True Then
objNetwork.RemoveNetworkDrive "T:", True, True
End If
'Set variables
strDriveLetter1 = "T:"
strRemotePath1 = "\\Replogleserver\testcenter"
' Section which maps drives,
objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1

'Option Explicit
Dim objFSO, objNetwork, strRemotePath1
Dim strDriveLetter1
Set objNetwork = WScript.CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Remove any old drive mappings before starting
If objFSO.DriveExists("T:") = True Then
objNetwork.RemoveNetworkDrive "T:", True, True
End If
'Set variables
strDriveLetter1 = "T:"
strRemotePath1 = "\\Replogleserver\testcenter"
' Section which maps drives,
objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1
WScript.Quit



Users browsing this forum: No registered users and 0 guests