chemy
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Цитата: была подобная проблема и с принтерами решил с помощью VB.
Кому интересно |
нашел косяк, когда мапится диск появляется ошибка если буква уже занята.
Кому интересно новая версия без этого недостатка.
print.vbs
Цитата:
Set WshNetwork = CreateObject("WScript.Network")
PrinterPath = "\\Icv-dc\XeroxWor"
WshNetwork.AddWindowsPrinterConnection PrinterPath
WshNetwork.SetDefaultPrinter "\\Icv-dc\XeroxWor"
CheckNetworkMapping "Z:"
Function CheckNetworkMapping(DriveLetter)
Dim Drive
'WScript.Echo "Проверяем наличие подключенного сетевого диска " & DriveLetter
CheckNetworkMapping = False
For Each Drive In wshNetwork.EnumNetworkDrives
If LCase(Drive) = LCase(DriveLetter) Then
CheckNetworkMapping = True
Exit For
End If
Next
If CheckNetworkMapping Then
'WScript.Echo "Сетевой диск найден"
Else
'WScript.Echo " Сетевой диск не найден"
MapNetwork "Z:", "\\icv-dc\exchange"
End If
End Function
' Эта подпрограмма ассоциирует букву с сетевым каталогом
sub MapNetwork(driveletter, netshare)
on error resume next
err.clear
'WScript.Echo "Подключаем сетевой диск."
wshNetwork.MapNetworkDrive driveletter, netshare, true
if err <> 0 then
'Подключение не удалось
'WScript.Echo "не могу ассоциировать " & driveletter & " с " & netshare
else
'WScript.Echo "ОК..."
end if
end sub
|
Все таки как с профилем для outlook быть? |
Всего записей: 70 | Зарегистр. 28-02-2003 | Отправлено: 08:36 28-11-2003 | Исправлено: chemy, 08:45 28-11-2003 |
|
