首页 > 其他分享 >装机工具GUI

装机工具GUI

时间：2022-10-14 09:36:36浏览次数：65  
标签：domain exe get GUI Add sn 装机 工具 Gui

依赖文件地址

https://wwm.lanzouw.com/iUEbh0152gte

#SingleInstance Force
#NoEnv
SetRegView 64
SetBatchLines -1
SendMode Input
#Persistent

;强制以ANSI版本管理员权限运行
runwith("admin","A")

if (A_IsUnicode=1 and A_PtrSize=8) ; 用于修正32位AHK读取不到"C:\Windows\System32"的问题
    DllCall("Wow64DisableWow64FsRedirection")

; 加载皮肤，只支持32位AHK
hSkinH := DllCall("LoadLibrary", "Str", "SkinH.dll")
DllCall("SkinH\SkinH_AttachEx", "Str", A_ScriptDir "\自改黑红皮肤修正.she")

;查看电脑型号
command_pcname = wmic csproduct get name
pcname := cmdSilenceReturn(command_pcname)
pcname := StrReplace(pcname, A_Space, "")
pcname := StrReplace(pcname, "`r`n")
; pcname := StrReplace(pcname, "Name", "型号：     ")
pcname := SubStr(pcname, 5, StrLen(pcname))

;读取bios sn
command_sn = wmic bios get serialnumber
bios_sn := cmdSilenceReturn(command_sn)
bios_sn := StrReplace(bios_sn, A_Space, "")
bios_sn := StrReplace(bios_sn, "`r`n")
; bios_sn := StrReplace(bios_sn, "SerialNumber", "序列号：   ")
bios_sn := SubStr(bios_sn, 13, StrLen(bios_sn))

;读取主板sn
; command = wmic baseboard get serialnumber
; board_sn := cmdSilenceReturn(command)

;查看工作组
command_domain = wmic computersystem get domain
get_domain := cmdSilenceReturn(command_domain)
get_domain := StrReplace(get_domain, A_Space, "")
get_domain := StrReplace(get_domain, "`r`n")
;get_domain := StrReplace(get_domain, "Domain", "工作组/域：")
;get_domain := SubStr(get_domain, 12, StrLen(get_domain))
get_domain := SubStr(get_domain, 7, StrLen(get_domain))

;读取钉钉版本
RegRead, dd_version, HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\钉钉, DisplayVersion

;静音
;Send {Volume_Mute}

;打开word
;Run, winword
;打开激活界面
;Run, ms-settings:activation,Max

; Gui Font, s10
; Gui Add, Text, x5 y200 w230 h30, %pcname%
; ;Gui Add, Text, x5 y200 w230 h30, 机器SN:
; Gui Add, Text, x5 y230 w230 h30, %bios_sn%
; ;Gui Add, Text, x5 y250 w230 h30, 工作组/域:
; Gui Add, Text, x5 y260 w230 h30, %get_domain%

Gui Font, s8
; Gui Add, Edit, x70 y218 vSN ReadOnly
; Gui Add, Edit, x70 y248 vdomain ReadOnly
GuiControl,, SN, %bios_sn%
GuiControl,, domain, %get_domain%
; Gui Add, Text, x5 y250 w230 h30, 主板_%board_sn%

Gui Font, s10
; Gui Add, Text, x5 y2 w230 h30, -----------用户管理-----------
; Gui Add, Text, x5 y130 w230 h30, -----------安装软件-----------
Gui Add, Text, x5 y20 w60 h20, 用户名:
Gui Add, Text, x5 y45 w60 h20, 目标组:
Gui Add, Edit, x60 y18 w150 h20 vUsername
Gui Add, DDL, x60 y43 vcbx w150 hwndhcbx, Administrators||Users
Gui Add, Button, x75 y75 w65 h20, 添加用户
Gui Add, Button, x145 y75 w65 h20, 查看用户
;Gui Add, Button, x5 y100 w65 h20, 加入W组
;Gui Add, Button, x75 y100 w65 h20, 加入域
Gui Add, Button, x5 y75 w65 h20, 用户和组
Gui Add, Button, x5 y145 w65 h20, 安装钉钉

Gui, Add, GroupBox, x3 y2 w210 h125 +Center, % " 用户管理 "
Gui, Add, GroupBox, x3 y130 w210 h42 +Center, % " 安装软件 "
; Gui, Add, GroupBox, x3 y185 w210 h150, 计算机信息

Gui Font, s9
Gui, Add, ListView, r20 w210 h150 gMyListView Grid NoSortHdr -Hdr NoSort -Multi, 项目|详细信息
LV_ModifyCol(1, 62)
LV_ModifyCol(2, 144)
LV_Add("", "型号", pcname)
LV_Add("", "序列号", bios_sn)
LV_Add("", "工作组/域", get_domain)
LV_Add("", "钉钉版本", dd_version)

Gui, Add, StatusBar


Gui Show, x1000 y150 w216 h355, 装机工具by CXR
Return

MyListView:
    if (A_GuiEvent = "DoubleClick")
    {
        LV_GetText(RowText, A_EventInfo, 2) ; 从行的第一个字段中获取文本.
        ToolTip %RowText%
        Sleep, 3000
        ToolTip
    }
return

Button用户和组:
    Run, lusrmgr.msc
return

Button添加用户:
    GuiControlGet, user_name ,, Username
    GuiControlGet, group ,, cbx
    command = net user %user_name% /add ;添加用户
    command1 = net localgroup %group% %user_name% /add ;添加到选择的组
    command2 = wmic.exe UserAccount Where Name="%user_name%" Set PasswordExpires="false" ;密码永不过期
    user := cmdSilenceReturn(command)
    cmdSilenceReturn(command2)
    user_add := cmdSilenceReturn(command1)
    If (user = "")
        msgbox 添加失败
    Else
        msgbox,,%user_name%, % user_add
Return

Button查看用户:
    GuiControlGet, group,, cbx
    command = net localgroup %group%
    user := cmdSilenceReturn(command)
    msgbox,,%group%, % user
return

;Button加入W组:
;Return

;Button加入域:
;Return

Button安装钉钉:
    SB_SetText("正在安装钉钉！")
    runwait 钉钉.exe /S     ;需要离线安装包
    SB_SetText("钉钉安装成功！")
    RegRead, dd_version, HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\钉钉, DisplayVersion
    LV_Add("", "钉钉_新", dd_version)
return

GuiEscape:
GuiClose:
ExitApp

