NSIS一键安装打印机

admin

AutoInstallPrinter.ini 文件说明

1. [PrinterInfo]
   
2. ; 网络打印机的IP地址，如192.168.3.250
   
3. IP=
   
4. ; 当前目录下打印机的驱动文件，如16L\oemsetup.inf
   
5. PrinterDrivePath=
   
6. ; 打印机驱动的名称，在inf文件中找，如上面的oemsetup.inf里的PCL6 Driver for Universal Print
   
7. DrvName=
   
8. ; 自定义在控制面板显示的名称，如16楼打印机室
   
9. CustomizePrinterName=

复制代码

1. !define HAVE_UPX
   
2. !ifdef HAVE_UPX
   
3. !packhdr tmp.dat "upx -9 tmp.dat"
   
4. !endif
   
5. 
   
6. ; ------ MUI 现代界面定义 (1.67 版本以上兼容) ------
   
7. !include "MUI.nsh"
   
8. !include "x64.nsh"
   
9. !include "logiclib.nsh"
   
10. !include "Printer.nsh"
    
11. ; MUI 预定义常量
    
12. !define MUI_ABORTWARNING
    
13. !define MUI_ICON "Printer.ico"
    
14. !define PRODUCT_NAME "进化论自动安装打印机工具"
    
15. !define PRODUCT_VERSION "2022.01.10.16"
    
16. ; 安装界面包含的语言设置
    
17. !insertmacro MUI_LANGUAGE "SimpChinese"
    
18. 
    
19. Var WINDOWS_Language ;WINDOWS语言
    
20. Var PrinterIp ;打印机的IP地址
    
21. Var PrinterDrivePath ;打印机驱动路径
    
22. Var CustomizePrinterName ;自定义打印机名称
    
23. Var DrvName ;打印机驱动名称
    
24. ; 载入插件
    
25. !define pluginDir ".\plugins"
    
26. !addplugindir "${pluginDir}"
    
27. 
    
28. ;文件版本声明
    
29. VIProductVersion ${PRODUCT_VERSION}
    
30. VIAddVersionKey /LANG=2052 "ProductName" "进化论自动安装打印机工具"
    
31. VIAddVersionKey /LANG=2052 "Comments" "永恒心锁"
    
32. VIAddVersionKey /LANG=2052 "CompanyName" "http://www.yhxs3344.net"
    
33. VIAddVersionKey /LANG=2052 "LegalTrademarks" "http://www.yhxs3344.net"
    
34. VIAddVersionKey /LANG=2052 "LegalCopyright" "永恒心锁"
    
35. VIAddVersionKey /LANG=2052 "FileDescription" "进化论自动安装打印机工具"
    
36. VIAddVersionKey /LANG=2052 "FileVersion" ${PRODUCT_VERSION}
    
37. 
    
38. ; 检测程序是否已运行
    
39. !macro CheckRunningPrograms
    
40. System::Call 'kernel32::CreateMutexA(i 0, i 0, t"${PRODUCT_NAME}") i .r1 ?e'
    
41. Pop $R0
    
42. ${If} $R0 <> 0
    
43. Messagebox MB_TOPMOST|MB_ICONINFORMATION|MB_OK "安装程序已经在运行,请不要多次打开程序"
    
44. Quit
    
45. ${EndIf}
    
46. !macroend
    
47. 
    
48. XPStyle on
    
49. OutFile "AutoInstallPrinter.exe"
    
50. Caption "进化论自动安装打印机工具"
    
51. 
    
52. RequestExecutionLevel admin ;管理员权限
    
53. 
    
54. Section
    
55. Sectionend
    
56. 
    
57. SilentInstall silent
    
58. 
    
59. Function .onInit
    
60. !insertmacro CheckRunningPrograms ;安装程序运行检测的变量
    
61. InitPluginsDir
    
62. File /oname=$PLUGINSDIR\vbs.reg ".\nsPlugin\vbs.reg"
    
63. ClearErrors
    
64. ReadINIStr $PrinterIp "$EXEDIR\AutoInstallPrinter.ini" "PrinterInfo" "IP"
    
65. ReadINIStr $PrinterDrivePath "$EXEDIR\AutoInstallPrinter.ini" "PrinterInfo" "PrinterDrivePath"
    
66. ReadINIStr $DrvName "$EXEDIR\AutoInstallPrinter.ini" "PrinterInfo" "DrvName"
    
67. ReadINIStr $CustomizePrinterName "$EXEDIR\AutoInstallPrinter.ini" "PrinterInfo" "CustomizePrinterName"
    
68. ReadRegStr $WINDOWS_Language HKLM "SYSTEM\CurrentControlSet\Control\Nls\Language" "Default"
    
69. ${If} $PrinterIp = ""
    
70. ${AndIf} $PrinterDrivePath = ""
    
71. ${AndIf} $DrvName = ""
    
72. ${AndIf} $CustomizePrinterName = ""
    
