我的电脑DNS服务器地址被修改，连不上网，百度打不开，QQ登不上，是病毒的原因吗？还是怎么回事啊？什么原因？如何解决啊？现在是一连上，五分钟就掉了，过一会又连上，不等五分钟又掉了。怎么回事？急急急。。。
杀毒后改回来就可以了。
点击计算机-网络-本地连接-属性-Internet协议版本-属性。
在首选DNS和备选DNS重新输入即可。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2010-11-28
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的也测试过好多机了,能成功的,不行的话就你自己的电脑问题了!本回答被提问者采纳
