PCのコンピュータ名を取得

【カテゴリ名Visual Basic】

コンピュータ名というのはネットワーク上の識別名であり、コントロールパネルから「システムのプロパティ」で確認できます。
Windows API を使用して取得します。

宣言部は以下のとおりです。モジュールレベルに記述してください。

private Const MAX_COMPUTERNAME_LENGTH = 32
' コンピュータ名を取得する
private Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" _
                                (ByVal lpBuffer As String, nSize As Long) As Long

以下のように使用します。

    Dim lngTemp As Long
    Dim sBuff As String
    
    lngTemp = MAX_COMPUTERNAME_LENGTH + 1
    sBuff = Space(lngTemp)
    If GetComputerName(strTemp, lngTemp) <> 0 Then
        MsgBox StrConv(LeftB(StrConv(sBuff, vbFromUnicode), lngTemp), vbUnicode)
    End If

結果は次のようになります。