дизайн
дизайн
Статьи → Сканирование по сети МФУ HP LJ M2727 MFP
24.10.2012

Сканирование по сети МФУ HP LJ M2727 MFP

Установка сетевого сканера HP M2727 стандартным методом занятие муторное и долгое, особенно если тачка слабенькая. К тому же ставится много ненужной лабуды типа HP customer и т.п. На форуме Ru-Board ( forum.ru-board.com ) был найден способ быстрой установки. Способ заключается в следующем:

Берем три файла: (либо качаем ТУТ)

1. get_mfu.vbs:

If Wscript.Arguments.Count = 0 Then
    wscript.echo "Printapinglo HP2727-HP3390 (c) 2009"
    wscript.echo "Usage Printapinglo <IP address>"
    wscript.quit(1)
End If
strComputer = "."
const HCCU = &H80000001
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Set oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "/root/default:StdRegProv")
Pacc0="10.*"
Pacc1=""
iRC = oRegistry.GetStringValue(HCCU,"Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride",Pacc1)
iRC = oRegistry.SetStringValue(HCCU,"Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride",Pacc0)
Irc=oRegistry.GetStringValue(HKLM,"Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Common Programs",comstart)

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://%22+ip1+%22/info_configuration.html?tab=Status&menu=DevConfig"
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlHTTP.Open "GET",url, false
xmlHTTP.Send
iRC = oRegistry.SetStringValue(HCCU,"Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride",Pacc1) 
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("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


 

2. Scaner_Soft.cmd

set sourcepath=%~dp0
pushd %~dp0
rem Clear Registry
rem hppScanTo regkey
reg delete "HKEY_CLASSES_ROOT\Installer\Products\C4E701FBCA9C98B448D70950790E0B4B" /f > nul
reg delete "HKEY_CLASSES_ROOT\Installer\Products\4D8DC3996DEA2E54A85A7DFDAA06EDF6" /f > nul
rem hppscanM2727 regkey
reg delete "HKEY_CLASSES_ROOT\Installer\Products\C292D1C0A6AC4A54E8D83C01F4BEFC26" /f > nul
rem Scan regkey
reg delete "HKEY_CLASSES_ROOT\Installer\Products\43DE843CF53CFDF44AE6FD7245C2F254" /f > nul
rem hppLJM2727 regkey
reg delete "HKEY_CLASSES_ROOT\Installer\Products\4233B142188C0AA4E9DBADA7A2A2E51B" /f > nul
setup\hpzmsi01.exe "-list" "product.min" "-l" "RUS" "-f" "%~dp0\netx.dat" "-Validate" "No"
popd


3. install.cmd

rem @echo off
if "%1"=="" goto quit
set sourcepath=%~dp0
pushd %~dp0
cscript.exe get_mfu.vbs %1 F
call set_mfu.bat

setup\hppniscan01.exe -f "%sourcepath%hppasc07.inf" -m "vid_03f0&pid_4D17&IP_SCAN" -a "%1" -e %HPBATmac% -n 1
call scaner_soft
rem msiexec /i "%sourcepath%setup\SIPM\hptcpmon.msi" /passive
rem setup\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"
del set_mfu.bat
:quit


Далее следует скопировать все с диска с драйверами M2727 в папку на жестком диске компьютера (или в сетевую папку на сервере). Добавить в эту же папку указанные выше 3 файла. Запускать для установки сканера и программы HP Scanning так:


Path:\>install.cmd IP_address

где 

Path - путь к папке с драйверами
IP_address - IP адрес МФУ HP LJ M2727 MFP



Яндекс цитирования Valid XHTML 1.0 Transitional