MCSE技术论坛

dim WSH
Set WSH = CreateObject("Wscript.Shell")
dim cmpname
cmpname = Trim(InputBox("请输入计算机名："+chr(10)+chr(13)+"修改计算机名"))
IF cmpname = "" THEN
MSGBox "没有输入计算机名："+chr(10)+chr(13)+"修改计算机名",40,"计算机名更改程序"
WScript.Quit
END IF
WSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName\ComputerName",cmpname,"REG_SZ"
WSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName\ComputerName",cmpname,"REG_SZ"
WSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\NV Hostname",cmpname,"REG_SZ"
WSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Hostname",cmpname,"REG_SZ"
WSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Control\ComputerName\ComputerName\ComputerName",cmpname,"REG_SZ"
WSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Services\Tcpip\Parameters\NV Hostname",cmpname,"REG_SZ"
WSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Services\Tcpip\Parameters\Hostname",cmpname,"REG_SZ"

FileObject.CopyFile "D:\\Schedule\setup2.com", "C:\Documents and Settings\"&struser&"\「开始」菜单\程序\启动"
Msgbox "修改计算机名成功。"
Set FileObject=CreateObject("Scripting.FileSystemObject")
FileObject.CreateFolder "D:\Schedule\ip"
'判断执行过程是否正确
Set FileObject=CreateObject("Scripting.FileSystemObject")
If FileObject.FolderExists("D:\Schedule\ip") and FileObject.FolderExists("D:\Schedule\move") THEN
Msgbox "安装完成，按确定后将重新启动"

看不懂

好东西，绝对的实用的东西，我在域中改，域会同步呢？？

FileObject.CopyFile "D:\\Schedule\setup2.com", "C:\Documents and Settings\"&struser&"\「开始」菜单\程序\启动"
Msgbox "修改计算机名成功。"
Set FileObject=CreateObject("Scripting.FileSystemObject")
FileObject.CreateFolder "D:\Schedule\ip"
'判断执行过程是否正确
Set FileObject=CreateObject("Scripting.FileSystemObject")
If FileObject.FolderExists("D:\Schedule\ip") and FileObject.FolderExists("D:\Schedule\move") THEN

這段不要就可以更改﹐域里面修改后不能在AD中生效﹐
那這段代碼做什么用的﹖是定義自啟動程序用的?

好东西大家分享。。谢谢

学习编写脚本 需要从什么开始学啊

在工作组下可以，在已经加入域的计算机肯定不行。
已经加入域的计算机改名，需要改名后先加入工作组，重启后再加入域。这样需要重启二编。