コンピュータ名というのはネットワーク上の識別名であり、コントロールパネルから「システムのプロパティ」で確認できます。
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
結果は次のようになります。