Dim objNetwork Dim strDriveLetter, strRemotePath Set wshNetwork = WScript.CreateObject("WScript.Network") username=wshNetwork.Username 'WScript.Echo "выполнен вход "&username On Error Resume Next Set colDrives = WSHNetwork.EnumNetworkDrives For i = 0 To colDrives.Count - 1 Step 2 If (colDrives(i) = "M:") then wshNetwork.RemoveNetworkDrive "M:" End If Next strDriveLetter = "M:" strRemotePath = "\\server\files\"&username wshNetwork.MapNetworkDrive strDriveLetter,strRemotePath i=0 Set colDrives = WSHNetwork.EnumNetworkDrives If colDrives.Count = 0 Then MsgBox "Подключенных сетевых дисков нет", _ vbInformation + vbOkOnly, _ "Работа с WSHNetwork" Else strMsg = strMsg & "Бла Бла Бла " & Chr(10) strMsg = strMsg & "Текущие сетевые подключения: " & Chr(10) For i = 0 To colDrives.Count - 1 Step 2 strMsg = strMsg & Chr(10) & colDrives(i) & Chr(9) & colDrives(i + 1) Next End If WScript.Echo "Добро пожаловать в Бла Бла " + chr(10)+strMSG