VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 975
Left = 2280
TabIndex = 0
Top = 360
Width = 1695
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub DetectUdisk()
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = 2")
For Each objDisk In colDisks
RemovableDrive = objDisk.DeviceID
If CreateObject("Scripting.FileSystemObject").GetDrive(RemovableDrive).IsReady Then
s = CreateObject("Scripting.FileSystemObject").GetDrive(RemovableDrive).SerialNumber
Exit For
End If
Next
If s <> "" Then
Range("Sheet1!d8") = s
Else
Range("Sheet1!d8") = "系统未检测到U盘!"
End If
Call QueryOther
End Sub
Sub QueryOther()
'2007.1.19 更新,获取主板序列号, CPUID, 网卡MAC地址
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select SerialNumber From Win32_BIOS")
For Each objItem In colItems
Print objItem.SerialNumber
Exit For
Next
Set colItems = Nothing
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItems
Print "CPU序列号:" + objItem.ProcessorId
Exit For
Next
Set colItems = Nothing
Set colItems = objWMIService.ExecQuery("SELECT MACAddress FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))")
For Each objItem In colItems
Print objItem.MACAddress
Exit For
Next
Set colItems = Nothing
End Sub
Private Sub Command1_Click()
QueryOther
End Sub
分享到:
相关推荐
【源码】VB6.0获取硬盘序列号、获取硬盘逻辑盘序列号、获取CPU序列号、获取主板序列号
VB取得CPU序列号 取得CPU序列号 VB取得CPU序列号 取得CPU序列号
vb获取网卡主板CPU序列号,vb获取网卡主板CPU序列号.
VB6编写的,读取硬盘物理序列号/逻辑序列号/CPU序列号/主板序列号 一个界面,集成了上述序列号的读取,源代码均来自于网上,我集成在一起,调试通过.
VB同过API函数获取当前系统的序列号 Win2000 WinXP 和 Win7均可用。
VB.NET获取计算机硬件序列号,内置示例获取 CPU,主板号,和硬盘
VB获取硬盘物理序列号 dll调用 带有演示实例 不错的
取CPU序列号VB调用示例DLL
VB获取硬盘序列号的代码VB获取硬盘序列号的代码VB获取硬盘序列号的代码VB获取硬盘序列号的代码
VB获取硬盘序列号的源代码VB获取U盘序列号的源代码VB获取U盘序列号的源代码
非常实用的源码,获取计算机物理磁盘序列号
2.使用说明:打开程序后,点按钮后,三个TEXTBOX分别显示全球唯一标识的硬盘物理序列号、WMI方法获取的硬盘序列号、WMI方法获取的CPU序列号 3.WMI方法被很多人诟病,有说读不出来什么的,我测试了几台机器确实有读不...
VB获取硬盘序列号 VB获取硬盘序列号vb源码下载 开发注册软件必须掌握的技术
VB6.0 获取磁盘序列号,在代码中放置两个文本框,一个用于显示盘符,另一个用于显示获取到的序列号,点击按钮即可看到运行结果,在Windows7下也可用。
vb.net 获取硬盘序列号
vb 获取硬盘序列号
VB也可以获取硬盘序列号,VB获取硬盘序列号 VB获取硬盘序列号vb源码下载 开发注册软件必须掌握的技术
VB获取CPU的序列号,可以用来制作注册程序,绑定电脑。
能够获取CPU序列号的vb程序。 能够获取CPU序列号的vb程序。 能够获取CPU序列号的vb程序。
详细情况请看例子! 提供LIB文件! 本DLL可以在VC、C++Builder、VB、Delphi、PowerBuilder中使用!