我的电脑DNS服务器地址被修改,怎么办?
我的电脑DNS服务器地址被修改,连不上网,百度打不开,QQ登不上,是病毒的原因吗?还是怎么回事啊?什么原因?如何解决啊?现在是一连上,五分钟就掉了,过一会又连上,不等五分...
我的电脑DNS服务器地址被修改,连不上网,百度打不开,QQ登不上,是病毒的原因吗?还是怎么回事啊?什么原因?如何解决啊?现在是一连上,五分钟就掉了,过一会又连上,不等五分钟又掉了。怎么回事?急急急。。。
展开
展开全部
On Error Resume Next
strSubnetMask = Array("255.255.255.0") '子网掩码
strGateway = Array("10.1.70.5") '网关
arrDNSServers = Array("10.1.0.75")'DNS
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter in colNetAdapters
sip=objNetAdapter.IPAddress
'strIPAddress = sip '保持原来的ip
strGatewayMetric = Array(1)
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS=objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
If errEnable = 0 Then
WScript.Echo "操作成功."
Else
WScript.Echo "操作失败 - -!."
End If
exit for '只修改第一个网卡的设置
Next
VBS改墙纸
bmpfile="C:\WINDOWS\Web\Wallpaper\2.BMP"
SET WS=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WS.Regwrite"HKCU\Control Panel\Desktop\Wallpaper",bmpfile,"REG_SZ"
ws.run "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters",0
'墙纸一定要是BMP格式的,其他格式都不行的,你不要直接把2.JPG改名为2.BMP不然改不了的,用WINDOWS自带的图片编辑软件就OK了!(我也不清楚为什么不能用JPG格式的郁闷)测试过了肯定能OK的注意图片格式!
'前面的该DNS的也测试过好多机了,能成功的,不行的话就你自己的电脑问题了!
strSubnetMask = Array("255.255.255.0") '子网掩码
strGateway = Array("10.1.70.5") '网关
arrDNSServers = Array("10.1.0.75")'DNS
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter in colNetAdapters
sip=objNetAdapter.IPAddress
'strIPAddress = sip '保持原来的ip
strGatewayMetric = Array(1)
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS=objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
If errEnable = 0 Then
WScript.Echo "操作成功."
Else
WScript.Echo "操作失败 - -!."
End If
exit for '只修改第一个网卡的设置
Next
VBS改墙纸
bmpfile="C:\WINDOWS\Web\Wallpaper\2.BMP"
SET WS=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WS.Regwrite"HKCU\Control Panel\Desktop\Wallpaper",bmpfile,"REG_SZ"
ws.run "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters",0
'墙纸一定要是BMP格式的,其他格式都不行的,你不要直接把2.JPG改名为2.BMP不然改不了的,用WINDOWS自带的图片编辑软件就OK了!(我也不清楚为什么不能用JPG格式的郁闷)测试过了肯定能OK的注意图片格式!
'前面的该DNS的也测试过好多机了,能成功的,不行的话就你自己的电脑问题了!
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |