本机信息获取工具内存品牌

获取用户网络信息 (本机名, 本机IP, 本机掩码, 本机网关, 本机首DNS, 本机副DNS, 本机MAC, 本机网卡名称, 本机外网IP, 本机外网归属地, 本机CPU, 本机内存, 主板品牌, 主板型号, 本机显卡, 显卡驱动, 本机操作系统, 操作系统版本号, 当前用户, 安装日期, 开机时间)
编辑框内容.内容 ＝ “计算机名: ” ＋ 本机名 ＋ #换行符 ＋ “操作系统: ” ＋ 本机操作系统 ＋ “ (” ＋ 操作系统版本号 ＋ “)” ＋ #换行符 ＋ “当前帐户: ” ＋ 当前用户 ＋ #换行符 ＋ “系统安装日期: ” ＋ 安装日期 ＋ “本次开机时间: ” ＋ 开机时间 ＋ #换行符 ＋ “IP 地址: ” ＋ 本机IP ＋ “/” ＋ 本机掩码 ＋ “/” ＋ 本机网关 ＋ #换行符 ＋ “DNS服务: ” ＋ 本机首DNS ＋ “/” ＋ 本机副DNS ＋ #换行符 ＋ “物理地址: ” ＋ 本机MAC ＋ #换行符 ＋ “网卡名称: ” ＋ 本机网卡名称 ＋ #换行符 ＋ “公网地址: ” ＋ 本机外网IP ＋ “/” ＋ 本机外网归属地 ＋ #换行符 ＋ #换行符 ＋ “处 理 器: ” ＋ 本机CPU ＋ #换行符 ＋ “内 存: ” ＋ 本机内存 ＋ #换行符 ＋ “主板品牌: ” ＋ 主板品牌 ＋ “(” ＋ 主板型号 ＋ “)” ＋ #换行符 ＋ “显卡型号: ” ＋ 本机显卡 ＋ “(” ＋ 显卡驱动 ＋ “)”

.如果真 (取文本右边 (取文本左边 (到文本 (取内存容量信息 (0)), 2), 1) ≠ “0”) ' 如果取内存容量左边2位数，第二位数不为0
本机内存 ＝ 取文本左边 (本机内存, 2) ＋ “G” ' 本机内存容量=左边2位数
.如果真结束
本机内存 ＝ 取文本左边 (到文本 (取内存容量信息 (0)), 1) ＋ “G”
主板品牌 ＝ 取文本注册项 (4, “HARDWARE\DESCRIPTION\System\BIOS\BaseBoardManufacturer”, )
.如果真 (取文本左边 (主板品牌, 7) ＝ “ASUSTeK”)
主板品牌 ＝ “华硕”
.如果真结束
.如果真 (取文本左边 (主板品牌, 3) ＝ “MSI”)
主板品牌 ＝ “微星”
.如果真结束
.如果真 (取文本左边 (主板品牌, 6) ＝ “LENOVO”)
主板品牌 ＝ “联想”
.如果真结束

主板型号 ＝ 取文本注册项 (4, “HARDWARE\DESCRIPTION\System\BIOS\BaseBoardProduct”, )
显卡型号 ＝ 取文本注册项 (4, “SYSTEM\ControlSet001\Control\Class\{4d36e968-e325-11ce-bfc1-08002be10318}\0000\DriverDesc”, )
显卡驱动 ＝ 取文本注册项 (4, “SYSTEM\ControlSet001\Control\Class\{4d36e968-e325-11ce-bfc1-08002be10318}\0000\DriverDate”, )
本机操作系统 ＝ 取文本注册项 (4, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName”, )
操作系统版本号 ＝ 取文本注册项 (4, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\ReleaseId”, )
当前用户 ＝ 系统_取用户名 ()
安装日期 ＝ 文本_替换 (文本_取出中间文本 (系统_取系统信息 (), “初始安装日期: ”, “系统启动时间: ”, ), 20, 1, , “ ”, “”)
开机时间 ＝ 文本_取出中间文本 (系统_取系统信息 (), “系统启动时间: ”, “系统制造商: ”, )
.如果真 (当前用户 ＝ “Administrator”)
当前用户 ＝ “Administrator (超级用户)”
.如果真结束
.计次循环首 (取数组成员数 (网卡信息), i)
跳到 (i)
.如果真 (取文本左边 (网卡信息 [i].连接名称, 5) ≠ “VMwar”)
.如果真 (网卡信息 [i].IP地址 ≠ “0.0.0.0”)
本机IP ＝ 网卡信息 [i].IP地址
本机掩码 ＝ 网卡信息 [i].子网掩码
本机网关 ＝ 网卡信息 [i].网关地址
本机首DNS ＝ 网卡信息 [i].首选DNS服务器
本机副DNS ＝ 网卡信息 [i].备用DNS服务器
本机MAC ＝ 网卡信息 [i].MAC地址
本机网卡名称 ＝ 网卡信息 [i].网卡描述
.如果真结束

.如果真结束

.计次循环尾 ()