一款win7以上计算机信息采集脚本

tanglf188 · 发表于 2021-11-9 10:07:38

新建文本文件，复制代码，保存为vbs扩展名的文件，注意编码格式选择Unicode，专业版亲测能用
if msgbox("采集计算机信息需要花费一定的时间,请耐心等待。"& vbCrLf & vbCrLf &"确认采集点击【是】，退出点击【否】",4164,"计算机信息采集脚本") = 7 then
wscript.quit
end if
'on error resume next
'======================参数设置======================
bat_file="msinfo.bat"  '运行msinfo32的bat文件名。
port_file="msinfo.txt"  'msinfo32提取的报告文件名。
info_file="computer_info.txt"  '采集的信息保存文件名。
bs=""  '大类开头分割符。
bt="|"  '大类中间分割符。
es=""  '大类结尾分割符。
lbs="{"  '小类开头分割符。
lbt=";"  '小类中间分割符。
les="}"  '小类结尾分割符。
tbs="["  '分项开头分割符。
tbt=""  '分项中间分割符。
tes="]"  '分项结尾分割符。
sbs=":"  '子项开头分割符。
ses=""  '子项结尾分割符。
sms="-"  '子网掩码分隔符。
fss="/"  '分区信息分隔符。
fbs="(分区数:"  '分区数量开头分隔符。
fes=")"  '分区数量结尾分隔符。
is_st=0  '小类为一类时，是否使用小类开头和结尾分隔符，值为1使用，值为0不使用。
ve=0  '[内部版本]值为1采集，值为0不采集。
cp=0  '[CPU内核数]值为1采集，值为0不采集。
cd=0  '[CD-ROM]媒体类型为UNKNOWN时，值为1采集，值为0不采集。
ad=1  '[声音设备]值为1只采集状态为OK值，值为0采集所有值。
vd=1  '[显示]值为1只采集适配器内存有资料的值，值为0采集所有值。
re=1  '[分辨率]值为1采集，值为0不采集。
da=1  '[网络]值为1只采集IP地址和适配器类型有资料的值，值为0采集所有值。
ip=1  '[IP地址]值为1采集，值为0不采集。
sm=0  '[IP子网掩码]值为1采集，值为0不采集。
gw=0  '[网关]值为1采集，值为0不采集。
dh=0  '[DHCP启用]值为1采集，值为0不采集。
ds=0  '[DHCP服务器]值为1采集，值为0不采集。
mc=1  '[MAC地址]值为1采集，值为0不采集。
prg=0 '[打印驱动程序]值为1采集，值为0不采集。
prp=1 '[打印端口名]值为1采集，值为0不采集。
prs=0 '[打印服务器名称]值为1采集，值为0不采集。
dk=0  '[磁盘类型]值为1采集，值为0不采集。
df=1  '[磁盘空间]值为1采集，值为0不采集。
fs=0  '[磁盘分区]值为1采集，值为0不采集。
xy=1  '[多行写入文件]值为1单行，值为0多行。
is_na=0 '[显示中文类别名称]值为1显示，值为0不显示。
is_dt=1  '[显示采集日期]值为1显示，值为0不显示。
is_txt=3  '[保存文件格式]值为1保存为txt，值为2保存为excel，值为3两种格式都保存。
is_typ=1  '[Excel文件格式]值为1为xlsx格式，值为0为xls格式。
is_wid=0  '[Excel表格列宽]，大于零设置列宽，否则不予设置。
na_1="操作系统名称:"  '默认第一顺序采集信息(顺序代码1)。
na_2="版本:"  '默认第二顺序采集信息(顺序代码2)。
na_3="主板制造商:"  '默认第三顺序采集信息(顺序代码3)。
na_4="系统型号:"  '默认第四顺序采集信息(顺序代码4)。
na_5="处理器:"  '默认第五顺序采集信息(顺序代码5)。
na_6="平台角色:"  '默认第六顺序采集信息(顺序代码6)。
na_7="已安装的物理内存(RAM):"  '默认第七顺序采集信息(顺序代码7)。
na_8="CD-ROM:"  '默认第八顺序采集信息(顺序代码8)。
na_9="声音设备:"  '默认第九顺序采集信息(顺序代码9)。
na_10="显示:"  '默认第十顺序采集信息(顺序代码A)。
na_11="网络:"  '默认第十一顺序采集信息(顺序代码B)。
na_12="磁盘:"  '默认第十二顺序采集信息(顺序代码C)。
na_13="打印:"  '默认第十三顺序采集信息(顺序代码D)。
sort_s="31-61-41-51-C1-71-B1-A1-81-91-11-20-D0" '排序参数，两位为一组(共13组26位)，每组第一位为顺序代码，第二位为显示(隐藏)代码
'sort_s默认值:"11-21-31-41-51-61-71-81-91-A1-B1-C1-D1",全部显示。
'=================================================

