現在実行しているコンピュータ名の取得方法を紹介します。
Windows XP の場合 [スタート]−[マイコンピュータ] で右クリックをして、[プロパティ] を選択して｢システムのプロパティ｣を開きます。｢コンピュータ名｣タグを選択すると｢フルコンピュータ名｣という項目があります。ここで設定してある ｢フルコンピュータ名｣を取得します。

【注意】
下記プログラムはWin32APIを使用しています。使用するときは必ず自己責任で使用するようお願いします。

標準モジュール

オブジェクトから新規モジュールを選択して下記を入力します。


Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Const BufferSize As Long = 256

Public Function MyComputerName() As String

Dim ComputerName As String * BufferSize

Call GetComputerName(ComputerName, BufferSize)

MyComputerName = Left(ComputerName, _
InStr(ComputerName, Chr(0)) - 1)

End Function

上記プログラムを記述後、イミディエイトウィンドで

Call MyComputerName

とすると、コンピュータ名がイミディエイトウィンドに表示されます。

投稿タグ