基于AutoIt3的打印机安装

#Region ;**** 编译指令由 AutoIt3Wrapper 选项编译窗口创建 ****
#AutoIt3Wrapper_Icon=favicon.ico
#AutoIt3Wrapper_Compile_Both=y
#EndRegion ;**** 编译指令由 AutoIt3Wrapper 选项编译窗口创建 ****
#cs ----------------------------------------------------------------------------

 Version: 1.0
 Author:         MaJunyi

#ce ----------------------------------------------------------------------------
#include <StringConstants.au3> ; for 正则表达式
#include <GUIConstantsEx.au3> ; for GUI
#include <WinAPIShellEx.au3>; for winShell
#include <InetConstants.au3>; for download
; CPL文件，又叫控制面板项(Control Panel Item)，多保存于系统安装目录的system32文件夹下，它们分别对应着控制面板中的项目

; 优化：
; . 可以添加一号楼绝大部分打印机
; . 可添加二号楼3..5楼打印机
; . 可进入---控制面板\所有控制面板项\设备和打印机（control printers）
; 不足：
; . 暂未添加用户名至网络打印机
; . 打印楼层单一

$headlabel = "打印机添加和安装"
GUICreate($headlabel, , )
$okbutton = GUICtrlCreateButton("确认安装", , , , )
$localPrintBtn = GUICtrlCreateButton("已安装的打印机", , , , )
$printDriverBtn = GUICtrlCreateButton("打印机驱动", , , , )

$guiTop = 

GUICtrlCreateLabel("请选择您的位置：", , $guiTop)
$guiTop+=
Local $idRadio1 = GUICtrlCreateRadio("一号楼", , $guiTop)
$guiTop1 = $guiTop
$guiTop+=
Local $idRadio231 = GUICtrlCreateRadio("二号楼-3楼1", , $guiTop)
$guiTop231 = $guiTop
$guiTop+=
Local $idRadio232 = GUICtrlCreateRadio("二号楼-3楼2", , $guiTop)
$guiTop232 = $guiTop
$guiTop+=
Local $idRadio241 = GUICtrlCreateRadio("二号楼-4楼1", , $guiTop)
$guiTop241 = $guiTop
$guiTop+=
Local $idRadio242 = GUICtrlCreateRadio("二号楼-4楼2", , $guiTop)
$guiTop242 = $guiTop
$guiTop+=
Local $idRadio25 = GUICtrlCreateRadio("二号楼-5楼", , $guiTop)
$guiTop25 = $guiTop

; 检测是否云桌面
isCloudOrNot()
GUISetState(@SW_SHOW)
Sleep()
; 下载驱动
$printDriverIp = "\\xxx.xxx.xxx.xxx"
; GUICtrlCreateLabel("连接及下载打印机驱动，从" & $printDriverIp, , )
; Sleep()
; $openNetPrint = _WinAPI_ShellExecute ($printDriverIp)
; GUICtrlCreateLabel("尝试连接打印机（会显示打印机任务，需去打印机刷卡才会打印）", , )
; Sleep()

; GUICtrlCreateLabel("打开 " & $ctrlPrintShow, , )

; net use \\xxx.xxx.xxx.xxx\eFollow_Printer  /user:HEM100

; Script Start - Add your code below here
; 检测是否云
Func isCloudOrNot()
    Local $string0 = StringRegExp(@IPAddress1, '(172.xx.)(\d+.\d+)', $STR_REGEXPARRAYMATCH)
    If Not @error Then
        $isYun =
        MsgBox(,'', '您是尊贵的云用户，不能添加打印机')
    Else
        If @error== Then
            ; Return "您不是云用户"
            Return "正在为您添加打印机"
        Else
            Return "请联系开发人员，错误代码：" & @error
            ; : 正则表达式错误, 数组无效.
        EndIf
    EndIf
EndFunc

Global $chooseRadio
Global $driverIp
Global $driverIpFile
$LianJieTipsLeft = 

