ACCESS TIPS コンピュータ名の取得

コンピュータ名の取得

スポンサードリンク

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

Access-Access!