;强制改权限
RunWith(RunAsAdmin:="Default", ANSI_U32_U64:="Default")
{
    ; 格式化预期的模式
    switch, RunAsAdmin
    {
        case "Normal","Standard","No","0":		RunAsAdmin:=0
        case "Admin","Yes","1":								RunAsAdmin:=1
        case "Default":												RunAsAdmin:=A_IsAdmin
        default:															RunAsAdmin:=A_IsAdmin
    }
    switch, ANSI_U32_U64
    {
        case "A32","ANSI","A":								ANSI_U32_U64:="AutoHotkeyA32.exe"
        case "U32","X32","32":								ANSI_U32_U64:="AutoHotkeyU32.exe"
        case "U64","X64","64":								ANSI_U32_U64:="AutoHotkeyU64.exe"
        case "Default":												ANSI_U32_U64:="AutoHotkey.exe"
        default:															ANSI_U32_U64:="AutoHotkey.exe"
    }
    ; 获取传递给 “.ahk” 的用户参数（不是 /restart 之类传递给 “.exe” 的开关参数）
    for k, v in A_Args
    {
        if (RunAsAdmin=1)
        {
            ; 转义所有的引号与转义符号
            v:=StrReplace(v, "\", "\\")
            v:=StrReplace(v, """", "\""")
            ; 无论参数中是否有空格，都给参数两边加上引号
            ; Run       的内引号是 "
            ScriptParameters .= (ScriptParameters="") ? """" v """" : A_Space """" v """"
        }
        else
        {
            ; 转义所有的引号与转义符号
            ; 注意要转义两次 Run 和 RunAs.exe
            v:=StrReplace(v, "\", "\\")
            v:=StrReplace(v, """", "\""")
            v:=StrReplace(v, "\", "\\")
            v:=StrReplace(v, """", "\""")
            ; 无论参数中是否有空格，都给参数两边加上引号
            ; RunAs.exe 的内引号是 \"
            ScriptParameters .= (ScriptParameters="") ? "\""" v "\""" : A_Space "\""" v "\"""
        }
    }
    ; 判断当前 exe 是什么版本
    if (!A_IsUnicode)
        RunningEXE:="AutoHotkeyA32.exe"
    else if (A_PtrSize=4)
        RunningEXE:="AutoHotkeyU32.exe"
    else if (A_PtrSize=8)
        RunningEXE:="AutoHotkeyU64.exe"
    ; 运行模式与预期相同，则直接返回。 ANSI_U32_U64="AutoHotkey.exe" 代表不对 ahk 版本做要求。
    if (A_IsAdmin=RunAsAdmin and (ANSI_U32_U64="AutoHotkey.exe" or ANSI_U32_U64=RunningEXE))
        return
    ; 如果当前已经是使用 /restart 参数重启的进程，则报错避免反复重启导致死循环。
    else if (RegExMatch(DllCall("GetCommandLine", "str"), " /restart(?!\S)"))
    {
        预期权限:=(RunAsAdmin=1) ? "管理员权限" : "普通权限"
        当前权限:=(A_IsAdmin=1) ? "管理员权限" : "普通权限"
            ErrorMessage=
            (LTrim
            预期使用: %ANSI_U32_U64%
            当前使用: %RunningEXE%
            预期权限: %预期权限%
            当前权限: %当前权限%
            程序即将退出。
            )
            MsgBox 0x40030, 运行状态与预期不一致, %ErrorMessage%
        ExitApp
    }
    else
    {
        ; 获取 AutoHotkey.exe 的路径
        SplitPath, A_AhkPath, , Dir
        if (RunAsAdmin=0)
        {
            ; 强制普通权限运行
            switch, A_IsCompiled
            {
                ; %A_ScriptFullPath% 必须加引号，否则含空格的路径会被截断。%ScriptParameters% 必须不加引号，因为构造时已经加了。
                ; 工作目录不用单独指定，默认使用 A_WorkingDir 。
                case, "1": Run, RunAs.exe /trustlevel:0x20000 "\"%A_ScriptFullPath%\" /restart %ScriptParameters%",, Hide
                default: Run, RunAs.exe /trustlevel:0x20000 "\"%Dir%\%ANSI_U32_U64%\" /restart \"%A_ScriptFullPath%\" %ScriptParameters%",, Hide
            }
        }
        else
        {
            ; 强制管理员权限运行
            switch, A_IsCompiled
            {
                ; %A_ScriptFullPath% 必须加引号，否则含空格的路径会被截断。%ScriptParameters% 必须不加引号，因为构造时已经加了。
                ; 工作目录不用单独指定，默认使用 A_WorkingDir 。
                case, "1": Run, *RunAs "%A_ScriptFullPath%" /restart %ScriptParameters%
                default: Run, *RunAs "%Dir%\%ANSI_U32_U64%" /restart "%A_ScriptFullPath%" %ScriptParameters%
            }
        }
        ExitApp
    }
}

;后台静默运行cmd命令缓存文本取值
cmdSilenceReturn(command){
    CMDReturn:=""
    cmdFN:="RunAnyCtrlCMD"
    try{
        RunWait,% ComSpec " /C " command " > ""%Temp%\" cmdFN ".log""",, Hide
        FileRead, CMDReturn, %A_Temp%\%cmdFN%.log
        FileDelete,%A_Temp%\%cmdFN%.log
    }catch{}
    return CMDReturn
}

 

标签：domain,exe,get,GUI,Add,sn,装机,工具,Gui
From： https://www.cnblogs.com/ff888/p/16790528.html

相关文章

  • 关于Surge本地订阅工具sub-store删除组合订阅error
    打开surge，【工具】>【脚本编辑器】【设置】>【$persistentStore】找到【sub-store】找到“artifacts”找到你创建的组合订阅$name，删掉它！注意格式，中括号......
  • 编译安装hls协议切片工具 m3u8-segmenter
    操作系统：Ubuntu16.04.4amd64安装​​http://m3u8-segmenter.inodes.org/​​方式安装m3u8-segmenter报错，于是有了这篇文章aptinstallaptitudeapt-add-repositoryppa:joh......
  • 【GUI视频教程】GUI综合实战视频教程第1期：综合UI项目规划以及AppWizard和ThreadX GUIX
    ​之前一直打算录制GUI视频教程，但是没有想好该如何录制，经过这段时间的考虑和网友的建议，准备做成综合实战视频，每个功能都是独立的应用。视频：​​https://www.bilibili.com/vi......
  • snmpwalk工具使用
    snmpwalk工具使用简介snmpwalksnmpwalk是SNMP的一个工具，它使用SNMP的GETNEXT请求查询指定OID（SNMP协议中的对象标识）入口的所有OID树信息，并显示给用户。在linux下使用snmpw......
  • chkconfig服务管理工具
    ####chkconfig命令系统服务管理工具#linux系统的管理，linux系统的服务有很多，所以需要管理服务的工具#centos6以及之前的版本中用到的工具叫做chkconfig#centos7里面已......
  • JDK命令行工具
          我们大多数人都知道JDK的bin目录下有“java.exe”、“javac.exe”这两个命令行工具，其实Java为我们提供的工具远不止这两个，这些工具可以帮我们处理应用程序性......
  • MYSQL-->客户端常用工具指令
    mysql这个mysql指的是mysql的客户端管理工具语法mysql选项数据库选项内容-u指定用户名-p指定密码-h指定ip地址-P指定端口-e执行SQL语句并退出-e选项可......
  • 文字语音转换工具
    在线文字转语音工具-UU在线工具(uutool.cn)在线文字转语音工具，可以将文字快速转换成语音，支持中英文混合语音转换，可用于阅读新闻，阅读语音红包等场景，转换成语音后支持在......
  • Java虚拟机详解（八）------虚拟机监控和分析工具（2）——可视化
    上篇博客我们介绍了​​虚拟机监控和分析命令行工具​​，由于其不够直观，不是很容易排查问题，那么本篇博客我们就来介绍几个可视化工具。1、JConsoleJConsole（JavaMoni......
  • Tabby，一款老外都在用的 SSH工具，竟然还支持网页操作
    会编程的蜗牛主要分享java编程，也会涉及其他方向的技术分享。1篇原创内容公众号序言各位好啊，我是会编程的蜗牛，作为java开发者，或者说编程人员，程序员的我们，Linux服务器总......

赞助商

阅读排行

网站主页关于我们联系我们网站地图

本网站内容转载自其他媒体，侵权联系[admin##ips99.com]。

Copyright © 2020-2023 IPS99 版权所有 IPS99