■ Access VBA 実行コード
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