兴国资源网 Design By www.nnzcdc.com
下面的代码在windows下容易报毒大家可以放心使用
'========================================================================== ' ' Date:2009/3/19 ' Name: 查询软件和硬件列表清单 ' Author:Smileruner ' www.overmcse.com ' 不支持Win2000及WinNT ' ' 3/19,添加了网卡过滤。 '========================================================================== 'on error resume Next const HKEY_LOCAL_MACHINE = &H80000002 const UNINSTALL_ROOT = "Software\Microsoft\Windows\CurrentVersion\Uninstall" const REG_SZ = 1 'Set wshshell=wscript.createobject("wscript.shell") ' wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,true ' wshshell.run ("%comspec% /c sc config winmgmt start= auto"),0,true ' wshshell.run ("%comspec% /c net start winmgmt"),0 strComputer = Inputbox("请输入要查询的计算机名称",,"") If strComputer = "" then Wscript.Echo "未输入值或用户取消,查询退出。" Wscript.Quit End If Set objswbemlocator = createobject("wbemscripting.swbemlocator") Set objswbemservices = objswbemlocator.connectserver(strComputer, "root\cimv2") If Err.number <> 0 then Wscript.Echo "目标计算机无法连接。错误的计算机名,或目标计算机启用了防火墙,RPC服务不可用。" Err.number.clear Wscript.Quit End If 'swbemservices.security_.impersonationleobjvel = 3 Set fso=createobject("scripting.filesystemobject") FileDate = Replace(date(), "/", "-") resoultfilepath= strComputer & FileDate & ".html" Set resultFile= fso.createtextfile(resoultfilepath,,true) HtmlWriteHead() 'Html文档开始 TableHead strComputer,"硬件清单" 'Html表格开始 OsWrite() '写入操作系统信息 BoardWrite() '写入主板信息 CpuWrite() '写入CPU信息 MemoryWrite() '写入内存信息 HarddiskWrite() '写入硬盘信息 CdromWrite() '写入CDROM信息 VideoWrite() '写入显示卡信息 NetcardWrite() '写入网卡信息 TableEnd() 'Html表格结尾 TableHead strComputer,"软件清单" 'Html表格开头 Softlist() '写入软件信息 TableEnd() 'Html表格结尾 HtmlWriteEnd() 'Html文档结束 ResultFile.close Wscript.Echo "查询完成!" '=========以下是函数列表========== Function OsWrite() '函数,写入操作系统信息 Set colOs =objswbemservices.execquery("select * from win32_operatingsystem",,48) For Each Ositem In colOs oscaption = Ositem.caption OsVersion = oscaption & Ositem.version WriteTable "操作系统",OsVersion Next End Function Function BoardWrite() '函数,写入主板信息 Set colBoard = objswbemservices.execquery("select * from win32_baseboard") For Each Bditem In colBoard boardname = Bditem.product WriteTable "主板",boardname Next End Function Function CpuWrite() '函数,写入CPU信息 Set colCpu =objswbemservices.execquery("select * from win32_processor") For Each item in colCpu cpuname = (trim(item.name)) WriteTable "中央处理器",cpuname Next End Function Function MemoryWrite() '函数,写入内存信息 mtotal = 0 num = 0 mill = 0 Set colMemory = objswbemservices.execquery("select * from win32_physicalmemory",,48) For Each objitem In colMemory mill = objitem.capacity/1048576 WriteTable "单根内存容量",mill & "M" mtotal = mtotal+mill num = num + 1 Next WriteTable "总计内存",num & "条" & "一共" & mtotal & "M" End Function Function HarddiskWrite() '函数,写入硬盘信息 Set colDisk = objswbemservices.execquery("select * from win32_diskdrive", , 48) For Each objitem In colDisk diskname= objitem.caption disksize= fix(objitem.size/1073741824) WriteTable "硬盘",diskname & " 容量:" & disksize & "G" Next End Function Function CdromWrite() '函数,写入CDROM信息 Set colCdrom = objswbemservices.execquery("select * from win32_cdromdrive where scsitargetid=0") For Each objitem In colCdrom cdname = objitem.name WriteTable "光驱",cdname Next End Function Function videoWrite() '函数,写入显示卡信息 Set colVideo = objswbemservices.execquery("select * from win32_videocontroller", , 48) For Each objitem in colVideo videoname = (trim(objitem.caption) & (objitem.videomodedescription)) WriteTable "显示卡",videoname Next End Function Function netcardWrite() '函数,查询网卡信息 Set colNetcards = objswbemservices.execquery("select * from win32_networkadapter") For Each objNetcard in colNetcards If Not IsNull(objNetcard.NetConnectionID) Then NetCardName = objNetcard.productname WriteTable "网卡名称",NetCardName If objNetcard.NetConnectionStatus = 2 Then NetCardMac = objNetcard.macaddress WriteTable "网卡Mac",NetCardMac strQueryIp ="select * from win32_networkadapterconfiguration" &_ " where IPEnabled = true" &_ " and macaddress = '" & objNetcard.macaddress & "'" Set colNetcardCfgs = objswbemservices.execquery(strQueryIp) For Each objNetcardCfg in colNetcardCfgs For Each CfgAdrress in objNetcardCfg.IPAddress IpAdrress = CfgAdrress WriteTable "IP地址",IpAdrress Next Next Else NetCardMac = "网卡被禁用或未连接。" WriteTable "网卡Mac",NetCardMac IpAdrress = "网卡被禁用或未连接。" WriteTable "IP地址",IpAdrress End If End if Next End Function Function softlist() '函数,写入软件信息 Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") strKeyPath = UNINSTALL_ROOT oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys For Each strSubKey In arrSubKeys If NotHotfix(strSubKey) Then SoftNameAndVersion = getProgNameAndVersion(oReg,strKeyPath & "\" & strSubKey) If SoftNameAndVersion<>"0" Then WriteTable "软件",SoftNameAndVersion End If End If Next End Function Function NotHotfix(sSubKey) If Left(sSubkey,2) = "KB" And len(sSubkey) = 8 Then NotHotfix = 0 Else NotHotfix = 1 End if End Function Function getProgNameAndVersion(oReg,sKeyRoot) Dim sKeyValuesAry, iKeyTypesAry, nCnt, sValue, sDisplayName, sDisplayVersion oReg.EnumValues HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry, iKeyTypesAry If NOT IsArray(sKeyValuesAry) Then getProgNameAndVersion = 0 Exit Function End If For nCnt = 0 To UBound(sKeyValuesAry) If InStr(1, sKeyValuesAry(nCnt), "DisplayName", vbTextCompare) Then If iKeyTypesAry(nCnt) = REG_SZ Then oReg.GetStringValue HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry(nCnt), sValue If sValue<>"" Then sDisplayName = sValue sDisplayName = Replace(sDisplayName, "[", "(") sDisplayName = Replace(sDisplayName, "]", ")") End If End If ElseIf InStr(1, sKeyValuesAry(nCnt), "DisplayVersion", vbTextCompare) Then If iKeyTypesAry(nCnt) = REG_SZ Then oReg.GetStringValue HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry(nCnt), sValue If sValue<>"" Then sDisplayVersion = sValue End If End If If (sDisplayName<>"") AND (sDisplayVersion<>"") Then getProgNameAndVersion = sDisplayName & " --版本号: " & sDisplayVersion Exit Function Else getProgNameAndVersion = 0 End If Next If sDisplayName<>"" Then getProgNameAndVersion = sDisplayName Exit Function End If End Function Function WriteTable(caption,value) '函数,将数据写入HTML单元格 resultFile.Writeline "<tr>" resultFile.Writeline "<td align=""left"" width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""row""> " & caption & "</td>" resultFile.Writeline "<td bgcolor=""#ffffff""> " & value & "</td>" resultFile.Writeline "</tr>" End Function Function HtmlWriteHead() '函数,写入THML文件头 resultFile.Writeline "<html>" resultFile.Writeline "<head>" resultFile.Writeline "<title>软硬件配置清单</title>" resultFile.Writeline "</head>" resultFile.Writeline "<body>" End Function Function HtmlWriteEnd() '函数,写入Html文件尾 resultFile.Writeline "</body>" resultFile.Writeline "</html>" End Function Function TableHead(pcname,str) '函数,写入Html表格结尾 resultFile.Writeline "<h3>" & pcname & str & " -- date:"&now()&" </h3>" & VbCrLf resultFile.Writeline "<table width=""90%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#0000ff"">" resultFile.Writeline "<tr>" resultFile.Writeline "<th width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""col"">资产类型</th>" resultFile.Writeline "<th bgcolor=""#ffffff"" scope=""col"">查询结果值</th>" resultFile.Writeline "</tr>" strstyle = "<th width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""row"">" End Function Function TableEnd() '函数,Html表格结尾 resultFile.Writeline "</table>" End Function
vbs判断操作系统
strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For Each objItem in colItems strOSVersion = objItem.Version Next wscript.echo strOSversion select case strOSversion case "5.2.3790" wscript.echo "Windows Server 2003" case "5.0.2195" wscript.echo "Windows 2000" case "5.1.2600" wscript.echo "Windows XP" case "6.0.6001" wscript.echo "windows visita" Case "6.1.7601" wscript.echo "Windows Server 2008 r2" case else wscript.echo "i don't know" end select
兴国资源网 Design By www.nnzcdc.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
兴国资源网 Design By www.nnzcdc.com
暂无评论...
更新日志
2024年05月01日
2024年05月01日
- 齐秦《齐秦的世纪情歌之迷》24K GOLD [WAV+CUE][568M]
- 电子琴《汽车音响精品》5CD特效360度[WAV+CUE]
- 【古典音乐】卡拉扬《首次录音(4)》2006[FLAC+CUE整轨]
- 群星《巅峰煲碟皇·男人篇》[WAV+CUE]
- 2023年中国自研移动游戏全球流水TOP20:《原神》排名第三
- 《纸片马里奥RPG重置版》新预告 5月23日正式发售
- 蓄势待发了!开发商称对《寂静岭2RE》表现充满信心
- 梦剧院.1998-十年十美·十周年新曲+精丫乐意唱片】【WAV+CUE】
- 萧亚轩.2014-不解释亲吻【SONY】【WAV+CUE】
- 群星.2023-长风渡影视原声带【韶愔音乐】【FLAC分轨】
- 林慧萍1996-12-忘了我是女人[点将][WAV+CUE]
- 群星.2023-三体影视原声专辑【炎乐传媒】【FLAC分轨】
- 群星.2024-别对我动心影视原声带【千曜音乐】【FLAC分轨】
- 《明日方舟》联动中国电影资料馆 携手修复经典动画《铁扇公主》
- 《寂静岭2:重制版》开发商新作曝光:与T2合作开发的全新IP