vb中如何修改局域网电脑的网关或dns?

自己采用的是Set objWMIService = GetObject("winmgmts:\\"&computername&"\root\cimv2")，其中computername是局域网一台电脑的IP或计算机名，但使用这个wmi语句对远程计算机进行操作时，说"拒绝的权限"，我有打开那台电脑的guest用户，自己本机的administrator跟那台电脑的administrator设的密码也一样还是不行，不晓得要如何设置？或者有其它好方法也可以

---

帮顶

---

你先试试运行那边打开共享可不可以

---

引用

你先试试运行那边打开共享可不可以

可以的

---

VB code:
Function ChangeIP(IP As String, NM As String, GW As String, MDNS As String, SDNS As String) As String
'返回值说明:返回一个设置的中文说明.
Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask
Dim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNS
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(IP) 'ip地址
strSubnetMask = Array(NM) '子网掩码
strGateway = Array(GW) '网关
strDNS =