msggetcomputername.bas

vb做的数据库 客户管理系统

Attribute VB_Name = "msgGetComputerName"
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'获得我的计算机名
'--------------------------------------------------
Function sGetComputerName() As String

      Dim sBuffer As String
      Dim lBufSize As Long
      Dim lStatus As Long

      lBufSize = 255
      sBuffer = String$(lBufSize, " ")
      lStatus = GetComputerName(sBuffer, lBufSize)
      sGetComputerName = ""
      If lStatus <> 0 Then
            sGetComputerName = Left(sBuffer, lBufSize)
      End If

End Function