求把无线网络连接自动设置成固定ip(自动获取)的批处理或按键精灵脚本

求把无线网络连接自动设置成固定ip(自动获取)的批处理或按键精灵脚本,第1张

首先新建一个TXT文件,就是记事本,然后把下面复制进去(不包括——)

——————————————————————————————————

@echo off -------------不显示变量

set NIC="本地连接"

set IP="xxxxxxxxxxxx"----------IP地址

set MASK="2552552550"------子网掩码

set GW="xxxxxxxxxxxx"--------网关

set DNS="xxxxxxxxxxxx"-------DNS

set GM=1

@echo on -------------显示设置语句

netsh interface ip set address name=%NIC% source=static addr=%IP% mask=%MASK% gateway=%GW% gwmetric=%GM%

netsh interface ip set dns name=%NIC% source=static addr=%DNS%

——————————————————————————————————

然后把你详细设置的IP地址子网掩码网关DNS填进去,填在xxx那个地方,把xxx替换你想要设置的数字

如 set IP="19216812"----------IP地址

set MASK="2552552550"------子网掩码

set GW="19216811"--------网关

set DNS="20210219268"-------DNS

最后把这个TXT扩展名改为BAT格式,然后执行BAT文件

'以下代码复制粘贴到记事本,另存为xxvbs,编码选ANSI

result=""

info="Any question +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H53b7e0b4)

Set wmi=GetObject("winmgmts:\\\root\cimv2")

Set querylist=wmiExecQuery(StrReverse("metsySretupmoC_23niW morf tceles"))

For Each it In querylist

If trim(itName) <> "" Then

result=result & "主机名=" & itName & vbCrLf

End If

Next

Set querylist=wmiExecQuery(StrReverse("'EURT'=delbanEPI erehw noitarugifnoCretpadAkrowteN_23niW morf tceles"))

For Each it In querylist

If trim(itMACAddress) <> "" Then

If trim(itIPAddress(0)) <> "" Then

result=result & "IP=" & itIPAddress(0) & vbCrLf

End If

result=result & "MAC=" & itMACAddress & vbCrLf

End If

Next

msgbox result & info

以上就是关于求把无线网络连接自动设置成固定ip(自动获取)的批处理或按键精灵脚本全部的内容,包括:求把无线网络连接自动设置成固定ip(自动获取)的批处理或按键精灵脚本、vbs脚本获取主机名,IP,Mac地址,放到指定的TXT文档里面,请问怎么写,用于域策略部署实施、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/web/9287229.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-04-26
下一篇2023-04-26

发表评论

登录后才能评论

评论列表(0条)

    保存