VBA获取U盘、主板、CPU序列号网卡MAC地址
来源:高中英语教学交流
发布时间:2014-07-26 19:01:00
查看次数:
'方法1
Sub Auto_Open()
Set fs = CreateObject("Scripting.FileSystemObject")
StrDrive =
"B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
StrDriveArray = Split(StrDrive, ",")
UBound(StrDriveArray)
fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(StrDriveArray(StartPos) &
":\\")))
Then
d.SerialNumber
Exit For
If
Then
s
Range("Sheet1!d8") = "系统未检测到U盘!"
Nothing
End
Sub
'方法2
Sub DetectUdisk()
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where
DriveType = 2")
colDisks
objDisk.DeviceID
CreateObject("Scripting.FileSystemObject").GetDrive(RemovableDrive).IsReady
Then
CreateObject("Scripting.FileSystemObject").GetDrive(RemovableDrive).SerialNumber
Exit For
If
Then
s
Range("Sheet1!d8") = "系统未检测到U盘!"
QueryOther
End Sub
Sub QueryOther()
网卡MAC地址
GetObject("winmgmts:\\.\root\cimv2")
objWMIService.ExecQuery("Select
From
colItems
objItem.SerialNumber
For
Nothing
objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItems
Range("Sheet1!F8") =
objItem.ProcessorId
For
Nothing
objWMIService.ExecQuery("SELECT
FROM
((MACAddress
AND
'Microsoft'))")
colItems
objItem.MACAddress
For
Nothing
End Sub
- 相关文章
- ·word 如何自动生成目录08-02·A4排版16开打印试卷 08-30·乱序分班输入成绩简便方法说明05-11·SQL SERVER数据库中快速找主表11-10·Excel 利用行号引用数据09-02·出于安全原因,Firefox 取消了该请求03-22·word排版技巧整理08-02·qlv格式视频转mp4方法08-10·任务栏上的显示桌面图标不见了,怎么办?09-17
- 最新文章
- ·Win10系统开机启动文件夹在哪里?04-16·十秒免工具激活windows 1002-25·批量替换word文档中的第一行作为文件的文件名06-21·连接打印机时需要输入用户名密码怎么办?05-15·免魔法使用 New Bing 新方案03-18·Win10电脑账号密码设置、修改、取消12-06·[亲测有效]excel批量修改文件名10-29
- 阅读排行
- ·如何让试题的ABCD选项对齐04-13·word排版技巧整理08-02·word 如何自动生成目录08-02·不同电脑文件字体改变了的解决方法12-15·Excel 进行学生成绩统计分析03-13·我的电脑图标不见了,怎么找回来!09-14·Win10电脑的一些安装提示12-03·Word高级替换技巧03-05·Excel如何批量插入分页符02-12·制作Word2003选择性粘贴快捷键07-09
点击这里识别二维码关注公众号