７２．コンピュータ名を変更する

＜　使用用途　＞
コンピュータ名を変更する

　＜　説明　＞
ＡＰＩ関数のSetComputerName を使用します
SetComputerName　＝＞コンピュータ名を変更する
　　＜引数＞
　　　　　lpComputerName：変更する名前
　　＠戻り値＠
　　　　　正常終了1
＊変更を反映させるのには再起動が必要

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long

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

　　nName = "PAPYの部屋"
　　Ret = SetComputerName(nName)
End Sub