تغییر دادن نام کامپیوتر

[mohsen57]

چجوری میتونم نام کامپیوتر را تغییر بدم؟

[xxxxx_xxxxx]

نام کامپیوتر شما در رجیستری ذخیره شده که اگه دنبالش بگردید ممکنه بیشتر از 30 مورد گیر بیارین که تنها با تغییر دادن مقادیر زیر می تونین نام کامپیوتر رو عوض کنید:


به این کلید در رجیستری رجوع کنید:


HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion

یه مقدار با نام RegisteredOwner وجود داره که نام فعلی کامپیوتر توش هست. با تغییر اون این کار انجام میشه.
------------------------------------------------------------------------
در این مسیر هم میشه full Computer Name رو عوض کرد:


HKEY_LOCAL_MACHINE\System\ControlSet001\Services\t cpip\Parameters


یه مقدار با نام NV Hostname وجود داره که با تغییر دادنش full computer name عوض میشه.
----------------------------------------------------------------------
در همون مسیر بالا بجای ControlSet001 در CurrentControlSet با همون مقدار.
------------------------------------------------------------------

[اوبالیت به بو]

با اين API:

Private Declare Function SetComputerNameA Lib "kernel32.dll" (ByVal lpComputerName As String) As Long

كدشم سادست.

Dim Name As String
Dim Comname As Long
Name = InputBox("نام كامپيوتر جديد را وارد نماييد:","نام كامپيوتر جديد")
Comname = SetComputerNameA(Name)

[mohsen57]

با اين API:

Private Declare Function SetComputerNameA Lib "kernel32.dll" (ByVal lpComputerName As String) As Long

كدشم سادست.

Dim Name As String
Dim Comname As Long
Name = InputBox("نام كامپيوتر جديد را وارد نماييد:","نام كامپيوتر جديد")
Comname = SetComputerNameA(Name)


این کد کار نمیکنه.

[اوبالیت به بو]

این کد کار نمیکنه.
من چي كار مي تونم بكنم كه كار نمي كنه؟؟

[sohrab o]

Public Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long

Function Set_Computer_Name(StrComputerName As String) As Boolean

If StrComputerName = "" Then
Set_Computer_Name = False
Else
Set_Computer_Name = True
SetComputerName StrComputerName
End If

End Function