010101

タイトル	コンピュータ名を取得する
対象言語	VB4.0, Access95以降
動作確認ＯＳ	Windows95,98,NT4.0
使用関数	GetComputerName
改築日	1998/08/28　（1998/01/02）
Source Download

コントロールパネル「ネットワーク」アプレットで
表示されるコンピュータ名を取得します。

コマンドボタンを押すと、コンピュータの名前を取得し、
テキストボックスに表示します。

1. フォームを作成し、テキストボックス(Text1)とコマンドボタン（Command1）を貼り付けてください。
2. コマンドボタンのClick時のイベントに下のソースを入力してください。

Option Explicit

Private Sub Command1_Click()

　　Me!Text1 = Y_GetComputerName()

End Sub

3.モジュールウインドウを作成し、下のソースを入力してください。

Option Explicit

'コンピュータ名を取得する
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Public Const MAX_COMPUTERNAME_LENGTH = 33

Public Function Y_GetComputerName() As String
'*************************************************************
'機能 : GetComputerName関数を呼び出し、コンピュータ名を取得する
'引数 : なし
'戻り値: コンピュータ名
'*************************************************************

　　Dim StrBuf As String * MAX_COMPUTERNAME_LENGTH
　　Dim LongRet As Long

'コンピュータ名を取得する
　　LongRet = GetComputerName(StrBuf, MAX_COMPUTERNAME_LENGTH)

　　If LongRet = 0 Then
　　　　Call MsgBox("GetComputerName関数取得に失敗しました。(ToT)")
　　Else
　　　　Y_GetComputerName = BufEdit(StrBuf)
End If

End Function

Public Function BufEdit(Buf As String) As String
'***********************************************************
'機能 : 引数 Bufの文字列中の Nullコードを検索し、Nullコードを
'　　　　除いた文字列を返す
'引数 : Buf = Nullコードを含む文字列
'戻り値: Nullコードを除いた文字列
'***********************************************************

　　Dim i As Long

　　i = InStr(Buf, vbNullChar)
　　If i <> 0 Then
　　　　BufEdit = Left$(Buf, i - 1)
　　Else
　　　　BufEdit = Buf
　　End If

End Function