求获得系统硬件信息的API

[sdmltyj]

能获得以下各硬件序列号的API
CPU
内存
硬盘
显卡
声卡
一个10分,谢谢!

[sdmltyj]

晕,不是吧,一个没有回,是不分少呀,分少再加呀!

[hygougou]

api取不出来的

用底层工具开发由PB调用

可到VC版块问问

[老高高高]

Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByVal lpVersionInformation As OSVERSIONINFO) As Long
说明
在一个OSVERSIONINFO结构中载入与平台和操作系统有关的版本信息
返回值
Long，非零表示成功，零表示失败
参数表
参数 类型及说明
lpVersionInformation OSVERSIONINFO，用于装载版本信息的结构。在正式调用函数之前，必须先将这个结构的dwOSVersionInfoSize字段设为结构的大小（148）

[老高高高]

我这边有个API库,

[老高高高]

GetSystemInfo 取得与底层硬件平台有关的信息
GetSystemMetrics 返回与windows环境有关的信息
SystemParametersInfo 获取和设置数量众多的windows系统参数
GetUserName 取得当前用户的名字
GetVersion 判断当前运行的Windows和DOS版本
GetVersionEx 取得与平台和操作系统有关的版本信息

[pify]

aa

[mb459]

读取硬盘序列号

　　要读取硬盘序列号我们可以用汇编来实现，但毕竟不容易，况且也不能有效的结合到PB脚本中。在PB中我们可以通过调用Windows提供的外部函数
GetVolumeInformationA（）来实现。这相对来说比较简单。

　　该函数的原型为：

　　BOOL GetVolumeInformation(

　　LPCTSTR lpRootPathName,

　　LPTSTR lpVolumeNameBuffer,

　　DWORD nVolumeNameSize,

　　LPDWORD lpVolumeSerialNumber,

　　LPDWORD lpMaximumComponentLength,

　　LPDWORD lpFileSystemFlags,

　　LPTSTR lpFileSystemNameBuffer,

　　DWORD nFileSystemNameSize

　　上述原型中，参数类型只要是以"LP-"开头的表明该参数用的是长指针（Long Pointer）类型，即在PB中调用时的参数传递是通过引用传递。在8
个参数中对我们真正有用的只有两个LPCTSTR lpRootPathName和LPDWORD lpVolumeSerialNumber。其中参数lpRootPathName是指向文件系统根目录的
地址，我们需要用它来指明所要获取序列号的硬盘盘符；参数lpVolumeSerialNumber是返回的硬盘序列号的地址，这正是我们需要的。

　　众所周知，PB在调用任何外部函数前都要首先进行函数声明，可以将声明放在全局或局部函数声明中。具体声明如下：

　　Function Boolean GetVolumeInformationA( &

　　ref String ls_Rootpath, &

　　ref String ls_volumnename, &

　　Ulong lul_VolumeNameSize, ref Ulong lul_VolumeSerialNumber, &

　　ref Ulong lul_MaximumComponentLength, &

　　ref Ulong lul_FileSystemFlags, &

　　ref String ls_FileSystemNameBuffer, &

　　Ulong lul_FileSystemNameSize &

　　) Library "Kernel32.dll"



　　上述声明中，"ref"指明是该参数是通过引用传递的，有关函数引用的详细内容请参见有关教程。声明完毕我们不能马上进行调用，还必需确保已
为它分配足够的内存空间，即使是参数引用传递也是这样，否则的话将会出现调用错误，这跟C语言的引用调用不同，这一点往往被忽视，希望读者能
够注意。也就是为什么我在调用该函数前将有些字符串参数给它预先分配了多达256个字符空间以及给一些整型类型的参数赋初始值256。完整的读取
硬盘序列号的程序代码如下：

/******************* 程序代码 ************************/

String ls_Rootpath, ls_volumnename

ls_Rootpath = "C:" // 指定要得到序列号的硬盘，

// 一般情况都是C盘，除非你能保证用户存在其它逻辑盘或物理盘

ls_volumnename = Space(256) // 分配足够的空间，下同

Ulong lul_VolumeNameSize

lul_VolumeNameSize = 256

Ulong lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags

lul_MaximumComponentLength = 256

String ls_FileSystemNameBuffer

ls_FileSystemNameBuffer = space(256)

Ulong lul_FileSystemNameSize

lul_FileSystemNameSize = 256

beep(1)

boolean lb_rtn

lb_rtn = False

lb_rtn = GetVolumeInformationA(ls_Rootpath, ls_volumnename, lul_VolumeNameSize,

lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags,

ls_FileSystemNameBuffer, lul_FileSystemNameSize)

if lb_rtn = true then

MessageBox("提示","函数调用成功!")

else

MessageBox("提示","函数调用失败!")

end if

sle_1.text = String(lul_VolumeSerialNumber) // 得到硬盘序列号

/********************* 结束 *************************/

[mb459]

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO







/*--获取连接SQL服务器的信息

所有连接本机的:操作的数据库名,计算机名,用户名,网卡物理地址,IP地址,程序名
调用示例
--显示所有本机的连接信息
exec P_Query_getlinkinfo

--显示所有本机的连接信息,包含ip地址
exec P_Query_getlinkinfo @includeip=1

--显示连接指定数据库的信息
exec P_Query_getlinkinfo '客户资料'
--*/

ALTER proc P_Query_getlinkinfo
@dbname sysname=null,--要查询的数据库名,默认查询所有数据库的连接信息
@includeip bit=0--是否显示IP地址,因为查询IP地址比较费时,所以增加此控制
as
declare @dbid int
set @dbid=db_id(@dbname)

create table #tb(id int identity(1,1),dbname sysname,hostname nchar(128),loginname nchar(128),net_address nchar(12),net_ip nvarchar(15),prog_name nchar(128))
insert into #tb(hostname,dbname,net_address,loginname,prog_name)
select distinct hostname,db_name(dbid),net_address,loginame,program_name
from master..sysprocesses
where hostname<>'' and (@dbid is null or dbid=@dbid)

if @includeip=0 goto lb_show --如果不显示IP地址,就直接显示

declare @sql varchar(500),@hostname nchar(128),@id int
create table #ip(hostname nchar(128),a varchar(200))
declare tb cursor local for select distinct hostname from #tb
open tb
fetch next from tb
into @hostname
while @@fetch_status=0
begin
set @sql='ping '+@hostname+' -a -n 1 -l 1'
insert #ip(a) exec master..xp_cmdshell @sql
update #ip set hostname=@hostname where hostname is null
fetch next from tb into @hostname
end

update #tb set net_ip=left(a,patindex('%:%',a)-1)
from #tb a inner join (
select hostname,a=substring(a,patindex('Ping statistics for %:%',a)+20,20)
from #ip
where a like 'Ping statistics for %:%') b on a.hostname=b.hostname

lb_show:
select id,数据库名=dbname,客户机名=hostname,用户名=loginname
,网卡物理地址=net_address,IP地址=net_ip,应用程序名称=prog_name
from #tb







GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

[sdmltyj]

真的取不出来吗?
再等,如果再没有人知道的话,我就结贴!

[sdmltyj]

多谢谢各位了,但还是不行,我要得到以下的
CPU
内存
硬盘
显卡
声卡
现好像只能得到硬盘的,算了我结贴了,如果有人知道的话,请发信给我:[e-mail]