|
|
|
|
| Компьютерный форум OSzone.net » Железо » Прочее железо » Сканер - Скрипт для установки сетевого сканера в МФУ M1522nf |
|
||||
|
|
Сканер - Скрипт для установки сетевого сканера в МФУ M1522nf
|
|
Пользователь Сообщения: 64 |
Имеется МФУ M1522nf, родное ПО от HP мягко говоря задолбало(постоянные глюки ошибки, не видение сети, ошибки копирования файлов, думаю кто плотно общался с софтом для МФУ от HP поймет меня)
вот рыл на форумах и нарыл батник для установки сетевого сканера BAT файлом вот пример (правда он для M2727): intall.bat Код:
 set sourcepath=%~dp0 pushd %~dp0 cscript.exe get_mfu.vbs %1 F call C:\temp\set_mfu.bat if "%HPBATmodel%"=="M2727" ( echo Scaner Driver for 2727 hppniscan01.exe -f "%sourcepath%hppasc07.inf" -m "vid_03f0&pid_4D17&IP_SCAN" -a "%1" -e %HPBATmac% -n 1 ) if "%HPBATmodel%"=="3390" ( echo Scaner Driver for 3390 hppniscan01.exe -f "%sourcepath%hppasc01.inf" -m "VID_03F0&Pid_3517&IP_SCAN" -a "%1" -e %HPBATmac% -n 1 ) call Hp_scan.cmd rem hppniprint01.exe -p HPLaserJetM2727nfMFP -f "%sourcepath%hppcp607.inf" -m "HP LaserJet M2727 MFP Series PCL 6" -c "Network" -a "%1" -e %HPBATmac% -d "hewlett-packardhp_lad7ce" popd Код:
