NSIS一键安装网络打印机

admin

为了方便安装打印机，所以特地写了这个脚本。希望对大家有所帮助。

在窗体中创建Droplist，并且读取选择值，来进行后续操作。

点击安装来触发

1. function OnClickinstall
   
2. SetShellVarContext all
   
3. ${NSD_GetText} $DropList1 $stext
   
4. 
   
5. ${if} $stext == "20楼打印机"
   
6. ;===打印机IP地址===
   
7. StrCpy $ipadd '192.168.1.42'
   
8. ;===打印机名称===
   
9. StrCpy $pname 'KONICA MINOLTA 500/420/360VXL'
   
10. ;===驱动程序总文件===
    
11. StrCpy $local "\\172.16.0.5\Software\驱动程序\20楼新打印机驱动\20楼打印机32位驱动\KOBZOJB_.inf"
    
12. ${andIf} ${RunningX64}
    
13. push $local
    
14. StrCpy $local "\\172.16.0.5\Software\驱动程序\20楼新打印机驱动\20楼打印机64位驱动\KOBZOJB_.inf"
    
15. ${endif}
    
16. 
    
17. ${if} $stext == '19楼打印机'
    
18. ;===打印机IP地址===
    
19. StrCpy $ipadd '192.168.8.41'
    
20. ;===打印机名称===
    
21. StrCpy $pname 'HP Universal Printing PCL 6'
    
22. ;===驱动位置===
    
23. StrCpy $local "\\172.16.0.5\Software\驱动程序\19楼新打印机驱动\HP Universal Print Driver\pcl6-x32\hpcu175u.inf"
    
24. ;===驱动程序总文件===
    
25. ${andIf} ${RunningX64}
    
26. push $local
    
27. StrCpy $local "\\172.16.0.5\Software\驱动程序\19楼新打印机驱动\HP Universal Print Driver\pcl6-x64\hpcu175u.inf"
    
28. ${endif}
    
29. 
    
30. ${if} $stext == '38楼打印机'
    
31. ;===打印机IP地址===
    
32. StrCpy $ipadd '192.168.10.39'
    
33. ;===打印机名称===
    
34. StrCpy $pname 'KONICA MINOLTA 501/421/361PCL'
    
35. ;===驱动位置===
    
36. StrCpy $local "\\192.168.10.10\驱动程序\打印机驱动\打印机安装文件\PCL_Win7_32\Win_x86\KOBZEJ__.inf"
    
37. ;===驱动程序总文件===
    
38. ${andIf} ${RunningX64}
    
39. push $local
    
40. StrCpy $local "\\192.168.10.10\驱动程序\打印机驱动\打印机安装文件\PCL_Win7_64\Win_x64\KOBZEJ__.inf"
    
41. ${endif}
    
42. 
    
43. ;===添加打印机端口===
    
44. WriteRegDWORD HKLM 'SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports' "StatusUpdateInterval" "0000000a"
    
45. WriteRegDWORD HKLM 'SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports' "StatusUpdateEnabled" "00000001"
    
46. WriteRegDWORD HKLM 'SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports' "LprAckTimeout" "000000b4"
    
47. 
    
48. ;===添加具体端口===
    
49. MessageBox MB_ICONINFORMATION|MB_OK '你选择安装的打印机为$stext $\n$\r 该打印机IP地址为$ipadd $\n$\r 驱动程序位置为：$local'
    
50. WriteRegDWORD HKLM 'SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports\$ipadd' "Protocol" "00000001"
    
51. WriteRegDWORD HKLM 'SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports\$ipadd' "Version" "00000002"
    
52. WriteRegStr HKLM 'SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports\$ipadd' "HostName" $ipadd
    
53. WriteRegStr HKLM 'SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports\$ipadd' "IPAddress" ""
    
54. WriteRegStr HKLM 'SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports\$ipadd' "HWAddress" ""
    
55. WriteRegDWORD HKLM 'SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports\$ipadd' "PortNumber" "9100"
    
56. WriteRegStr HKLM 'SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports\$ipadd' "SNMP Community" "public"
    
57. WriteRegDWORD HKLM 'SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports\$ipadd' "SNMP Enabled" "00000000"
    
58. WriteRegDWORD HKLM 'SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports\$ipadd' "SNMP Index" "00000001"
    
59. WriteRegDWORD HKLM 'SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports\$ipadd' "PortMonMibPortIndex" "00000000"
    
60. 
    
61. 
    
62. ;===重启打印机安装服务===
    
63. nsExec::Exec 'net stop spooler'
    
64. nsExec::Exec 'net start spooler'
    
65. 
    
66. ;===调用系统组件安装打印机===
    
67. ExecWait 'rundll32 printui.dll,PrintUIEntry /if /b "$pname" /r $ipadd /m "$pname" /z /f "$local" '
    
68. ExecWait 'rundll32 printui.dll,PrintUIEntry /y /n "$pname" /q'
    
69. MessageBox MB_ICONINFORMATION|MB_OK '安装成功，如有问题，请和本人联系'
    
70. 
    
71. FunctionEnd

复制代码