ネットワーク：コンピュータ名の取得

対象バージョン : 97, 2000, 2002, 2003, 2007
最終更新日 : 2007/02/12 （オリジナル作成日 : 1999/02/03）

概　要

コントロールパネル − ネットワーク の "ユーザー情報" で、"コンピュータ名" に設定してある名前を取得する方法です。

解　説

１．API の宣言と、定数の定義

General - Declarations

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

２．ユーザー定義関数からの呼び出し

Public Function MyComputerName()
Dim lpBuffer As String
lpBuffer = Space(256)
Call GetComputerName(lpBuffer, 255&)
MyComputerName = Left(lpBuffer, InStrB(lpBuffer, vbNullChar) - 1)
End Function

改定履歴　

• 1999/09/12 2000 では InStr 関数が正常に動作しない場合があるため、InStrB 関数に変更。

目次へ戻る