天下网吧 >> 网吧天地 >> 天下码农 >> 桌面开发 >> VBS >> 正文

修改过网吧IP和电脑名称VBS代码,一键修改网吧IP和名称

分享一段VBS,可以修改网吧电脑客户机的计算机名称和IP的。

修改网吧电脑IP的同时修改电脑的DNS,网关等信息一起修改了,下面是完整的代码:

'On Error Resume Next
Const DNS1="202.99.160.68"
Const DNS2="202.99.166.4"
Const GateWay="192.168.16.100"
Const MASK="255.255.255.0"

num=0
num=InPutBox("请输入本机号","输入")
If Trim(num) = "" Then
MsgBox "您没输入值,退出。"
: WScript.quit
End If
If num=0 or num>255 or num <1 then MsgBox "输入有错误,退出。" : WScript.quit
num=Cint(num)
IP="192.168.16."&num
num=Cstr(num)
if num <10 then
num="00"&num
end if
if num <100 and num>9 then
num="0"&num
end if
COMPUTER_NAME="net"&num
wscript.echo COMPUTER_NAME &" "& 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(link.NetConnectionID,1,4)="本地连接" And InStr(1,link.name,"TV/Video") =0 Then '这样处理因为有时叫本地连接1.2.3...然后再除掉装摄像头后的虚拟网卡
LINK_NAME=link.NetConnectionID
LINK_INDEX=link.index
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))


for each co in computerobj
co.rename COMPUTER_NAME '修改计算机名
next

for each IO in ipobj
IO.EnableStatic Array(IP),Array(MASK) '修改IP地址
IO.SetGateWays Array(GateWay) '修改默认网关
IO.SetDNSServerSearchOrder Array(DNS1,DNS2) '修改DNS
next

代码分析:

本代码运行后需要用户收入本机的机器号,然后修改本地连接里面的相关IP信息和计算机名称完成。


源码相关讨论:

修改IP和机器名的VBS脚本-前端开发

本文来源:天下网吧 作者:天下码农

声明
声明:本站所发表的文章、评论及图片仅代表作者本人观点,与本站立场无关。若文章侵犯了您的相关权益,请及时与我们联系,我们会及时处理,感谢您对本站的支持!联系Email:support@txwb.com,系统开号,技术支持,服务联系QQ:1175525021本站所有有注明来源为天下网吧或天下网吧论坛的原创作品,各位转载时请注明来源链接!
天下网吧·网吧天下
  • 本周热门
  • 本月热门
  • 阅读排行