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
先引用system.io
之后声明类型为 DriveInfo 的变量
声明的对象中包含 一些方法
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
'用这种方法在远程获得再发回本机就可以吧
'取计算机型号暂时不会
64位Vista中可以运行32位软件。操作系统可以对其进行转换操作。当然一些特殊软件可能遇到一些兼容性问题。
VB.net是基于.net Framework运行的语言，和操作系统以及硬件平台无关，只要你的机器安装有.net Framework，不管是32位XP、32位Vista、64位Vista都可以运行VB.net写的程序。
用VB写的程序太多了，这个根本没办法列举。
