如何使用這些代碼更改IP地址？

我使用此代碼來更改IP地址，子網掩碼和默認網關，但它似乎只有默認網關更改，IP地址和子網掩碼doesnt。你能幫我麼？我使用Windows 7如何使用這些代碼更改IP地址？

Dim IPAddress As String = "192.168.2.130" 
Dim SubnetMask As String = "255.0.0.0" 
Dim Gateway As String = "192.168.2.1" 
Dim objMC As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration") 
Dim objMOC As ManagementObjectCollection = objMC.GetInstances() 

For Each objMO As ManagementObject In objMOC 
    If (Not CBool(objMO("IPEnabled"))) Then 
     Continue For 
    End If 

    Try 
     Dim objNewIP As ManagementBaseObject = Nothing 
     Dim objSetIP As ManagementBaseObject = Nothing 
     Dim objNewGate As ManagementBaseObject = Nothing 
     objNewIP = objMO.GetMethodParameters("EnableStatic") 
     objNewGate = objMO.GetMethodParameters("SetGateways") 

     'Set DefaultGateway 
     objNewGate("DefaultIPGateway") = New String() {Gateway} 
     objNewGate("GatewayCostMetric") = New Integer() {1} 

     'Set IPAddress and Subnet Mask 
     objNewIP("IPAddress") = New String() {IPAddress} 
     objNewIP("SubnetMask") = New String() {SubnetMask} 
     objSetIP = objMO.InvokeMethod("EnableStatic", objNewIP, Nothing) 
     objSetIP = objMO.InvokeMethod("SetGateways", objNewGate, Nothing) 

     MessageBox.Show("Updated IPAddress, SubnetMask and Default Gateway!") 
    Catch ex As Exception 
     MessageBox.Show("Unable to Set IP : " & ex.Message) 
    End Try 
Next objMO

來源

2013-04-21 Genalyn Hernandez

右擊斌你的exe，以管理員身份運行，因爲更改IP地址需要管理員權限，並在Windows 7中有這樣的權利，你必須運行作爲管理員。

來源

2013-04-21 02:40:21 Edper

這將是更好的評論。如果你想讓它成爲答案，如果你解釋爲什麼以管理員身份運行exe可以解決問題，這將是一個**更好的**答案。 – Tim 2013-04-21 02:45:02

謝謝@Tim。我正在使用我的iPad進行應答，這意味着我可以寫的字符數量越少越好。我正根據你的要求編輯我的答案。再次感謝。 – Edper 2013-04-21 03:02:51

沒問題。感謝您編輯並在答案中添加更多內容。我只是那些總是想知道事情原因的人之一......我敢肯定，當我還是個孩子的時候，我的父母開始瘋狂:)另外，OP以外的人在將來可能需要這個答案，有更多的細節幾乎總是有幫助的。 – Tim 2013-04-21 03:06:16

如何使用這些代碼更改IP地址？

回答

相關問題