VPF::printer map to lpt1 - Форум программистов

quasi

Дата 22.11.2007, 05:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 9.6.2007

Репутация: 1
Всего: 0

Имею вот такой рабочий скриптец, но выдает ошибку и иногда почему-то мапит принтер-шару в диск, но при этом мапит и как принтер-шару, при этом он даже работает, только вот ошибку выдает.

Код


Const USER_PROFILE = &H28&

Dim objComputer
Dim strServer
Dim strHomeDir
Dim strIP

Set objComputer = CreateObject("Shell.LocalMachine")
Set WshShell = CreateObject("Wscript.Shell")
strServer = objComputer.MachineName

'Set pShell = WScript.CreateObject("WScript.Shell")

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(USER_PROFILE)
Set objFolderItem = objFolder.Self
strHomeDir = objFolderItem.Path


if Left(strServer,3) = "TS-" then
  WshShell.run "subst b: """ & strHomeDir & """"
   
   Set oWTSCOM = CreateObject("EOLWTSCOM.WTSCOM")
   strIP   = oWTSCOM.WTSQuerySessionInformation(0, -1, 14)

   'strIP = pShell.ExpandEnvironmentStrings("%CLIENTNAME%") 
   set fs=Wscript.CreateObject("Scripting.FileSystemObject") 
   set wn=Wscript.CreateObject("Wscript.Network") 

  
    if fs.DriveExists("LPT1:") then wn.RemoveNetworkDrive "LPT1:", true, true 
    wn.MapNetworkDrive "LPT1", "\\"& strIP &"\printer", True

'...

    if fs.DriveExists("E:") then wn.RemoveNetworkDrive "E:", true, true 
    wn.MapNetworkDrive "E:", "\\"& strIP &"\share", True
  
   'strNUSE = "net use LPT1: \\" & strIP & "\printer"
   'WshShell.run "net use LPT1: /delete"

    wscript.sleep 1000
  WshShell.run strNUSE
end if
On Error Resume Next
WSCript.Quit

Как исправить?
user posted image

Akina

Дата 22.11.2007, 09:34 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Замените для начала

Цитата(quasi @ 22.11.2007, 06:16

)

Код


if fs.DriveExists("LPT1:") then wn.RemoveNetworkDrive "LPT1:", true, true

на

Код


Do While fs.DriveExists("LPT1:") 
   wn.RemoveNetworkDrive "LPT1:", true, true 
   wscript.sleep 1000
Loop

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »