标题:一个不用重启更改机器名和工作组的批处理程序,在VB中为什么会报错
只看楼主
ts_2000
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2021-2-8
结帖率:33.33%
已结贴  问题点数:20 回复次数:4 
一个不用重启更改机器名和工作组的批处理程序,在VB中为什么会报错
一个不用重启更改机器名和工作组的批处理程序,修改在VB中用shell调用,为什么更改机器名正常,但改工作组的语句就总是报错,实例不可用?。

@echo off
echo
set /p name=请输您的计算机名:
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %name% /f >nul 2>nul
echo.
echo 修改计算机名完毕
echo.
echo
set /p work1=请输入您的工作组名:
wmic computersystem where Name="%COMPUTERNAME%" call JoinDomainOrWorkgroup Name="%work1%"
echo 修改工作组完毕
pause>nul
echo.
搜索更多相关主题的帖子: 更改 name 工作 echo 机器 
2022-03-23 07:55
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:33
帖 子:1883
专家分:2904
注 册:2009-12-22
得分:0 
你是怎么改的,代码发上来看一下。

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2022-03-23 18:43
ts_2000
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2021-2-8
得分:0 
shell "cmd /c reg add ""HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName"" /v ComputerName /t reg_sz /d " &text1.text &" /f >nul 2>nul
shell "cmd /c reg add ""HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters"" /v ""NV Hostname"" /t reg_sz /d " &text1.text &" /f >nul 2>nul
shell "cmd /c reg add ""HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters"" /v Hostname /t reg_sz /d " & text1.text &" /f >nul 2>nul


shell "cmd /c wmic computersystem where Name="" &text1.text &"" call JoinDomainOrWorkgroup Name=""& text2.text """

修改机器名好使,但修改工作组不成功!
2022-03-24 08:56
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:33
帖 子:1883
专家分:2904
注 册:2009-12-22
得分:20 
以下4条命令亲测可以完成。

wmic computersystem where caption='%COMPUTERNAME%' call rename 'DESKTOP-MD1PIA7'-----修改计算机名为DESKTOP-MD1PIA7( 需管理员权限运行)
wmic computersystem where Name="%COMPUTERNAME%" call JoinDomainOrWorkgroup Name="aaa"-----添加当前计算机到指定的工作组aaa中( 需管理员权限运行)
powershell Rename-Computer -NewName "ComputerName"-----修改计算机名为ComputerName( 需管理员权限运行)
powershell Add-Computer -WorkGroupName "Workgroup_Name"-----添加当前计算机到指定的工作组Workgroup_Name中( 需管理员权限运行)

我建议你用下面两条命令,调用难度小一些。

[此贴子已经被作者于2022-3-24 10:37编辑过]


心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2022-03-24 10:20
ts_2000
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2021-2-8
得分:0 
谢谢版主!
2022-03-24 14:11



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-508628-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.211420 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved