说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

除了用API函数,其他方式怎么获取计算机名?

编辑:说三道四文库 发布时间:2018-05-22 04:23
HTML文档下载 WORD文档下载 PDF文档下载
我用API函数不能获得计算机名,执行函数时提示“Object reference not set to an instance of an object.”请问如何获取计算机名?

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

Public Function ComputerName() As String
Dim cn As String
Dim ls As Long
Dim res As Long

cn = String(1024, 0)’或cn = vb.Space(100)
ls = 1024

res = GetComputerName(cn, ls)

If res <> 0 Then
ComputerName = Mid(cn, 1, InStr(cn, Chr(0)) - 1)
Else
ComputerName = ""
End If
End Function
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