000
19.11.2004, 15:57 Uhr
sXene[WARE]
|
Hi!
Habt Ihr euch auch schonmal gefragt wie man die eigene IP im Netzwerk ändern kann?
Ja?
Und Ihr seid dadran leider verzweifelt?
Dann habich was für euch!
Das ist nämlich garnich mal so schwer.. Probierts mal damit:
| Visual Basic: |
Private Sub ChangeIP(ByVal sNewIP As String, _
Optional ByVal sSubNetMask As String = "255.255.255.0")
Dim sSQL As String
Dim oWMI As Object
Dim oResult As Object
Dim oCard As Object
Dim nStatus As Long
Set oWMI = GetObject("winmgmts:")
sSQL = "SELECT * FROM win32_NetworkAdapterConfiguration WHERE IPEnabled = true"
Set oResult = oWMI.execquery(sSQL)
' Menno, man kann doch nicht für jede NIC die
' gleiche IP einstellen!
' Deshalb muß hier etwas angepasst werden, wenn der betr. Computer
' mehrere Netzwerkkarten hat
For Each oCard In oResult
With oCard
If IsArray(.IPAddress) Then
nStatus = .EnableStatic(Array(sNewIP), Array(sSubNetMask))
End If
End With
Next
End Sub
|
Na? Klappts? 
--
sXene.de
 |