While
  $msg = GUIGetMsg()
  Select
    Case $msg = $idRadio1 And BitAND(GUICtrlRead($idRadio1), $GUI_CHECKED) = $GUI_CHECKED
        $chooseRadio =
        ; MsgBox($MB_SYSTEMMODAL, 'Info', $chooseRadio)
        GUICtrlCreateLabel("驱动服务器" & canConnectOrNot('xxx.xxx.xxx.xxx'), $LianJieTipsLeft, $guiTop1+)
    Case $msg = $idRadio231 And BitAND(GUICtrlRead($idRadio231), $GUI_CHECKED) = $GUI_CHECKED
        $chooseRadio =  ;ok
        $driverIpFile = "\UNIV_driver\Setup.exe"
        $driverIp = "\\172.16.11.234"
        GUICtrlCreateLabel("驱动服务器" & canConnectOrNot('xxx.xxx.xxx.xxx'), $LianJieTipsLeft, $guiTop231+)
    Case $msg = $idRadio232 And BitAND(GUICtrlRead($idRadio232), $GUI_CHECKED) = $GUI_CHECKED
        $chooseRadio =  ;ok
        $driverIpFile = "\UNIV_driver\essetup.exe"
        $driverIp = "\\172.16.11.220"
        GUICtrlCreateLabel("驱动服务器" & canConnectOrNot('xxx.xxx.xxx.xxx'), $LianJieTipsLeft, $guiTop232+)
    Case $msg = $idRadio241 And BitAND(GUICtrlRead($idRadio241), $GUI_CHECKED) = $GUI_CHECKED
        $chooseRadio =  ;ok
        $driverIpFile = "\UNIV_driver\Setup.exe"
        $driverIp = "\\172.16.242.245"
        GUICtrlCreateLabel("驱动服务器" & canConnectOrNot('xxx.xxx.xxx.xxx'), $LianJieTipsLeft, $guiTop241+)
    Case $msg = $idRadio242 And BitAND(GUICtrlRead($idRadio242), $GUI_CHECKED) = $GUI_CHECKED
        $chooseRadio =  ;ok
        $driverIpFile = "\UNIV_driver\essetup.exe"
        $driverIp = "\\172.16.11.228"
        GUICtrlCreateLabel("驱动服务器" & canConnectOrNot('xxx.xxx.xxx.xxx'), $LianJieTipsLeft, $guiTop242+)
    Case $msg = $idRadio25 And BitAND(GUICtrlRead($idRadio25), $GUI_CHECKED) = $GUI_CHECKED
        $chooseRadio =  ;ok
        $driverIpFile = "\UNIV_driver\Setup.exe"
        $driverIp = "\\172.16.241.172"
        GUICtrlCreateLabel("驱动服务器" & canConnectOrNot('xxx.xxx.xxx.xxx'), $LianJieTipsLeft, $guiTop25+)
    Case $msg = $okbutton
        If $chooseRadio ==  Then
            MsgBox(,"","尝试连接打印机（会显示打印机任务，需去打印机刷卡才会打印）")
            $openNetPrintFile = _WinAPI_ShellExecute ("\\xxx.xxx.xxx.xxx\eFollow_Printer")
        ElseIf $chooseRadio >  Then
            $mLink = $driverIp  & $driverIpFile
            $openNetPrintFile = _WinAPI_ShellExecute ($mLink)
            ; downloadFile('printDriver.exe', "file://xxx.xxx.xxx.xxx/UNIV_driver/Setup.exe")
        Else
            MsgBox(,"","请选择您的位置")
        EndIf
        ; ExitLoop
    Case $msg = $localPrintBtn
        ; $ctrlPrintShow = "控制面板\硬件和声音\设备和打印机"
        ; $openPrintDir = _WinAPI_ShellExecute("::{2227A280-3AEA-1069-A2DE-08002B30309D}")
        $openPrintDir = Run(@SystemDir & "\control.exe printers")
    Case $msg = $printDriverBtn
        $openNetPrintFile = _WinAPI_ShellExecute ("\\xxx.xxx.xxx.xxx")
    Case $msg = $GUI_EVENT_CLOSE
        ; 关闭对话框事件
        ExitLoop
  EndSelect
WEnd

; 检测是否能连接上指定IP
Func canConnectOrNot($testIP)
    ; Ping网站,超时时间为  毫秒.
    Local $iPing = Ping($testIP, )
    If $iPing Then
        Return "连接成功"
    Else
        ;当函数执行失败时(返回 )@error 包含数值的具体信息:
        If @error ==  Then
            Return "离线"
        ElseIf @error ==  Then
            Return "无法到达"
        ElseIf @error ==  Then
            Return "目标错误"
        ElseIf @error ==  Then
            Return "其他错误-连接超时"
        Else
            Return "连接超时"
        EndIf
    EndIf
EndFunc

Func downloadFile($mFile, $link)
    ProgressOn("下载新版本："&$mFile, "正在更新版本，请稍候...", "0%")
    Local $i =
    Do
        Sleep()
        ;$i = $i+
        $i = Round(FileGetSize($mFile)//)
        ; Update the progress value of the progress bar window.
        ProgressSet($i, $i & "%")
    Until InetGetInfo($link, $INET_DOWNLOADCOMPLETE)
    ; Set the "subtext" and "maintext" of the progress bar window.
    ProgressSet(, "更新完成", "Complete")
    Sleep()
    ; Close the progress window.
    ProgressOff()
EndFunc