ip1 = LCase(Wscript.arguments.Item(0))
If Wscript.Arguments.Count = 1 Then
qr="Select * From Win32_PingStatus where Address= '"+ip1+"'"
strComputer = "."
Set objWMIService = GetObject(_
"winmgmts:\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery _
(qr)
For Each objStatus in colPings
If IsNull(objStatus.StatusCode) _
or objStatus.StatusCode<>0 Then
WScript.Echo "No Ping "+ip1
wscript.quit(-1)
Else
Wscript.Echo ip1
End If
Next
end if
url="http://"+ip1+"/info_configuration.html?tab=Status&menu=DevConfig"
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlHTTP.Open "GET",url, false
xmlHTTP.Send
if (xmlhttp.Status<>200) then
wscript.echo "Error server connection"
else
e=Len(xmlhttp.ResponseText)
dim d(15)
i=1
str_tdcls="<td class="+chr(34)+"itemFont"+chr(34)+">"
do
i=i+1
loop until (Mid(xmlhttp.ResponseText,i,8)="h3 class" Or i=e-10)
c=-1
do
c=c+1
do
i=i+1
loop until (Mid(xmlhttp.ResponseText,i,21)=str_tdcls Or i=e-22)
i=i+21
a=i
do
i=i+1
loop until Mid(xmlhttp.ResponseText,i,1)="<"
d(c)=mid(xmlhttp.ResponseText,a,i-a)
loop until c=15
t=15
if right(d(0),4)="3390" then t=14
d(1)=d(2)
d(2)=UCASE(left(d(t),2)+mid(d(t),4,2)+mid(d(t),7,2)+mid(d(t),10,2)+mid(d(t),13,2)+right(d(t),2))
d(3)="Model:" +chr(9)+chr(9)+d(0)
d(4)="Serial:"+chr(9)+chr(9)+d(1)
d(5)="MAC:"+chr(9)+chr(9)+d(2)
for i=3 to 5
wscript.echo d(i)
next
If Wscript.Arguments.Count=2 then
if LCase(Wscript.arguments.Item(1))="f" Then
Set MyFSO = CreateObject("Scripting.FileSystemObject")
Set fbtL = MyFSO.CreateTextFile("C:\TEMP\set_mfu.bat", True)
fbtL.WriteLine("SET HPBATmodel="+mid(d(0),13,5))
fbtL.WriteLine("SET HPBATmac="+d(2))
fbtL.WriteLine("SET HPCOMstart="+chr(34)+comstart+"\HP"+chr(34))
fbtL.Close
end if
end if
end if
Пытался разобратся с адаптацией для M1522nf вот что вышло: Код:
set sourcepath=%~dp0 pushd %~dp0 cscript.exe get_mfu.vbs %1 F call C:\temp\set_mfu.bat if "%HPBATmodel%"=="M1522n" ( echo Scaner Driver for 1522 hppniscan01.exe -f "%sourcepath%hppasc08.inf" -m "vid_03f0&pid_4C17&IP_SCAN" -a "%1" -e %HPBATmac% -n 1 ) if "%HPBATmodel%"=="3390" ( echo Scaner Driver for 3390 hppniscan01.exe -f "%sourcepath%hppasc08.inf" -m "vid_03f0&pid_4C17&IP_SCAN" -a "%1" -e %HPBATmac% -n 1 ) call Hp_scan.cmd rem hppniprint01.exe -p HPLaserJetM1522nfMFP -f "%sourcepath%hppcp608.inf" -m "HP LaserJet M1522 MFP Series PCL 6" -c "Network" -a "%1" -e %HPBATmac% -d "hewlett-packardhp_La9AD2" popd и еще кстати нашел замечательный скрипт на AutoIT но опять не для 1522, взять можно тут http://files.mail.ru/319SX3 Помогите разобраться с проблемой думаю решение которое получится пригодится многим. |
|
|
Отправлено: 09:53, 19-08-2010 |
|
Новый участник Сообщения: 2
|
Профиль | Отправить PM | Цитировать У меня получилось так:
hppniscan01.exe -f "hppasc08.inf" -m "vid_03f0&pid_4C17&IP_SCAN" -a "192.168.6.41" -n 1 нужны будут файлы: hppniscan01.exe hppasc08.inf hppasc08.cat hpst1522.dll hppasc08.dll hpptsp03.dll hpxp1522.dll эти файлы взял отсюда: HP LaserJet M1522 Series Printers - PCL6 Network Express Scan/Print Driver Package http://h20000.www2.hp.com/bizsupport...tem=mp-56260-2 |
|
Последний раз редактировалось v.a.aliferov, 14-10-2010 в 16:01. Отправлено: 15:41, 14-10-2010 | #2 |
|
Новый участник Сообщения: 1
|
Профиль | Отправить PM | Цитировать А можно сам батник предоставить
|
|
Отправлено: 17:52, 18-04-2012 | #3 |
|
Новый участник Сообщения: 2
|
Профиль | Отправить PM | Цитировать |
|
Отправлено: 08:12, 19-04-2012 | #4 |
|
Новый участник Сообщения: 29
|
Профиль | Отправить PM | Цитировать v.a.aliferov,
не подскажите как сюда добавить Digital Imaging? просто у нас многие сканируют только через Digital Imaging. Спасибо. |
|
|
Последний раз редактировалось daradan, 18-05-2012 в 09:38. Отправлено: 09:27, 18-05-2012 | #5 |
|
Новый участник Сообщения: 29
|
Профиль | Отправить PM | Цитировать Нашел установщик драйвер сканера для Win 7 x64/x84
ЗЫ: не проверял, т.к. нет Win 7 x64/x84 _http://depositfiles.com/files/4vba46nj2 |
|
Отправлено: 14:04, 10-07-2012 | #6 |
|
Новый участник Сообщения: 29
|
Профиль | Отправить PM | Цитировать Цитата daradan:
|
|
|
Отправлено: 07:36, 01-10-2012 | #7 |
|
Новый участник Сообщения: 13
|
Профиль | Отправить PM | Цитировать daradan, а можно залить на narod? у меня с диска не качает.
|
|
Отправлено: 11:49, 28-12-2012 | #8 |
|
Новый участник Сообщения: 29
|
Профиль | Отправить PM | Цитировать Цитата Constantus:
закинул на депозит http://depositfiles.com/files/7yr3otkpa запускаем HPscan_soft.bat для установки Digital Imaging |
|
|
Отправлено: 12:23, 28-12-2012 | #9 |
|
Новый участник Сообщения: 1
|
Профиль | Отправить PM | Цитировать у кого завелся сетевой сканер? есть в наличии HP m1522n, но из текущих решений ничего не подошло, возможно что-то неправильно делаю?
|
|
Отправлено: 18:15, 20-02-2013 | #10 |
|
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| CMD/BAT - Скрипт для установки обновлений в win nt 4.0 | ultra_fs | Скриптовые языки администрирования Windows | 4 | 14-01-2011 15:20 | |
| VBS/WSH/JS - Скрипт для установки | KillHunter | Программирование и базы данных | 2 | 08-04-2010 08:01 | |
| Canon toolbox не видит сканера (МФУ) MF-3228 | Anatoliy2004 | Программное обеспечение Windows | 0 | 23-02-2010 00:32 | |
| Драйвер - проблема с работой сканера МФУ Epson 7300 | kolonist | Microsoft Windows Vista | 0 | 01-03-2009 18:31 | |
| Скрипт для установки MathType | Pozia | AutoIt | 0 | 29-01-2009 00:41 | |
|
|
Время: 10:49. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
