マシン名を取得する

Option Explicit

'マシン名称取得用API
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long
'マシン名称最大長
Private Const MAX_COMPUTERNAME_LENGTH = 15

'マシン名称取得時のバッファサイズ
Const COMPUTERNAMBUFFER_LENGTH = MAX_COMPUTERNAME_LENGTH + 1

Public Function Machinename() As String

'マシン名称取得用変数
Dim strComputerNameBuffer As String * COMPUTERNAMBUFFER_LENGTH
'マシン名称文字列の長さ
Dim lngComputerNameLength As Long
'API戻り値取得用
Dim lngRet As Long

'マシン名の長さを設定
lngComputerNameLength = Len(strComputerNameBuffer)
' コンピューター名を取得
lngRet = GetComputerName(strComputerNameBuffer, lngComputerNameLength)
'余分な文字列を削除してコンピューター名を取得
Machinename = Left(strComputerNameBuffer, InStr(strComputerNameBuffer, vbNullChar) - 1)

End Function

トップページに戻る

Tips一覧に戻る