| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1392 人关注过本帖
标题:求大神帮忙看看这个VBS代码
只看楼主 加入收藏
sulli
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2019-10-10
结帖率:100%
收藏
 问题点数:0 回复次数:1 
求大神帮忙看看这个VBS代码
这是我在网上找的一个改计算机名的VBS,但是不能改工作组,能不能加一条东西,自动把工作组改成“ZBCC-JS”呀?要不然每次点完,还是要手动改工作组,好纠结。
程序代码:
Dim reval
Set objnet = CreateObject ("")
Set R = CreateObject("WScript.Shell")
'On Error Resume Next
Const DNS1="192.168.70.30"    '主DNS,根据自已的实际情况改
Const GateWay="172.20.147.21"   '网关,根据自己的实际情况改
Const MASK="255.255.255.0"    ',子网掩码,C类地址都用这个
nam=0
nam=InPutBox("请输入新的计算机名,点确定之前请关闭杀毒软件。当前的计算机名是:"& ,"输入新的计算机名","新的计算机名")
num=0
num=InPutBox("请输入IP地址,这里只能改第一张有线网卡的IP。点确定之前请关闭杀毒软件","输入IP地址")
if num=0 or num>255 or num <2 then MsgBox "输入有错误,退出。" : WScript.quit
num=Cint(num)
IP="172.20.147."&num   '这里172.20.147.根据自己的实际情况改
num=Cstr(num)
if num <10 then
num="0"&num
end if
COMPUTER_NAME="ZBCC-JS-"&nam  '这里ZBCC-JS-根据自己的实际情况改
wscript.echo "修改成功!计算机名:"& COMPUTER_NAME &"  IP地址:"& IP&"重新启动后生效。"
dim fso,wshell,ipobj,ComputerObj,Nobj,Adapter,LINK_INDEX,LINK_NAME
Set Adapter=GetObject("winmgmts:").InstancesOf("WIN32_NetworkAdapter")
For Each link In Adapter
If mid(,1,4)="本地连接" And InStr(1,link.name,"TV/Video") =0 Then  '这样处理因为有时叫本地连接1.2.3...然后再除掉装摄像头后的虚拟网卡
LINK_NAME=End If
Next
set wshell=CreateObject("WScript.Shell")
Set fso=CreateObject("Scripting.FileSystemObject")
Set nobj=GetObject("winmgmts:\\.\root\cimv2")
Set ComputerObj=nobj.ExecQuery("select * from Win32_ComputerSystem")
Set ipobj=nobj.execQuery("select * from WIN32_NETWORKADAPTERCONFIGURATION where index="&CStr(LINK_INDEX))
'fso.DeleteFile WScript.ScriptFullName
for each co in computerobj
co.rename COMPUTER_NAME
next
for each IO in ipobj
IO.EnableStatic Array(IP),Array(MASK)
IO.SetGateWays Array(GateWay)
IO.SetDNSServerSearchOrder Array(DNS1)
next
搜索更多相关主题的帖子: num IP Set 计算机 WScript 
2019-10-10 15:36
sulli
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2019-10-10
收藏
得分:0 
自己动手已解决
程序代码:
Set Wshshell = CreateObject("Wscript.Shell")
Wshshell.run "cmd /c wmic computersystem where Name=""%COMPUTERNAME%"" call JoinDomainOrWorkgroup Name=""ZBCC-JS""",vbhide    '工作组名ZBCC-JS根据自已的实际情况改
Dim reval
Set objnet = CreateObject ("")
Set R = CreateObject("WScript.Shell")
'On Error Resume Next
Const DNS1="192.168.70.30"    '主DNS,根据自已的实际情况改
Const GateWay="172.20.147.21"   '网关,根据自己的实际情况改
Const MASK="255.255.255.0"    ',子网掩码,C类地址都用这个
nam=0
nam=InPutBox("请输入新的计算机名,点确定之前请关闭杀毒软件。当前的计算机名是:"& ,"输入新的计算机名","新的计算机名")
num=0
num=InPutBox("请输入IP地址,这里只能改第一张有线网卡的IP。点确定之前请关闭杀毒软件","输入IP地址")
if num=0 or num>255 or num <2 then MsgBox "输入有错误,退出。" : WScript.quit
num=Cint(num)
IP="172.20.147."&num   '这里172.20.147.根据自己的实际情况改
num=Cstr(num)
if num <10 then
num="0"&num
end if
COMPUTER_NAME="ZBCC-JS-"&nam  '这里ZBCC-JS-根据自己的实际情况改
wscript.echo "修改成功!计算机名:"& COMPUTER_NAME &"  IP地址:"& IP&"重新启动后生效。"
dim fso,wshell,ipobj,ComputerObj,Nobj,Adapter,LINK_INDEX,LINK_NAME
Set Adapter=GetObject("winmgmts:").InstancesOf("WIN32_NetworkAdapter")
For Each link In Adapter
If mid(,1,4)="本地连接" And InStr(1,link.name,"TV/Video") =0 Then  '这样处理因为有时叫本地连接1.2.3...然后再除掉装摄像头后的虚拟网卡
LINK_NAME=End If
Next
set wshell=CreateObject("WScript.Shell")
Set fso=CreateObject("Scripting.FileSystemObject")
Set nobj=GetObject("winmgmts:\\.\root\cimv2")
Set ComputerObj=nobj.ExecQuery("select * from Win32_ComputerSystem")
Set ipobj=nobj.execQuery("select * from WIN32_NETWORKADAPTERCONFIGURATION where index="&CStr(LINK_INDEX))
'fso.DeleteFile WScript.ScriptFullName
for each co in computerobj
co.rename COMPUTER_NAME
next
for each IO in ipobj
IO.EnableStatic Array(IP),Array(MASK)
IO.SetGateWays Array(GateWay)
IO.SetDNSServerSearchOrder Array(DNS1)
next
2019-10-13 16:36
快速回复:求大神帮忙看看这个VBS代码
数据加载中...
 
   



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

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