程序说明: 
　　这个程序比较简单大家自己看吧 
　　计算机名就是你打开 控制面板-系统-网络标识-完整的计算机名称 
　　
程序代码: 
　　Form1 
　　Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String nSize As Long) As Long 
　　Private Sub Command1_Click()
　　Dim Name As String Length As Long 
　　Length = 225
　　Name = String(Length Chr(0))
　　GetComputerName Name Length
　　Name = Left(Name Length)
　　Label1.Caption = Name 
　　
　　End Sub