ネットワーク:コンピュータ名の取得 Hit Counter

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


概 要

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

 

解 説

1.API の宣言と、定数の定義

General - Declarations

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

2.ユーザー定義関数からの呼び出し

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

 

改定履歴 


目次へ戻る