73. Messagebox MB_TOPMOST|MB_ICONINFORMATION|MB_OK "配置信息有缺失，请查看AutoInstallPrinter.ini文件"
    
74. ExecWait '"$WINDIR\System32\notepad.exe" $EXEDIR\AutoInstallPrinter.ini'
    
75. Quit
    
76. ${EndIf}
    
77. 
    
78. ${If} ${RunningX64}
    
79. Call OSX64
    
80. ${Else}
    
81. Call OSX86
    
82. ${EndIf}
    
83. FunctionEnd
    
84. 
    
85. Function OSX86
    
86. nsExec::ExecToLog '"cmd" /c "$WINDIR\regedit.exe /s" "$PLUGINSDIR\vbs.reg"'
    
87. ${If} $WINDOWS_Language = 0804
    
88. nsExec::ExecToLog '"cmd" /c "cscript $WINDIR\System32\Printing_Admin_Scripts\zh-cn\Prnport.vbs" -a -r $PrinterIp -h $PrinterIp -o raw -me -y public -n 9100'
    
89. Sleep 300
    
90. ExecWait 'rundll32 printui.dll,PrintUIEntry /if /b "$CustomizePrinterName" /f "$EXEDIR\$PrinterDrivePath" /r "$PrinterIp" /m "$DrvName"'
    
91. Sleep 1000
    
92. Messagebox MB_TOPMOST|MB_ICONINFORMATION|MB_OK "打印机安装完成"
    
93. nsExec::ExecToLog '"cmd" /c "explorer shell:::{A8A91A66-3A7D-4424-8D24-04E180695C7A}"'
    
94. ${EndIf}
    
95. 
    
96. ${If} $WINDOWS_Language == 0409
    
97. nsExec::ExecToLog '"cmd" /c "cscript $WINDIR\System32\Printing_Admin_Scripts\en-US\Prnport.vbs" -a -r $PrinterIp -h $PrinterIp -o raw -me -y public -n 9100'
    
98. Sleep 300
    
99. ExecWait 'rundll32 printui.dll,PrintUIEntry /if /b "$CustomizePrinterName" /f "$EXEDIR\$PrinterDrivePath" /r "$PrinterIp" /m "$DrvName"'
    
100. Sleep 1000
     
101. Messagebox MB_TOPMOST|MB_ICONINFORMATION|MB_OK "打印机安装完成"
     
102. nsExec::ExecToLog '"cmd" /c "explorer shell:::{A8A91A66-3A7D-4424-8D24-04E180695C7A}"'
     
103. ${EndIf}
     
104. FunctionEnd
     
105. 
     
106. Function OSX64
     
107. # 关闭重定向
     
108. System::Call "Kernel32::Wow64EnableWow64FsRedirection(i 0)"
     
109. #修改VBS默认
     
110. nsExec::ExecToLog '"cmd" /c "$WINDIR\regedit.exe /s" "$PLUGINSDIR\vbs.reg"'
     
111. 
     
112. ${If} $WINDOWS_Language = 0804
     
113. nsExec::ExecToLog '"cmd" /c "cscript $WINDIR\SysWOW64\Printing_Admin_Scripts\zh-cn\Prnport.vbs" -a -r $PrinterIp -h $PrinterIp -o raw -me -y public -n 9100'
     
114. Sleep 300
     
115. ExecWait 'rundll32 printui.dll,PrintUIEntry /if /b "$CustomizePrinterName" /f "$EXEDIR\$PrinterDrivePath" /r "$PrinterIp" /m "$DrvName"'
     
116. Sleep 1000
     
117. Messagebox MB_TOPMOST|MB_ICONINFORMATION|MB_OK "打印机安装完成"
     
118. nsExec::ExecToLog '"cmd" /c "explorer shell:::{A8A91A66-3A7D-4424-8D24-04E180695C7A}"'
     
119. ${EndIf}
     
120. 
     
121. ${If} $WINDOWS_Language == 0409
     
122. nsExec::ExecToLog '"cmd" /c "cscript $WINDIR\SysWOW64\Printing_Admin_Scripts\en-US\Prnport.vbs" -a -r $PrinterIp -h $PrinterIp -o raw -me -y public -n 9100'
     
123. Sleep 300
     
124. ExecWait 'rundll32 printui.dll,PrintUIEntry /if /b "$CustomizePrinterName" /f "$EXEDIR\$PrinterDrivePath" /r "$PrinterIp" /m "$DrvName"'
     
125. Sleep 1000
     
126. Messagebox MB_TOPMOST|MB_ICONINFORMATION|MB_OK "打印机安装完成"
     
127. nsExec::ExecToLog '"cmd" /c "explorer shell:::{A8A91A66-3A7D-4424-8D24-04E180695C7A}"'
     
128. ${EndIf}
     
129. 
     
130. # 恢复重定向
     
131. System::Call "Kernel32::Wow64EnableWow64FsRedirection(i 1)"
     
132. FunctionEnd

复制代码