怎样获得本机的主机名？

whale77

在vba中，怎样获得本机的主机名阿，请教高手们。谢谢

Benjamin_luk

'******************** Code Start **************************

'This code was originally written by Dev Ashish.

'It is not to be altered or distributed,

'except as part of an application.

'You are free to use it in any application,  

'provided the copyright notice is left unchanged.

'

'Code courtesy of

'Dev Ashish

Private Declare Function apiGetComputerName Lib "kernel32" Alias _

    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSMachineName() As String

'Returns the computername

Dim lngLen As Long, lngX As Long

Dim strCompName As String

    lngLen = 16

    strCompName = String$(lngLen, 0)

    lngX = apiGetComputerName(strCompName, lngLen)

    If lngX <> 0 Then

        fOSMachineName = Left$(strCompName, lngLen)

    Else

        fOSMachineName = ""

    End If

End Function'******************** Code End **************************然后用fOSMachineName() 取得

zhanguoru

Environ("COMPUTERNAME")

whale77

非常感谢！