用vb6.0查看计算机用户名,在VB6.0中如何读取计算机的唯一号，如硬盘序列号或网卡的物理地址，请各位VB高手赐教！！！！...

#7

Private Const NCBASTAT = &H33

Private Const NCBNAMSZ = 16

Private Const HEAP_ZERO_MEMORY = &H8

Private Const HEAP_GENERATE_EXCEPTIONS = &H4

Private Const NCBRESET = &H32

Private Type NCB

ncb_command As Byte 'Integer

ncb_retcode As Byte 'Integer

ncb_lsn As Byte 'Integer

ncb_num As Byte ' Integer

ncb_buffer As Long 'String

ncb_length As Integer

ncb_callname As String * NCBNAMSZ

ncb_name As String * NCBNAMSZ

ncb_rto As Byte 'Integer

ncb_sto As Byte ' Integer

ncb_post As Long

ncb_lana_num As Byte 'Integer

ncb_cmd_cplt As Byte  'Integer

ncb_reserve(9) As Byte ' Reserved, must be 0

ncb_event As Long

End Type

Private Declare Function Netbios Lib "netapi32.dll" _

(pncb As NCB) As Byte