『壹』 求高手寫一個的vbs或bat命令更改計算機名字
sNewName = ComputerName
sNewName="新計算機名"
Set oShell = CreateObject ("WSCript.shell")
sCCS = "HKLM\SYSTEM\CurrentControlSet\"
sTcpipParamsRegPath = sCCS & "Services\Tcpip\告派Parameters\"
sCompNameRegPath = sCCS & "吵侍Control\ComputerName\"
With oShell
.RegDelete sTcpipParamsRegPath & "Hostname"
.RegDelete sTcpipParamsRegPath & "NV Hostname"
.RegWrite sCompNameRegPath & "ComputerName\ComputerName", sNewName
.RegWrite sCompNameRegPath & "ActiveComputerName\ComputerName", sNewName
.RegWrite sTcpipParamsRegPath & "Hostname", sNewName
.RegWrite sTcpipParamsRegPath & "NV Hostname", sNewName
End With
Msgbox "計算機名稱已襪碰賀經修改成功!"& vbcr &"請重新啟動計算機確認改動生效!"
這個是VBE的
『貳』 求win7系統不重啟計算機批處理修改計算機名
在修改我們計算機名的時候，修改後總是需要重新啟動，叢前余這個很麻煩，下面icech來介紹一種方法，可以解決這個麻煩，讓你無需重新啟動計算機就可以成功修改計算機名！下面這段批處理代碼，拷貝到記事本當中，保存成modify.bat文件，然後運行，提示你輸入計算機名的時候就輸入你的新計算機名稱，然後這個批處理文件就可以幫你自動滲滾修改注冊表啦，而且不用重啟計算機喲～～～@echo offset /p name=請輸您的計算機名悔粗：
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %name% /f nul 2nul
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f nul 2nul
echo 修改計算機名完畢
『叄』 vb自動關機並且可以改變計算機用戶名的代碼，只要代碼就ok了，謝謝了親們，么么噠親親⊙ε⊙
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "空神歲advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long '設置計算機用戶名
Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2
Private Type LUID
UsedPart As Long
IgnoredForNowHigh32BitPart As Long
End Type
Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
TheLuid As LUID
Attributes As Long
End Type
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Const HELP_CONTENTS = &H3&
Const EWX_LOGOFF = 0 '注銷
Const EWX_SHUTDOWN = 1 '待機
Const EWX_REBOOT = 2 '重新啟動
Const EWX_WAIT = 16
Const EWX_FORCE = 4 '終止沒有響應的進程
Const EWX_POWEROFF = 8 '關閉電源
Private Sub Form_Load() '下面的斗睜代碼是確保有足夠權瞎遲限進行關機操作。
Dim hProcessHandle As Long
Dim hTokenHandle As Long
Dim tmpLuid As LUID
Dim tkpNew As TOKEN_PRIVILEGES
Dim tkpPrevious As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long
'獲取當前進程的一個偽句柄
hProcessHandle = GetCurrentProcess()
OpenProcessToken hProcessHandle, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hTokenHandle
LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid
tkpNew.PrivilegeCount = 1
tkpNew.TheLuid = tmpLuid
tkpNew.Attributes = SE_PRIVILEGE_ENABLED
lBufferNeeded = 0
'允許當前應用程序有關閉操作系統的許可權
AdjustTokenPrivileges hTokenHandle, False, tkpNew, Len(tkpPrevious), tkpPrevious, lBufferNeeded
End Sub
Private Sub Command1_Click() '執行更改用戶名和關機的按鈕。
Call ReSetPcName() '先調用更改計算機用戶名的模塊
ExitWindowsEx EWX_FORCE Or EWX_POWEROFF, 0 '執行關機模塊
End Sub
Public Function SetCName(CName) As Boolean
Dim lResult As Long
Dim RV As Boolean
lResult = SetComputerName(CName)
If lResult <> 0 Then
RV = True '修改成功
Else
RV = False
End If
SetCName = RV
End Function
Private Sub ReSetPcName（）
If SetCName("我是中國人") = True Then '這兒是你需要修改成的計算機名，也可以使用inputbox自己輸入。
MsgBox ("修改成功")
Else
MsgBox ("對不起，沒有足夠的許可權！")
End If
End Sub
附送獲取計算機用戶名的代碼：
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long '獲取當前用戶名
Private Sub Form_Load()
Dim st As String * 100
Dim pln As Long
pln = 99
GetUserName st, pln '調用獲取用戶名的API函數
MsgBox Left$(st, pln)
End Sub
『肆』 命令行修改計算機名稱
wmic computersystem where "name='%computername%'" call rename "Someyouwana"
也可以 批處理
@echo off
set /p name=請輸您的計算機並哪名：
reg add "HKEY_LOCAL_MACHINE\歲粗System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %name% /f
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /絕雀碼d %name% /f
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %name% /f
『伍』 求一段在VB6.0中修改計算機名的代碼。如下圖：默認修改的計算機名格式為年、月、日。例如：20140907
Private Declare Function SetComputerName Lib "kernel32" Alias "碧蘆耐SetComputerNameA" (ByVal lpComputerName As String) As Long
Private Function SetCName(CName As String) As Boolean
Dim lResult As Long
Dim RV As Boolean
lResult = SetComputerName(CName)
If lResult <> 0 Then
RV = True
Else
RV = False
End If
SetCName = RV
End Function
Private Sub Command1_Click()
If SetCName("20140907") Then
MsgBox "修嘩腔改悔春成功"
Else
MsgBox "修改失敗"
End If
End Sub
『陸』 VB編程，如何修改計算機名稱。
是改的NetBIOS的計算機名稱。
在看到我的電腦名稱的界面，點[其他]按鈕，能看到！
『柒』 如何用DOS命令改計算機名字
舉例說明：
更改計算機名abc為123
wmic computersystem where 「name=』abc』」 call rename 123
更改工巧好沖作組WORKGROUP為MyGroup
wmic computersystem where 「襪配name=』WORKGROUP』」 call joindomainorworkgroup 「」,」孝殲",」MyGroup」,1