[Guest]

Option Explicit
Dim Network
Const PrinterShare = "\\server\printer"

Set Network = CreateObject("Wscript.Network"
'Network.AddWindowsPrinterConnection PrinterShare
Network.SetDefaultPrinter PrinterShare
строчка типа

Network.AddWindowsPrinterConnection PrinterShare
отрабатывается только на принтерах при сервере 2000
а если 98 или jet стоит то не будет работать

а для мапирования дисков мне и полегче хватает
sub groupsmap(objDiskName,objDiskMap)
   On Error Resume Next  
Add2Log Now & ":Подключение диска -" & objDiskName  & " от - " & objDiskMap
       objNetwork.RemoveNetworkDrive objDiskName, True, True
       objNetwork.MapNetworkDrive objDiskName, objDiskMap
   Err.clear
end sub

Sub Add2Log (txt)
    Const Myfile = "C:\MyLog.txt"
    Const ForAppending = 8
Dim fso, file
    Set fso = CreateObject("Scripting.FileSystemObject"
    Set file = fso.OpenTextFile(MyFile, ForAppending, TRUE)
    file.WriteLine (txt)
    Set file = Nothing
End Sub