DIM dir,fso,f,l1,fdi
'获取当前路径
dir = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
path=dir&"\"&port_file
'l1参数为运行info.bat时关闭弹出的cmd窗口
l1="%1 mshta vbscript:CreateObject("+chr(34)+"WScript.Shell"+chr(34)+").Run("+chr(34)+"%~s0 ::"+chr(34)+",0,FALSE)(window.close)&&exit"
'不存在则写采集文件
set fso = CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(dir&"\"&bat_file) then
set f = fso.CreateTextFile(dir&"\"&bat_file, true)
f.WriteLine(l1& vbCrLf &"msinfo32 /report "&path)
f.Close()
set f = nothing
set fso = nothing
Set wim =nothing
end if

CreateObject("Shell.Application").ShellExecute dir&"\"&bat_file,"","","runas",1 '管理员身份运行bat_file

'提取等待提示
info_per=InputBox("正在提取Microsoft 系统信息，请耐心等待。"& vbCrLf & vbCrLf &"提取信息的同时可以输入使用人员和显示器信息"& vbCrLf & vbCrLf &"提取结束点击【确定】，退出操作点击【取消】","Microsoft 系统信息 (Msinfo32.exe)提取中","编号|科室|姓名|显示器品牌|显示器型号")
if info_per="" then wscript.quit

set fso = CreateObject("Scripting.FileSystemObject")
Set A=fso.OpenTextFile(path,1,0,-1)
For i=1 To 3200
info_con=A.ReadLine
if Left(info_con,6)="操作系统名称" then
      ms1=Trim(Replace(info_con,"操作系统名称","",1,1))
      ms1=Trim(Replace(ms1," ",""))
      if len(ms1)>0 and is_st=1 then ms1=lbs&ms1&les
      fz="操作系统名称"
   end if
if Left(info_con,2)="版本" and fz="操作系统名称" then
      fz=""
      ms2=Trim(Replace(info_con,"版本","",1,1))
      ms2=Trim(Replace(ms2," ",""))
      if ve=0 then
         ms2=mid(ms2,1,instr(ms2,"内部版本") - 1)
      end if
      if len(ms2)>0 and is_st=1 then ms2=lbs&ms2&les
end if
if Left(info_con,5)="主板制造商" then
      ms3=Trim(Replace(info_con,"主板制造商","",1,1))
      ms3=Trim(Replace(ms3," ",""))
      if len(ms3)>0 and is_st=1 then ms3=lbs&ms3&les
   end if
if Left(info_con,4)="系统型号" then
      ms4=Trim(Replace(info_con,"系统型号","",1,1))
      ms4=Trim(Replace(ms4," ",""))
      if len(ms4)>0 and is_st=1 then ms4=lbs&ms4&les
   end if
if Left(info_con,3)="处理器" then
      ms5=Trim(Replace(info_con,"处理器","",1,1))
      ms5=Trim(Replace(ms5," ",""))
      if cp=0 then
         ms5=mid(ms5,1,instr(ms5,"，") - 1)
      end if
      if len(ms5)>0 and is_st=1 then ms5=lbs&ms5&les
   end if
if Left(info_con,4)="平台角色" then
      ms6=Trim(Replace(info_con,"平台角色","",1,1))
      ms6=Trim(Replace(ms6," ",""))
      if len(ms6)>0 and is_st=1 then ms6=lbs&ms6&les
   end if
if Left(info_con,13)="已安装的物理内存(RAM)" then
      ms7=Trim(Replace(info_con,"已安装的物理内存(RAM)","",1,1))
      ms7=Trim(Replace(ms7," ",""))
      if len(ms7)>0 and is_st=1 then ms7=lbs&ms7&les
   end if
if Trim(info_con)="[CD-ROM]" then fz="[CD-ROM]"
if Left(info_con,4)="媒体类型" and fz="[CD-ROM]" then
      ms81=Trim(Replace(info_con,"媒体类型","",1,1))
      ms81=Trim(Replace(ms81," ",""))
      if cd = 1 then
         if Len(ms8)>0 then
            ms8=lbs&ms8&les&lbt&lbs&ms81
            cd_qu=2
         else
            ms8=ms81
            cd_qu=1
         end if
      else
         if Trim(ms81)<>"UNKNOWN" then
               if Len(ms8)>0 then
                  ms8=lbs&ms8&les&lbt&lbs&ms81
                  cd_qu=2
            else
                  ms8=ms81
                  cd_qu=1
            end if
         end if
      end if
end if
if Left(info_con,2)="名称" and fz="[CD-ROM]" then
      ms82=Trim(Replace(info_con,"名称","",1,1))
      ms82=Trim(Replace(ms82," ",""))
      if cd = 1 then
         if cd_qu=1 then ms8=ms8&sbs&ms82&ses
         if cd_qu=2 then ms8=ms8&sbs&ms82&ses&les
      else
         if Trim(ms81)<>"UNKNOWN" then
            if cd_qu=1 then ms8=ms8&sbs&ms82&ses
            if cd_qu=2 then ms8=ms8&sbs&ms82&ses&les
         end if
      end if
      if is_st=1 and cd_qu=1 and left(ms8,len(lbs))<>lbs then ms8=lbs&ms8&les  '一个分类使用分隔符时加上分隔符
end if
if Trim(info_con)="[声音设备]" then fz="[声音设备]"
if Left(info_con,2)="名称" and fz="[声音设备]" then
      ms91=Trim(Replace(info_con,"名称","",1,1))
      ms91=Trim(Replace(ms91," ",""))
end if
if Left(info_con,2)="状态" and fz="[声音设备]" then
      ms92=Trim(Replace(info_con,"状态","",1,1))
      ms92=Trim(Replace(ms92," ",""))
      if ad = 1 then
         if Trim(ms92)="OK" then
            if Len(ms9)>0 then
                  ms9=lbs&ms9&les&lbt&lbs&ms91&les
                  sd_qu=2
            else
                  ms9=ms91
                  sd_qu=1
            end if
         end if
      else
         if Len(ms9)>0 then
            ms9=lbs&ms9&les&lbt&lbs&ms91&les
            sd_qu=2
         else
            ms9=ms91
            sd_qu=1
         end if
      end if
      if is_st=1 and sd_qu=1 and left(ms9,len(lbs))<>lbs then ms9=lbs&ms9&les  '一个分类使用分隔符时加上分隔符
end if
if Trim(info_con)="[显示]" then fz="[显示]"
if Left(info_con,2)="名称" and fz="[显示]" then
      ms101=Trim(Replace(info_con,"名称","",1,1))
      ms101=Trim(Replace(ms101," ",""))
end if
if Left(info_con,5)="适配器内存" and fz="[显示]" then
      ms102=Trim(Replace(info_con,"适配器内存","",1,1))
      ms102=Trim(Replace(ms102," ",""))
      if vd = 1 then
         if Trim(ms102)<>"没有资料" then
            if Len(ms10)>0 then
                  ms10=lbs&ms10&les&lbt&lbs&ms101
                  vd_qu=2
            else
                  ms10=ms101
                  vd_qu=1
            end if
         end if
      else
         if Len(ms10)>0 then
            ms10=lbs&ms10&les&lbt&lbs&ms101
            vd_qu=2
         else
            ms10=ms101
            vd_qu=1
         end if
      end if
end if
if Left(info_con,3)="分辨率" and fz="[显示]" and re=1 then
      ms103=Trim(Replace(info_con,"分辨率","",1,1))
      ms103=Trim(Replace(ms103," ",""))
      if vd = 1 then
         if Trim(ms102)<>"没有资料" then
            if vd_qu=1 then ms10=ms10&sbs&ms103&ses
            if vd_qu=2 then ms10=ms10&sbs&ms103&ses&les
         end if
      else
         if vd_qu=1 then ms10=ms10&sbs&ms103&ses
         if vd_qu=2 then ms10=ms10&sbs&ms103&ses&les
      end if
      if is_st=1 and vd_qu=1 and left(ms10,len(lbs))<>lbs then ms10=lbs&ms10&les  '一个分类使用分隔符时加上分隔符
end if
if Trim(info_con)="[网络]" then fz="[网络]"
if Left(info_con,5)="适配器类型" and fz="[网络]" then
      ms111=Trim(Replace(info_con,"适配器类型","",1,1))
      ms111=Trim(Replace(ms111," ",""))
end if
if Left(info_con,4)="产品类型" and fz="[网络]" then
      ms112=Trim(Replace(info_con,"产品类型","",1,1))
      ms112=Trim(Replace(ms112," ",""))
end if
if Left(info_con,5)="IP 地址" and fz="[网络]" then
      ms113=Trim(Replace(info_con,"IP 地址","",1,1))
      ms113=Trim(Replace(ms113," ",""))
      if Trim(ms113)<>"没有资料" then
         ms113=mid(ms113,1,instr(ms113,", ") - 1) '报告包含Ipv4和Ipv6的IP地址，截取Ipv4的IP地址
      end if
      if da = 1 then
         if Trim(ms113)<>"没有资料" and Trim(ms111)<>"没有资料" then
            if Len(ms11)>0 then
                  if ip=1 then
                     if ip+sm+gw+dh+ds+mc=1 then
                        if right(ms11,len(les))=les then
                              ms11=ms11&lbt&lbs&ms112&sbs&ms113
                        else
                              ms11=ms11&les&lbt&lbs&ms112&sbs&ms113
                        end if
                     else
                        if right(ms11,len(les))=les then
                              ms11=ms11&lbt&lbs&ms112&sbs&tbs&ms113&tes
                        else
                              ms11=ms11&les&lbt&lbs&ms112&sbs&tbs&ms113&tes
                        end if
                     end if
                  else
                     if ip+sm+gw+dh+ds+mc=0 then
                        if right(ms11,len(les))=les then
                              ms11=ms11&lbt&lbs&ms112
                        else
                              ms11=ms11&les&lbt&lbs&ms112
                        end if
                     else
                           if right(ms11,len(les))=les then
                              ms11=ms11&lbt&lbs&ms112&sbs
                        else
                              ms11=ms11&les&lbt&lbs&ms112&sbs
                        end if
                     end if
                  end if
                  da_qu=2
            else
                  if ip=1 then
                     if ip+sm+gw+dh+ds+mc=1 then
                        ms11=ms112&sbs&ms113
                     else
                        ms11=ms112&sbs&tbs&ms113&tes
                     end if
                  else
                     ms11=ms112&sbs
                  end if
                  da_qu=1
            end if
         end if
      else
         if Len(ms11)>0 then
            if ip=1 then
                  if ip+sm+gw+dh+ds+mc=1 then
                     if right(ms11,len(les))=les then
                           ms11=ms11&lbt&lbs&ms112&sbs&ms113
                     else
                           ms11=ms11&les&lbt&lbs&ms112&sbs&ms113
                     end if
                  else
                     if right(ms11,len(les))=les then
                           ms11=ms11&lbt&lbs&ms112&sbs&tbs&ms113&tes
                     else
                           ms11=ms11&les&lbt&lbs&ms112&sbs&tbs&ms113&tes
                     end if
                  end if
            else
                  if ip+sm+gw+dh+ds+mc=0 then
                     if right(ms11,len(les))=les then
                        ms11=ms11&lbt&lbs&ms112
                     else
                        ms11=ms11&les&lbt&lbs&ms112
                     end if
                  else
                     if right(ms11,len(les))=les then
                        ms11=ms11&lbt&lbs&ms112&sbs
                     else
                        ms11=ms11&les&lbt&lbs&ms112&sbs
                     end if
               end if
            end if
            da_qu=2
         else
            if ip=1 then
                  if ip+sm+gw+dh+ds+mc=1 then
                     ms11=ms112&sbs&ms113
                  else
                     ms11=ms112&sbs&tbs&ms113&tes
                  end if
            else
                  ms11=ms112&sbs
            end if
            da_qu=1
         end if
      end if
   end if
if Left(info_con,5)="IP 子网" and fz="[网络]" then
      ms114=Trim(Replace(info_con,"IP 子网","",1,1))
      ms114=Trim(Replace(ms114," ",""))
      if ms114<>"没有资料" then
         ms114=mid(ms114,1,instr(ms114,", ") - 1)
      end if
      if da = 1 then
         if Trim(ms113)<>"没有资料" and Trim(ms111)<>"没有资料" then
            if sm=1 then
                  if ip+sm+gw+dh+ds+mc=1 then
                     ms11=ms11&ms114
                  else
                     if ip=1 then
                        ms11=ms11&tbt&tbs&ms114&tes
                     else
                        ms11=ms11&tbs&ms114&tes
                     end if
                  end if
            end if
         end if
      else
         if sm=1 then
            if ip+sm+gw+dh+ds+mc=1 then
                  ms11=ms11&ms114
            else
                  if ip=1 then
                     ms11=ms11&tbt&tbs&ms114&tes
                  else
                     ms11=ms11&tbs&ms114&tes
                  end if
            end if
         end if
      end if
end if
if Left(info_con,8)="默认 IP 网关" and fz="[网络]" then
      ms115=Trim(Replace(info_con,"默认 IP 网关","",1,1))
      ms115=Trim(Replace(ms115," ",""))
      if da = 1 then
         if Trim(ms113)<>"没有资料" and Trim(ms111)<>"没有资料" then
            if gw=1 then
                  if ip+sm+gw+dh+ds+mc=1 then
                     ms11=ms11&ms115
                  else
                     if ip+sm>0 then
                        ms11=ms11&tbt&tbs&ms115&tes
                     else
                        ms11=ms11&tbs&ms115&tes
                     end if
                  end if
            end if
         end if
      else
         if gw=1 then
            if ip+sm+gw+dh+ds+mc=1 then
                  ms11=ms11&ms115
            else
                  if ip+sm>0 then
                     ms11=ms11&tbt&tbs&ms115&tes
                  else
                     ms11=ms11&tbs&ms115&tes
                  end if
            end if
         end if
      end if
end if
if Left(info_con,8)="DHCP 已启用" and fz="[网络]" then
      ms116=Trim(Replace(info_con,"DHCP 已启用","",1,1))
      ms116=Trim(Replace(ms116," ",""))
      if da = 1 then
         if Trim(ms113)<>"没有资料" and Trim(ms111)<>"没有资料" then
            if dh=1 then
                  if ip+sm+gw+dh+ds+mc=1 then
                     ms11=ms11&ms116
                  else
                     if ip+sm+gw>0 then
                        ms11=ms11&tbt&tbs&ms116&tes
                     else
                        ms11=ms11&tbs&ms116&tes
                     end if
                  end if
            end if
         end if
      else
         if dh=1 then
            if ip+sm+gw+dh+ds+mc=1 then
                  ms11=ms11&ms116
            else
                  if ip+sm+gw>0 then
                     ms11=ms11&tbt&tbs&ms116&tes
                  else
                     ms11=ms11&tbs&ms116&tes
                  end if
            end if
         end if
      end if
end if
if Left(info_con,8)="DHCP 服务器" and fz="[网络]" then
      ms117=Trim(Replace(info_con,"DHCP 服务器","",1,1))
      ms117=Trim(Replace(ms117," ",""))
      if da = 1 then
         if Trim(ms113)<>"没有资料" and Trim(ms111)<>"没有资料" then
            if ds=1 then
                  if ip+sm+gw+dh+ds+mc=1 then
                     ms11=ms11&ms117
                  else
                     if ip+sm+gw+dh>0 then
                        ms11=ms11&tbt&tbs&ms117&tes
                     else
                        ms11=ms11&tbs&ms117&tes
                     end if
                  end if
            end if
         end if
      else
         if ds=1 then
            if ip+sm+gw+dh+ds+mc=1 then
                  ms11=ms11&ms117
            else
                  if ip+sm+gw+dh>0 then
                     ms11=ms11&tbt&tbs&ms117&tes
                  else
                     ms11=ms11&tbs&ms117&tes
                  end if
            end if
         end if
      end if
end if
if Left(info_con,6)="MAC 地址" and fz="[网络]" then
      ms118=Trim(Replace(info_con,"MAC 地址","",1,1))
      ms118=Trim(Replace(ms118," ",""))
      ms118=Trim(Replace(ms118,":",sms))
      if da = 1 then
         if Trim(ms113)<>"没有资料" and Trim(ms111)<>"没有资料" then
            if mc=1 then
                  if ip+sm+gw+dh+ds+mc=1 then
                     ms11=ms11&ms118
                  else
                     ms11=ms11&tbt&tbs&ms118&tes
                  end if
            end if
         end if
      else
         if mc=1 then
            if ip+sm+gw+dh+ds+mc=1 then
                  ms11=ms11&ms118
            else
                  ms11=ms11&tbt&tbs&ms118&tes
            end if
         end if
      end if
      if len(ms11)>0 and (is_st=1 or da_qu=2) and left(ms11,len(lbs))<>lbs then ms11=lbs&ms11  '一个分类使用分隔符时加上分隔符
      if len(ms11)>0 and (is_st=1 or da_qu=2) and right(ms11,len(les))<>les then ms11=ms11&les  '一个分类使用分隔符时加上分隔符
end if
if Trim(info_con)="[磁盘]" then fz="[磁盘]"
if Left(info_con,2)="模式" and fz="[磁盘]" then
      ms121=Trim(Replace(info_con,"模式","",1,1))
      ms121=Trim(Replace(ms121," ",""))
      ms1241=""
      if Len(ms12)>0 then
         if right(ms12,len(les))<>les then
            ms12=ms12&les&lbt&lbs&ms121&sbs
         else
            ms12=ms12&lbt&lbs&ms121&sbs
         end if
         fs_qu=2
      else
         ms12=ms121&sbs
         fs_qu=1
      end if
end if
if Left(info_con,4)="媒体类型" and fz="[磁盘]" then
      ms122=Trim(Replace(info_con,"媒体类型","",1,1))
      ms122=Trim(Replace(ms122," ",""))
      if dk = 1 then
         if dk+df+fs=1 then
            ms12=ms12&ms122
         else
            ms12=ms12&tbs&ms122&tes
         end if
      end if
      flx=1 '用来筛选分区性质：是分区数(值为1)还是分区大小(值为0)
end if
if Left(info_con,2)="分区" and flx=1 then
      fdi=Trim(Replace(info_con,"分区","",1,1)) '获取分区数量
      fdi=Trim(Replace(fdi," ",""))
      flx=0
end if
if Left(info_con,2)="大小" and fz="[磁盘]" then
      ms123=Trim(Replace(info_con,"大小","",1,1)) '获取磁盘大小
      ms123=Trim(Replace(ms123," ",""))
      ms123=Trim(mid(ms123,1,instr(ms123,"(") - 1))
      if df = 1 then
         if dk+df+fs=1 then
            ms12=ms12&ms123
         else
            if dk=0 then
                  ms12=ms12&tbs&ms123&tes
            else
                  ms12=ms12&tbt&tbs&ms123&tes
            end if
         end if
      end if
end if
if Left(info_con,4)="分区大小" and fz="[磁盘]" then
      ms124=Trim(Replace(info_con,"分区大小","",1,1)) '获取分区大小
      ms124=Trim(Replace(ms124," ",""))
      ms124=Trim(mid(ms124,1,instr(ms124,"(") - 1))
      if fs = 1 then
         if len(ms1241)=0 then
            ms1241=fbs&fdi&fes&ms124
         else
            ms1241=ms1241&fss&ms124
         end if
      end if
end if
if (Left(info_con,2)="描述" and fz="[磁盘]") or Trim(info_con)="[SCSI]" then
      if fs = 1 and len(ms1241)>0 then
         if dk+df+fs=1 then
            ms12=ms12&ms1241
         else
            ms12=ms12&tbt&tbs&ms1241&tes
         end if
      end if
      if len(ms12)>0 and (is_st=1 or fs_qu=2) and left(ms12,len(lbs))<>lbs then ms12=lbs&ms12  '一个分类使用分隔符时加上分隔符
      if len(ms12)>0 and (is_st=1 or fs_qu=2) and right(ms12,len(les))<>les then ms12=ms12&les  '一个分类使用分隔符时加上分隔符
end if
if Trim(info_con)="[SCSI]" then  fz="[SCSI]"
if Trim(info_con)="[打印]" then fz="[打印]"
if Trim(info_con)="[有问题的设备]"  then fz=[有问题的设备]
if Left(info_con,2)<>"名称" and Trim(info_con)<>"[打印]" and fz="[打印]" and Trim(info_con)<> "" then
      ms131=Trim(Replace(info_con," ","/**/"))
      if InStr(ms131,"/**/")>0 then ms132=mid(ms131,1,InStr(ms131,"/**/")-1)
      ms131=Replace(ms131,ms132&"/**/","",1,1)
      if InStr(ms131,"/**/")>0 then ms133=mid(ms131,1,InStr(ms131,"/**/")-1)
      ms131=Replace(ms131,ms133&"/**/","",1,1)
      if InStr(ms131,"/**/")>0 then ms134=mid(ms131,1,InStr(ms131,"/**/")-1)
      ms131=Replace(ms131,ms134&"/**/","",1,1)
      if InStr(ms131,"/**/")>0 then ms135=mid(ms131,1,InStr(ms131,"/**/")-1)
      if len(ms13)=0 then
         pr_qu=1
      else
         pr_qu=2
      end if
      if prg=1 then
         if len(ms13)=0 then
            if  prg+prp+prs=1 then
                  ms13=ms132&sbs&ms133
            else
                  ms13=ms132&sbs&tbs&ms133&tes
            end if
         else
            if  prg+prp+prs=1 then
                  if right(ms13,len(les))=les then
                     ms13=ms13&lbt&lbs&ms132&sbs&ms133
                  else
                     ms13=ms13&les&lbt&lbs&ms132&sbs&ms133
                  end if
            else
                  if right(ms13,len(les))=les then
                     ms13=ms13&lbt&lbs&ms132&sbs&tbs&ms133&tes
                  else
                     ms13=ms13&les&lbt&lbs&ms132&sbs&tbs&ms133&tes
                  end if
            end if
         end if
      else
         if len(ms13)=0 then
            if  prg+prp+prs=0 then
                  ms13=ms132
            else
                  ms13=ms132&sbs
            end if
         else
            if  prg+prp+prs=0 then
                  if right(ms13,len(les))=les then
                     ms13=ms13&lbt&lbs&ms132
                  else
                     ms13=ms13&les&lbt&lbs&ms132
                  end if
            else
                  if right(ms13,len(les))=les then
                     ms13=ms13&lbt&lbs&ms132&sbs
                  else
                     ms13=ms13&les&lbt&lbs&ms132&sbs
                  end if
            end if
         end if
      end if
      if prp=1 then
         if  prg+prp+prs=1 then
            ms13=ms13&ms134
         else
            if prg=1 then
                  ms13=ms13&tbt&tbs&ms134&tes
            else
                  ms13=ms13&tbs&ms134&tes
            end if
         end if
      end if
      if prs=1 then
         if  prg+prp+prs=1 then
            ms13=ms13&ms135
         else
            ms13=ms13&tbt&tbs&ms135&tes
         end if
      end if
      if len(ms13)>0 and (is_st=1 or pr_qu=2) and left(ms13,len(lbs))<>lbs then ms13=lbs&ms13  '一个分类使用分隔符时加上分隔符
      if len(ms13)>0 and (is_st=1 or pr_qu=2) and right(ms13,len(les))<>les then ms13=ms13&les  '一个分类使用分隔符时加上分隔符
end if
Next

if is_na<>1 then
na_1=""
na_2=""
na_3=""
na_4=""
na_5=""
na_6=""
na_7=""
na_8=""
na_9=""
na_10=""
na_11=""
na_12=""
na_13=""
end if
t_s=mid(sort_s,3,1)
if t_s<>"1" and t_s<>"2" and t_s<>"3" and t_s<>"4" and t_s<>"5" and t_s<>"6" and t_s<>"7" and t_s<>"8" and t_s<>"9" and t_s<>"A" and t_s<>"B" and t_s<>"C" and t_s<>"D" then sort_s=Replace(sort_s,mid(sort_s,3,1),"")
For j=1 To 13
select case mid(sort_s,2*j-1,1)
      case "1"
         is_os=CInt(mid(sort_s,2*j,1))
         if xy=1 then
            if is_os=1 then ms=ms&na_1&bs&ms1&es&bt
         else
               if is_os=1 then ms=ms&vbCrLf&na_1&bs&ms1&es&bt
         end if
      case "2"
         is_vr=CInt(mid(sort_s,2*j,1))
         if xy=1 then
            if is_vr=1 then ms=ms&na_2&bs&ms2&es&bt
         else
               if is_vr=1 then ms=ms&vbCrLf&na_2&bs&ms2&es&bt
         end if
      case "3"
         is_fc=CInt(mid(sort_s,2*j,1))
         if xy=1 then
            if is_fc=1 then ms=ms&na_3&bs&ms3&es&bt
         else
               if is_fc=1 then ms=ms&vbCrLf&na_3&bs&ms3&es&bt
         end if
      case "4"
         is_md=CInt(mid(sort_s,2*j,1))
         if xy=1 then
            if is_md=1 then ms=ms&na_4&bs&ms4&es&bt
         else
               if is_md=1 then ms=ms&vbCrLf&na_4&bs&ms4&es&bt
         end if
      case "5"
         is_cp=CInt(mid(sort_s,2*j,1))
         if xy=1 then
            if is_cp=1 then ms=ms&na_5&bs&ms5&es&bt
         else
               if is_cp=1 then ms=ms&vbCrLf&na_5&bs&ms5&es&bt
         end if
      case "6"
         is_js=CInt(mid(sort_s,2*j,1))
         if xy=1 then
            if is_js=1 then ms=ms&na_6&bs&ms6&es&bt
         else
               if is_js=1 then ms=ms&vbCrLf&na_6&bs&ms6&es&bt
         end if
      case "7"
         is_rm=CInt(mid(sort_s,2*j,1))
         if xy=1 then
            if is_rm=1 then ms=ms&na_7&bs&ms7&es&bt
         else
               if is_rm=1 then ms=ms&vbCrLf&na_7&bs&ms7&es&bt
         end if
      case "8"
         is_cd=CInt(mid(sort_s,2*j,1))
         if xy=1 then
            if is_cd=1 then ms=ms&na_8&bs&ms8&es&bt
         else
               if is_cd=1 then ms=ms&vbCrLf&na_8&bs&ms8&es&bt
         end if
      case "9"
         is_sd=CInt(mid(sort_s,2*j,1))
         if xy=1 then
            if is_sd=1 then ms=ms&na_9&bs&ms9&es&bt
         else
               if is_sd=1 then ms=ms&vbCrLf&na_9&bs&ms9&es&bt
         end if
      case "A"
         is_ds=CInt(mid(sort_s,2*j,1))
         if xy=1 then
            if is_ds=1 then ms=ms&na_10&bs&ms10&es&bt
         else
               if is_ds=1 then ms=ms&vbCrLf&na_10&bs&ms10&es&bt
         end if
      case "B"
         is_dn=CInt(mid(sort_s,2*j,1))
         if xy=1 then
            if is_dn=1 then ms=ms&na_11&bs&ms11&es&bt
         else
               if is_dn=1 then ms=ms&vbCrLf&na_11&bs&ms11&es&bt
         end if
      case "C"
         is_fd=CInt(mid(sort_s,2*j,1))
         if xy=1 then
            if is_fd=1 then ms=ms&na_12&bs&ms12&es&bt
         else
               if is_fd=1 then ms=ms&vbCrLf&na_12&bs&ms12&es&bt
         end if
      case "D"
         is_pr=CInt(mid(sort_s,2*j,1))
         if xy=1 then
            if is_pr=1 then ms=ms&na_13&bs&ms13&es&bt
         else
               if is_pr=1 then ms=ms&vbCrLf&na_13&bs&ms13&es&bt
         end if
end select
NEXT
ms=info_per&bt&ms
if is_dt=1 then ms=ms&Now()
if right(ms,len(bt))=bt then ms=mid(ms,1,len(ms)-len(bt))
if len(ms)>1024 then
sele=msgbox("文本超长会导致信息遗漏,请修改参数或修改脚本!"&vbCrLf&"继续保存点【是】，暂不保存查看信息点【否】，放弃保存点【取消】",4147 ,"信息文本超长!")
if sele=2 then wscript.quit
if sele=7 then
      if msgbox(ms,4148 ,"信息文本超长![保存点是,放弃点否]")=7 then wscript.quit
end if
end if

'写采集信息文件
info_file=dir&"\"&info_file
if is_txt=1 or is_txt=3 then
set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(info_file) then
      set f = fso.OpenTextFile(info_file,8,false,-1) '第二个参数 2 表示重写，如果是 8 表示追加
else
      set f = fso.CreateTextFile(info_file,,true)
end if
f.WriteLine(ms)
f.Close()
set f = nothing
set fso = nothing
Set wim =nothing
end if
if is_txt=2 or is_txt=3 then
if is_typ=1 then info_file=Replace(info_file,"txt","xlsx")
if is_typ=0 then info_file=Replace(info_file,"txt","xls")
set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(info_file) then
      Set ExcelApp=CreateObject("Excel.Application")    '创建EXCEL对象
      Set ExcelBook=ExcelApp.Workbooks.open(info_file)
      Set ExcelSheet=ExcelBook.Worksheets(1)    '添加工作页
else
      Set ExcelApp=CreateObject("Excel.Application")    '创建EXCEL对象
      Set ExcelBook=ExcelApp.Workbooks.Add
      Set ExcelSheet=ExcelBook.Worksheets(1)    '添加工作页
      ExcelSheet.Activate
      ExcelApp.DisplayAlerts=False
      ExcelSheet.Name="采集数据"
      'ExcelSheet.Range("A1").Value = "------" '设置A1的值
end if
Const xlUp = -4162
LastRow = ExcelSheet.Cells(ExcelSheet.Rows.Count, 1).End(xlUp).Row  '获取最后一行行数
ms_d=Replace(ms,"|",bt)
if is_wid>0 then ExcelSheet.Columns("A:Z").ColumnWidth = is_wid
if xy=1 then
      For i=1 To 26
         if len(ms_d)>0 then
            if InStr(ms_d,bt)>0 then
               ms_s=mid(ms_d,1,InStr(ms_d,bt)-1)
               ExcelSheet.Range(Chr(i+64)&cstr(LastRow+1)).Value = ms_s '设置Excel值
               ms_d=Replace(ms_d,ms_s&bt,"",1,1)
            else
               ExcelSheet.Range(Chr(i+64)&cstr(LastRow+1)).Value = ms_d '设置Excel值
               ms_d=""
            end if
         end if
      Next
else
      For i=1 To 26
         if len(ms_d)>0 then
            if InStr(ms_d,bt)>0 then
               ms_s=mid(ms_d,1,InStr(ms_d,bt)-1)
               ExcelSheet.Range(Chr(65)&cstr(LastRow+i)).Value = ms_s '设置Excel值
               ms_d=Replace(ms_d,ms_s&bt,"",1,1)
            else
               ExcelSheet.Range(Chr(65)&cstr(LastRow+i)).Value = ms_d '设置Excel值
               ms_d=""
            end if
         end if
      Next
end if
ExcelApp.application.displayalerts=false  '关闭文件覆盖提示
ExcelBook.SaveAs info_file '保存工作表
ExcelApp.application.displayalerts=true  '开启文件覆盖提示
ExcelBook.close
set excelApp=nothing
set ExcelBook=nothing
set ExcelSheet=nothing
end if
Dim WshShell
Set WshShell=CreateObject("Wscript.Shell")
WshSHell.popup  "3 秒钟后本窗口将自动关闭!",3, "计算机信息采集成功", 4096

地球守护者 · 发表于 2021-11-9 21:34:27

看你这些，应该是转载来的，而且，竟然还收费，也不会有太多会来看的，因此，还请根据自己的情况，做一下调整，谢谢

地球守护者 · 发表于 2021-11-9 21:39:49

补充一下，还麻烦楼主，先去了解一下，什么叫做原创，什么叫做分享或转载，如果是真正原创，按照法律法规，还是有一定的法律效应，即别人在未经同意下，是无法炮制或复制等，只有取得授权或同意，才能复制转载或分享等（由于不是学法律，因此，简单略懂法律，但不会随便乱用标题前缀或后缀，如果有什么错误，还请自己去了解一下相关的法律法规，谢谢）

tanglf188 · 发表于 2021-11-10 10:07:20

地球守护者发表于 2021-11-9 21:34
看你这些，应该是转载来的，而且，竟然还收费，也不会有太多会来看的，因此，还请根据自己的情况，做一下调 ...

你找到和我一样的我吃了它，这脚本就是我自己写的，如果这不算原创那什么是原创？

tanglf188 · 发表于 2021-11-10 10:37:26

地球守护者发表于 2021-11-9 21:39
补充一下，还麻烦楼主，先去了解一下，什么叫做原创，什么叫做分享或转载，如果是真正原创，按照法律法规， ...

你可以去网上找，哪怕和我相近的，你都没看过脚本的原理在这和我谈法律？网上的大都是调用相关函数获取返回值取得相关信息，我这个是利用msinfo32生成的报告进行提取处理，就是网上过于简单我觉得不适合我才花时间自己写的，我付出劳动收点免费的金币有啥问题？

地球守护者 · 发表于 2021-11-10 12:56:51

tanglf188 发表于 2021-11-10 10:07
你找到和我一样的我吃了它，这脚本就是我自己写的，如果这不算原创那什么是原创？ ...

你看清楚，我说了，我看了后，感觉是转载来的，好吗？

地球守护者 · 发表于 2021-11-10 12:58:00

tanglf188 发表于 2021-11-10 10:37
你可以去网上找，哪怕和我相近的，你都没看过脚本的原理在这和我谈法律？网上的大都是调用相关函数获取返 ...

我不是学法律，但是，一些略懂的基本，还是有的，谢谢

地球守护者 · 发表于 2021-11-10 13:01:32

tanglf188 发表于 2021-11-10 10:37
你可以去网上找，哪怕和我相近的，你都没看过脚本的原理在这和我谈法律？网上的大都是调用相关函数获取返 ...

网上，想要重复的，想要简单的，实在是太多了，你明白吗？

地球守护者 · 发表于 2021-11-10 13:05:40

tanglf188 发表于 2021-11-10 10:37
你可以去网上找，哪怕和我相近的，你都没看过脚本的原理在这和我谈法律？网上的大都是调用相关函数获取返 ...

还有一点，你忘记在结尾处，做一个注释，以防止买了的或通过其他方式知道的，到处乱发或乱转载

地球守护者 · 发表于 2021-11-10 13:06:30

tanglf188 发表于 2021-11-10 10:37
你可以去网上找，哪怕和我相近的，你都没看过脚本的原理在这和我谈法律？网上的大都是调用相关函数获取返 ...

简单来说，防止别人未经过同意，就拿去传播或转载等

		自动登录	找回密码
密码			立即注册

[原创] 一款win7以上计算机信息采集脚本