Дополнение к бат-скрипту. С ним случился сбой в сети, сбой плавающий причину так и не получилось понять.

Собственно три файл vbs

personal.vbs
Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUserName
strDriveLetter = «P:»
strRemotePath = «\\servname\Personal»

Set objNetwork = WScript.CreateObject(«WScript.Network»)

strUserName = objNetwork.UserName
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _
& «\» & strUserName

‘WScript.Echo » Launch Explorer, check: «& strDriveLetter
WScript.Quit

public.vbs
On Error Resume Next

Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter, strNewName

strDriveLetter = «M:»
strRemotePath = «\\servername\Public»
strNewName = «Public»
mapped = false

Set objNetwork = CreateObject(«WScript.Network»)
Set oDrives=objNetwork.EnumNetworkDrives

For i = 0 to oDrives.Count — 1 Step 2
If oDrives.Item(i)=strDriveLetter Then mapped = true

Next
If mapped Then objNetwork.RemoveNetworkDrive strDriveLetter
If mapped Then objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
If Not mapped Then objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

Set objShell = CreateObject(«Shell.Application»)
objShell.NameSpace(strDriveLetter).Self.Name = strNewName

WScript.Quit

share.vbs
On Error Resume Next

Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter, strNewName

strDriveLetter = «N:»
strRemotePath = «\\servername\Shared»
strNewName = «Shared»
mapped = false

Set objNetwork = CreateObject(«WScript.Network»)
Set oDrives=objNetwork.EnumNetworkDrives

For i = 0 to oDrives.Count — 1 Step 2
If oDrives.Item(i)=strDriveLetter Then mapped = true

Next
If mapped Then objNetwork.RemoveNetworkDrive strDriveLetter
If mapped Then objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
If Not mapped Then objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

Set objShell = CreateObject(«Shell.Application»)
objShell.NameSpace(strDriveLetter).Self.Name = strNewName

WScript.Quit

Монтирование дисков vbs
Метки:

Добавить комментарий

Яндекс.Метрика