中关村在线

首页 排行 新品 问答 下载 论坛 手机 笔记本 数码相机 主板 显卡 平板电脑 更多

怎样用一台电脑联接两个屏幕

举报
讨论回答 (4)
363672258
28791119
vikibin
你打开记事本,输入下面代码。

a=msgbox("是否改变为宿舍上网的IP"& Chr(13) &"是,改成宿舍里的"& Chr(13) &"否,改成公司的"& Chr(13) &"取消不改变IP"& Chr(13) & Chr(10) & Chr(10) &" 制作:whatask",3,"改变IP")
if a=6 then
strIP = "192.168.1.XX" 'ip
strMask = "255.255.255.0" '掩码
strGW = "192.168.1.1" '关网
strDNS1 = "202.102.154.3" 'dns
strDNS2 = "202.102.152.3" 'dns
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(strIP)
strSubnetMask = Array(strMask)
strGateway = Array(strGW)
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
arrDNSServers = Array(strDNS1,strDNS2)
errDNS = objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
If errEnable = 0 Then
WScript.Echo "已成功更改成宿舍里上网的IP。"
Else
WScript.Echo "更改IP地址失败。"
End If
Next
elseif a=7 then
strIP = "192.168.1.XX" 'ip
strMask = "255.255.255.0" '掩码
strGW = "192.168.1.1" '关网
strDNS1 = "202.102.154.3" 'dns
strDNS2 = "202.102.152.3" 'dns
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(strIP)
strSubnetMask = Array(strMask)
strGateway = Array(strGW)
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
arrDNSServers = Array(strDNS1,strDNS2)
errDNS = objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
If errEnable = 0 Then
WScript.Echo "已成功更改成公司上网的IP。"
Else
WScript.Echo "更改IP地址失败。"
End If
Next
elseif a=2 then
msgbox "IP地址没有改变"
end if

别存为XX.VBS文件,
上面第一段IP 就是宿舍里的,你改过来就行,
第二段就是公司的,也改成相应的,没有就不写。

以后只要双击这个文件就行了。
long520119
展开查看全部 4 条讨论
相关问题

二手手机

1.6万 浏览 311 回答

电脑

2.1万 浏览 194 回答

笔记本电脑

1.3万 浏览 181 回答

2019联想拯救者y7000 I7 9750游戏笔记本

1270 浏览 119 回答

为什么现在年轻人都喜欢买OPPO和vivo,不再喜欢性价比高的小米了?

15.4万 浏览 73 回答

扩展阅读

RTX5090、U9-285HX、R9-9955HX3D全来了!微星游戏本、AIPC、轻薄本抢鲜看

评论 97

RTX5090、U9-285HX、R9-9955HX3D全来了!微星游戏本、AIPC、轻薄本抢鲜看

ThinkPad X1 Carbon Aura AI元启版评测:986克超便携酷睿Ultra AI PC

评论 60

ThinkPad X1 Carbon Aura AI元启版评测:986克超便携酷睿Ultra AI PC

ThinkPad T14s AI 2024锐龙版评测:首搭锐龙AI PRO 300平台

评论 112

ThinkPad T14s AI 2024锐龙版评测:首搭锐龙AI PRO 300平台

戴尔Latitude 7455评测:14英寸触屏移动办公利器

评论 41

戴尔Latitude 7455评测:14英寸触屏移动办公利器

游戏AI生产力一个不能少!上手体验暗影骑士·擎6全能本

评论 62

游戏AI生产力一个不能少!上手体验暗影骑士·擎6全能本
热门问题

免费韩国漫画在线观看的地址有么?

8068 浏览 5 回答

免费韩国漫画在线观看的地址有么?

荣耀Magic7 Pro

9861 浏览 1 回答

荣耀Magic7 Pro

牛夫人小甜甜啥意思

5833 浏览 4 回答

牛夫人小甜甜啥意思

求推荐一款笔记本。工科研究生用,便于随身携带。平时做科研,处理数据,查阅文献。不玩网游和单机,至多玩棋牌游戏和影音。喜欢摄影,需要修图。附加:纠结要不要带数字键盘区。预算最多8000。尽量便宜些。

1.2万 浏览 6 回答

求推荐一款笔记本。工科研究生用,便于随身携带。平时做科研,处理数据,查阅文献。不玩网游和单机,至多玩棋牌游戏和影音。喜欢摄影,需要修图。附加:纠结要不要带数字键盘区。预算最多8000。尽量便宜些。

海尔售后电话(海尔)全国统一400客服服务热线

5476 浏览 6 回答

海尔售后电话(海尔)全国统一400客服服务热线

一公里大约多少步数 一公里有多少步

7514 浏览 8 回答

一公里大约多少步数 一公里有多少步

苹果手机怎么打开apk文件

2万 浏览 6 回答

苹果手机怎么打开apk文件

最新cpu天梯图

21.6万 浏览 5 回答

最新cpu天梯图

在哪里可以免费看韩漫的?

2884 浏览 6 回答

在哪里可以免费看韩漫的?

字节跳动旗下12款产品

6814 浏览 6 回答

字节跳动旗下12款产品
最新问答

cvt变速箱最大能承受多少扭矩?

6114 浏览 4 回答

cvt变速箱最大能承受多少扭矩?

请问excel表格被误删了一列并保存了 要怎么恢復

6197 浏览 7 回答

请问excel表格被误删了一列并保存了 要怎么恢復

hp officejet 4500 series 肿么换墨盒

6633 浏览 10 回答

hp officejet 4500 series 肿么换墨盒

excel打印预览时肿么在纸的中间

7989 浏览 6 回答

excel打印预览时肿么在纸的中间

模板肿么弄到空间上

9151 浏览 6 回答

模板肿么弄到空间上
举报
举报成功

经过核实后将会做出处理,感谢您为社区和谐做出贡献。

请选择删除原因
删除成功
确定推荐该回答?
推荐成功

更多频道

频道导航
辅助工具