Приходилось программно расшаривать папки. Для этого нужно быть (или знать) логин и пароль администратора домена

В модуле имеем:
Option Explicit

Public Const RESOURCETYPE_DISK = &H1

Public Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
lpLocalName As String
lpRemoteName As String
lpComment As String
lpProvider As String
End Type

Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
Public Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long

' Подключение сетевых ресурсов
Public Function AddConn(strNetPath As String, strLocalDiskName As String, strUserName As String, strUserPass As String) As Double

Dim netSD As NETRESOURCE ' структура для АПИ функции при подключении к ресурсу

netSD.lpLocalName = strLocalDiskName
netSD.lpRemoteName = strNetPath
netSD.dwType = RESOURCETYPE_DISK

AddConn = WNetAddConnection2(netSD, strUserPass, strUserName, 0)

End Function

' Отключение сетевых ресурсов
Public Function ClearConn(strLocalDiskName As String) As Double

Dim netSD As NETRESOURCE ' структура для АПИ функции при подключении к ресурсу

netSD.lpLocalName = strLocalDiskName
ClearConn = WNetCancelConnection2(netSD.lpLocalName, 0, -1)

End Function

В коде формы:

' Начинаем подключаться к сетевым ресурсам
strAN = txtAdminName
strAP = txpAdminPass

strLocalSMap = "w:"
strLocalDMap = "y:"

strNetSPath = "\\" & strSIP & "\c$"
strNetDPath = "\\" & strDIP & "\c$"

' подключем сетевой диск источника (для тестирования возможности подключения вообще)
If AddConn(strNetSPath, strLocalSMap, strAN, strAP) = 0 Then
lblAS.BackColor = vbGreen
blnSM = True
Else
lblAS.BackColor = vbRed
blnSM = False
End If

' подключем сетевой диск получателя (для тестирования возможности подключения вообще)
If AddConn(strNetDPath, strLocalDMap, strAN, strAP) = 0 Then
lblAD.BackColor = vbGreen
blnDM = True
Else
lblAD.BackColor = vbRed
blnDM = False
End If

' теперь отключаемся от этих дисков
If ClearConn(strLocalSMap) = 0 Then
End If

If ClearConn(strLocalDMap) = 0 Then
End If

' Окончательная проверка всех условий подключения
If blnSQ And blnDQ And blnSM And blnDM Then
frmMain.mnuПеренос.Enabled = True
Else
frmMain.mnuПеренос.Enabled = False
End If

End Sub

А что касается изменения прав на уже расшаренные ресурсы - то тут только ADSI спасет отца русской демократии (ИМХО)