コンピュータ名の取得 ： Access

Option Explicit

'コンピュータ名を取得する
Private Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'コンピュータ名を取得する
Function AcGetComputerName() As String
    Dim Buf As String
    Dim lRet As Long
    Dim ln As Long
    '空文字列の作成
    Buf = Space$(255)
    lRet = GetComputerName(Buf, 255)
    'Null位置を調べる
    ln = InStr(1, Buf, vbNullChar)
    If ln <> 0 Then
        'NULLからの取り出し
        AcGetComputerName = Left(Buf, ln - 1)
    Else
        AcGetComputerName = Buf
    End If
End Function

Private Sub コマンド1_Click()
    Me!コマンド1.Caption = AcGetComputerName
End Sub