查看完整版本: 如何获得计算机的机器名

如何获得计算机的机器名

　　用API函数GetComputerName可以方便的取得计算机的机器名。
Option Explicit
** Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

** Sub Command1_Click()
Dim ComputerName As String, i As Long
i = 255
ComputerName = String(i, 0)
GetComputerName ComputerName, i
ComputerName = Left(ComputerName, i)
MsgBox "此电脑的名称是" & ComputerName

[[i] 本帖最后由 douces 于 2007-12-3 11:46 编辑 [/i]]