VBA获取您的电脑硬件信息

andysky

原帖由 dahaocai 于 2009-2-21 16:03 发表
前段时间我得到了这段代码,太繁琐了,不如你的精干、强悍，能精减一下吗？只要显示硬盘的物理序列号，谢了


Private Const MAX_IDE_DRIVES As Long = 4   ' Max number of drives assuming primary/secondary, ma ...

1.你这个方法仅仅用查看盘符的卷标。而卷标是可以修改的，用它做为软件的序列号认证依据是不可靠的
2.这段超长的代码，其实可以用一句代码完成的。效率差了点。
    MsgBox CreateObject("WScript.Shell").Exec("cmd.exe /c " & """VOL c:""").StdOut.ReadAll, , "C盘卷标"

[ 本帖最后由 andysky 于 2009-3-9 18:04 编辑 ]

gxuan2008

差别这么大???

zlxtl

23楼的代码晕翻了我
不过佩服这种代码作者的耐心

andysky

原帖由 zlxtl 于 2009-3-10 15:45 发表
23楼的代码晕翻了我
不过佩服这种代码作者的耐心

不得不服。
为了取得卷标写309行代码，确非常人能有的耐心
不过可能对API有先入为主的思想，没想过DOS代码可以一句完成309句的功能。

sblisb

软件的也放在这吧，自己收集一下
取得文件属性
Sub FileInfo()
    Dim fso, f1
    Dim strTmp As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f1 = fso.GetFile("C:\CIMG1689.jpg")
   
    strTmp = strTmp & f1.Name & "的详细资料：" & vbCrLf
    strTmp = strTmp & vbTab & "路径:" & f1.Path & vbCrLf
    strTmp = strTmp & vbTab & "类型:" & f1.Type & vbCrLf
    strTmp = strTmp & vbTab & "属性:" & GetFileAttr(f1) & vbCrLf
    strTmp = strTmp & vbTab & "创建时间:" & f1.DateCreated & vbCrLf
    strTmp = strTmp & vbTab & "最后访问时间:" & f1.DateLastAccessed & vbCrLf
    strTmp = strTmp & vbTab & "最后修改时间:" & f1.DateLastModified & vbCrLf
    strTmp = strTmp & vbTab & "文件大小(Bytes):" & f1.Size & vbCrLf
    MsgBox strTmp
End Sub
GetAttr 函数
      

返回一个 Integer，此为一个文件、目录、或文件夹的属性。

语法

GetAttr(pathname)

必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。

返回值

由 GetAttr 返回的值，是下面这些属性值的总和：

常数 值 描述
vbNormal 0 常规
vbReadOnly 1 只读
vbHidden 2 隐藏
vbSystem 4 系统文件 在 Macintosh 中不可用。
vbDirectory 16 目录或文件夹
vbArchive 32 上次备份以后 在 Macintosh 中不可用.，文件已经改变
vbalias 64 指定的文件名是别名。 只在 Macintosh中可用。



注意 这些常数是由 VBA 指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的值。

说明

若要判断是否设置了某个属性，在 GetAttr 函数与想要得知的属性值之间使用 And 运算符与逐位比较。如果所得的结果不为零，则表示设置了这个属性值。例如，在下面的 And 表达式中，如果档案 (Archive) 属性没有设置，则返回值为零：

Result = GetAttr(FName) And vbArchive

如果文件的档案属性已设置，则返回非零的数值。
运行系统提示GetFileAttr  子程序或函数 未定义
改为GetAttr就可以了

andysky

原帖由 sblisb 于 2009-3-11 20:36 发表
软件的也放在这吧，自己收集一下
取得文件属性
Sub FileInfo()
    Dim fso, f1
    Dim strTmp As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f1 = fso.GetFile("C:\CIMG1689 ...

继续 记叙

lw7963842

面对这么强的搂主，只能无语。

秦还丹

pick up, pick up

vincent1417

用于本机使用only 的不错 哈哈

praijna

楼主，有没有可能取得用前用户的密码呢？