[dimich22]

Ну вот так приблизительно:

Код:

Dim objFileSys
Dim objWshNetwork
Dim objWshShell
Dim strLogonPath 

Const FileSrv = "\\server_name" 

Set objFileSys    = CreateObject( "Scripting.FileSystemObject" )
Set objWshNetwork = CreateObject( "WScript.Network" )
Set objWshShell   = CreateObject( "WScript.Shell" )

MapDrv "T:", FileSrv & "\distr", "Дистрибутивы" 
MapDrv "T:\", FileSrv & "\distr", "Дистрибутивы" 


Function MapDrv(DrvLet, UNCPath, DrvName)  
  
    Dim objFSO, oShell           
  
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objoShell = CreateObject("Shell.Application") 
 
    On Error Resume Next  
 
    If objFSO.DriveExists(DrvLet) Then  
        objWshNetwork.RemoveNetworkDrive DrvLet, true, true 
    End If 
 
    objWshNetwork.MapNetworkDrive DrvLet, UNCPath 
    objoShell.NameSpace(DrvLet).Self.Name = DrvName 
      
End Function

Файл с расширением vbs можно просто поместить в автозагрузку, он и так подхватится.