select case prop.name
case "Molod"
if (objmapp.driveExists("J:")) then
objNet.RemoveNetworkDrive "J:"
end if
objNet.MapNetworkDrive "J:","\\server\files_Molod"
case "Molod"
set wshNetwork = WScript.CreateObject( "WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\server\X3450"
WshNetwork.SetDefaultPrinter "\\server\X3450"
...
end select
Подключение принтера через VB
Подскажите, что не так этом скрипте:
У меня сетка, дабы не мучатся по подключению сетевых дисков и принтеров пользователям, написал VB-script. С сетевыми дисками проблем нет, а вот принтера не цепляет что нетак?
У меня сетка, дабы не мучатся по подключению сетевых дисков и принтеров пользователям, написал VB-script. С сетевыми дисками проблем нет, а вот принтера не цепляет что нетак?
Код: