現在実行しているコンピュータ名の取得方法を紹介します。
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
とすると、コンピュータ名がイミディエイトウィンドに表示されます。
- 投稿タグ
- API