vb获取硬件信息的代码

tmpstr=""

西峰网站制作公司哪家好，找创新互联！从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作，到程序开发，运营维护。创新互联自2013年起到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联。

set fso=createObject("scripting.filesystemObject")

Set dc = fso.Drives

for each d in dc

If d.isReady Then

tmpstr=tmpstr "磁盘" d.DriveLetter ":" vbcrlf _

"可用空间：" (d.AvailableSpace/1024/1024/1024) " GB" vbcrlf _

"空余空间：" (d.FreeSpace/1024/1024/1024) " GB"  vbcrlf _

"总空间大小：" (d.TotalSize/1024/1024/1024) " GB"  vbcrlf _

"文件系统：" d.FileSystem vbcrlf _

"驱动器类型：" d.DriveType vbcrlf _

"是否就绪：" d.IsReady vbcrlf _

"路径：" d.Path vbcrlf _

"根目录：" d.RootFolder vbcrlf _

"序列号：" d.SerialNumber vbcrlf _

"共享名：" d.ShareName vbcrlf _

"卷名：" d.VolumeName vbcrlf vbcrlf

End If

Next

msgbox tmpstr

VB.Net如何查看计算机硬件的详细属性(如:查看U盘的位置)?

先引用system.io

之后声明类型为 DriveInfo 的变量

声明的对象中包含 一些方法

vb.net 获取局域网计算机的当前用户名和计算机型号等信息

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub GetName()

Dim sJM As String

Dim sMC As String

Dim sIP As String

Dim s As String

s = String(128, Chr(0))

GetComputerName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sJM = s'计算机名称

s = String(128, Chr(0))

GetUserName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sMC = s‘当前用户名称

End Sub

'用这种方法在远程获得再发回本机就可以吧

'取计算机型号暂时不会

VB，64位

64位Vista中可以运行32位软件。操作系统可以对其进行转换操作。当然一些特殊软件可能遇到一些兼容性问题。

VB.net是基于.net Framework运行的语言，和操作系统以及硬件平台无关，只要你的机器安装有.net Framework，不管是32位XP、32位Vista、64位Vista都可以运行VB.net写的程序。

用VB写的程序太多了，这个根本没办法列举。

文章标题：vb.net硬件型号 vb net
网址分享：http://kswsj.cn/article/ddooiee.html