maxvel
چهارشنبه 20 دی 1391, 21:00 عصر
سلام دوستان
من ميخوام آي پي سيستمو عوض كنم ولي مشكلي هست
Dim s As String = "Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"
Dim WMISearcher As System.Management.ManagementObjectSearcher = _
New ManagementObjectSearcher("SELECT * FROM " + s)
Dim para As ManagementBaseObject = Nothing
Dim iface As String = Nothing
For Each mo As ManagementObject In WMISearcher.Get
iface = mo("Caption").ToString()
If Not CBool(mo("DHCPEnabled")) AndAlso _
MessageBox.Show(String.Format("Für das Interface "" {0} "" DHCP aktivieren?", iface), "", _
MessageBoxButtons.YesNo) = DialogResult.Yes Then
mo.InvokeMethod("EnableDHCP", New Object() {})
End If
Next
'Catch ex As Exception
'End Try
End Sub
داره به Management مشكل ميگيره آيا بايد فايل خاصي اضافه كنم؟ لطفا راهنمايي كنيد
اگه هم روشي براي عوض كردن آي پي در نظر داريد به عنوان كد يا سورس كد بذاريد ممنون ميشم
من ميخوام آي پي سيستمو عوض كنم ولي مشكلي هست
Dim s As String = "Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"
Dim WMISearcher As System.Management.ManagementObjectSearcher = _
New ManagementObjectSearcher("SELECT * FROM " + s)
Dim para As ManagementBaseObject = Nothing
Dim iface As String = Nothing
For Each mo As ManagementObject In WMISearcher.Get
iface = mo("Caption").ToString()
If Not CBool(mo("DHCPEnabled")) AndAlso _
MessageBox.Show(String.Format("Für das Interface "" {0} "" DHCP aktivieren?", iface), "", _
MessageBoxButtons.YesNo) = DialogResult.Yes Then
mo.InvokeMethod("EnableDHCP", New Object() {})
End If
Next
'Catch ex As Exception
'End Try
End Sub
داره به Management مشكل ميگيره آيا بايد فايل خاصي اضافه كنم؟ لطفا راهنمايي كنيد
اگه هم روشي براي عوض كردن آي پي در نظر داريد به عنوان كد يا سورس كد بذاريد ممنون ميشم