５９．コンピューター名を取得する

＜　使用用途　＞
コンピューター名を取得する

　＜　説明　＞
ＡＰＩ関数のGetComputerNameを使用します
GetComputerName　＝＞コンピューター名を取得する　
　　＜引数＞
　　　　　lpBuffer：コンピュータ名を格納する変数
　　　　　nSize：コンピュータ名の文字数
　　＠戻り値＠
　　　　　正常終了0以外

<　ＳＡＭＰＬＥ　＞
'標準モジュール
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Name As String
　　Dim Leng As Long
　　Dim Ret As Long

　　'バッファを確保
　　Name=String(250,chr(0))
　　Leng=Len(Name)

　　Ret=GetComputerName(Name,Leng)
　
　　MsgBox "コンピュータ名は" & Name & " です。"
End Sub