コンピュータ名の変更             <TOP>


コンピュータ名を変更します。

GetComputerName コンピュータ名取得

SetComputerName コンピュータ名設定

 

起動すると現在のコンピュータ名が表示されます。新しいコンピュータ名を入力し変更ボタンをクリックすると再起動後有効になります。

 

'================================================================
'= コンピュータ名の変更
'=    (SetComputerName.bas)
'================================================================
#include "Windows.bi"

' コンピュータの名前を文字列として取得
Declare Function Api_GetComputerName& Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer$, nSize&)

' コンピュータ名を変更
Declare Function Api_SetComputerName& Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName$)

Var Shared Text(2) As Object
Var Shared Edit1 As Object
Var Shared Button1 As Object

For i = 0 To 2
    Text(i).Attach GetDlgItem("Text" & Trim$(Str$(i+1)))
    Text(i).SetFontSize 14
Next
Edit1.Attach GetDlgItem("Edit1") : Edit1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    Var pcName$ As String
    Var Leng As Long
    Var Res As Long

    pcName$ = String$(250, Chr$(0))
    Leng = Len(pcName$)
    Res = Api_GetComputerName(pcName$, Leng)
    pcName$ = Left$(pcName$, InStr(pcName$, Chr$(0)) - 1)

    Text(2).SetWindowText pcName$
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var sNewName$ As String
    Var Res As Long

    sNewName$ = GetDlgItemText("Edit1")
    If sNewName$ = "" Then Exit Sub

    Res = Api_SetComputerName(sNewName$)
    Res = MessageBox("", "コンピュータ名を変更しました!" & Chr$(13,10) & "再起動後有効になります。", 0, 2)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End