高密市时代互联网服务中心
繁體中文

共享资料

主页 → 共享资料 → VB及ASP编程

VIP资料 VIP资料
VB及ASP编程 VB及ASP编程
相关知识 相关知识
图象制作 图象制作
图片资料 图片资料
数据库 数据库
资料下载 资料下载

共享资料热点信息

数据库有效性规则数据库有效性规则数据库有效性规则 数据库有效性规则数据库有效性规…
国税发票打印管理系统下载 国税发票打印管理系统下载
窗体控件获得默认焦点g 窗体控件获得默认焦点g
网页显示服务器时间 网页显示服务器时间
sql server2000自动编号字段设置 sql server2000自动编号字段设置…
怎样判断数据库字段是否为空 怎样判断数据库字段是否为空
软件的纯真版与豪华版的区别 软件的纯真版与豪华版的区别
asp动态二级联动选择输入框的制作 asp动态二级联动选择输入框的制…
字符串输出时补零 字符串输出时补零
access改为mssql server access改为mssql server

信息搜索

(支持信息首拼字母)

浏览:4447  [字号: 正常]
分享到:

检测计算机硬件信息


On Error Resume Next
temp=0
set wshshell=wscript.createobject("wscript.shell")
'启动WMI服务(没有这个服务就不行)
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
'用一个文本来记录硬件信息
Set WshNetwork = WScript.Createobject("WScript.Network")
computername=WshNetwork.ComputerName

set fso=createobject("scripting.filesystemobject")
tempfilter="c:\"& computername &".txt"
'这里是硬件信息纪录的存放位置,可以是网络共享路径(需有写入权限)
set tempfile=fso.createtextfile(tempfilter)

strComputer = "."
Set objWMIService = Getobject("winmgmts:\\" & strComputer & "\root\cimv2")
'主板
set board =objwmiservice.execQuery("select * from win32_baseboard")
for each item in board
board2="主板:" & item.Product
next
'CPU
set cpu =objwmiservice.execQuery("select * from win32_processor")
for each item in cpu
cpu2= "CPU:" & item.Name
next
'内存
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
For Each objItem in colItems
a=objitem.capacity/1048576
temp=temp+objitem.capacity
n=n+1
Next
memory=temp/1048576
if n=1 then
memory2= "内存: " & n & "条" &a&"M"
else
memory2= "内存: " & n & "条" &a&"M"&" 总计"&memory&"M"
end if
'硬盘
set disk =objwmiservice.execQuery("select * from win32_diskdrive")
for each item in disk
disk2= "硬盘: " & item.Model
next

'显卡
set video =objwmiservice.execQuery("select * from win32_videocontroller",,48)
for each item in video
video2= "显卡: " & item.Description
next
'网卡
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48)
For Each objItem in colItems
if (left(objItem.NetConnectionID,4)="本地连接") then
lanname=objItem.Name
end if
Next
lan2="网卡: " & lanname

msgbox board2
msgbox cpu2
msgbox memory2
msgbox disk2
msgbox lan2
msgbox video2



·上一篇:打印程序设置
·下一篇:解决windows2003默认只有200k的图片上传限制的方法
数据库…
SQLSE…
窗体控…
MS SQ…
sql s…
站内查询(支持首拼):
主 页 关于我们 新闻中心 产品介绍 业务范围 共享资料 服务支持 案例展示 站长专题 人力资源 音视频 电子地图 会员中心 在线付款

鲁ICP备11021577号

Copyright © 2003-2026 版权所有:时代互联网服务中心

电话:13287488567 0536-2378816 邮箱:xzs0001@163.com  QQ:173807448 632406796

建议使用 1152×864 及以上分辨率浏览

技术服务:时代互联网服务中心 访问量: 89069894(人次) 目前在线:15人
1