大家自己动手制作一个“更改系统用户、组织和电脑名称”的程序

linty2000 · 发表于 2005-10-7 00:15:06

大家只好把下面的内容复制到记事本中，然后存为扩展名为vbs的文件(如change.vbs)就行了。
以后双击他后就可以更改系统用户、组织和电脑名称了。

Option Explicit
Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, n, cn
Dim itemtype
n = ws.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")
cn = InputBox("请输入新的用户名称：", "改变电脑用户名称", n)
If cn <> "" Then
  ws.RegWrite "HKLM\Software\Microsoft\Windows NT\CurrentVersion\RegisteredOwner", cn
End If
n = ws.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization")
cn = InputBox("请输入新的公司名称：", "改变您的公司名称", n)
If cn <> "" Then
  ws.RegWrite "HKLM\Software\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization", cn
End If
n = ws.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName")
cn = InputBox("请输入新的电脑名称：", "改变您的用脑名称", n)
If cn <> "" Then
  ws.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", cn
  ws.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", cn
End If

呵呵，简单吧！不过这个只能适用Win2000以上噢，Win98和WinME大家可以自己修改以上代码。

cjzzz · 发表于 2005-10-7 03:40:00

能不能再加下改ＩＰ地址的? 还有电脑名称, ,能不能改成是数字的？

zhken · 发表于 2005-10-12 12:55:45

哇！这么方便，支持！谢谢提供！

ebing · 发表于 2005-10-12 14:12:27

非常好用，卷走。谢谢！！！

yywd · 发表于 2005-11-12 18:28:43

哇！这么方便，支持！谢谢提供！

jojococo · 发表于 2005-11-13 19:16:11

真是有创意顶了

ning · 发表于 2005-11-16 17:58:48

不错，收藏

yiexi008 · 发表于 2005-11-17 13:38:05

支持！谢谢提供！

hshong · 发表于 2005-11-17 16:49:43

好用
谢了

TCLSHX · 发表于 2005-11-17 18:36:55

方便大家

		自动登录	找回密码
密码			注册