aanpassen IPstring

[Richie63]

Hallo daar,

Ik ben nieuw in het programmeren met vb, vandaar dat ik graag hulp wil bij het volgende.

Ik heb het ipadres van netwerkadapter1 in een string, nu wil ik de punten in deze string vervangen door een _ om deze te gebruiken als extra parameter in een run functie.

Wie weet raad?

bij voorbaat hartelijk dank Richie:thumb:

 

[The Mighty Atom]

        Dim StrRep As String = TextBox1.Text.Replace(".", "_")
        TextBox1.Text = StrRep

Dit is wat je moet hebben.

 

[Richie63]

        Dim StrRep As String = TextBox1.Text.Replace(".", "_")
        TextBox1.Text = StrRep

Dit is wat je moet hebben.

Heeey daar ga ik morgen meteen mee aan de slag, mijn hartelijke dank :thumb:

 

[Richie63]

        Dim StrRep As String = TextBox1.Text.Replace(".", "_")
        TextBox1.Text = StrRep

Dit is wat je moet hebben.

Ik krijg error dat er een einde van de regel wordt verwacht, hieronder mijn scriptje, wat staat er nu fout, en is dit de goede aanpak? Ik gebruik nu even notepad.exe om de parameters te testen. Maar de bedoeling is dat er een parameter komt met daarin de computernaam gevolgd door het IPaddress waarbij de quads gescheiden worden door _ ipv .

' List Hostname and IP address

strComputer = "."

Set sh = CreateObject("WScript.Shell")

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objAdapter in colAdapters
WScript.Echo " Host name: " & objAdapter.DNSHostName

If Not IsNull(objAdapter.IPAddress) Then
For i = 0 To UBound(objAdapter.IPAddress)
WScript.Echo " IP address: " & objAdapter.IPAddress(i)
strIPaddress = objAdapter.IPAddress(i)

Dim StrRep As String = strIPaddress.Text.Replace(".", "_")
strIPaddress.Text = StrRep
sh.Run "notepad.exe " & strIPaddress & StrRep
Next
End If

Next

Ik begrijp net dat Dim as string niet werkt in VBScript, dus zal iets anders moeten verzinnen. Begrijp nu ook dat deze vraag in de verkeerde topic staat. Sorry, maar wellicht weet iemand toch een oplossing met VBScript?

 

[That Guy]

ja. In vbs heb je geen type variabele, daarin dim je alles zo:

dim eenstring
dim i
dim bla

en, replace werkt zo:

dim bbq
dim jeIP

jeIP = "123.456.678.90"

bbq = replace(jeIP,".","_")

 

[Richie63]

ja. In vbs heb je geen type variabele, daarin dim je alles zo:

dim eenstring
dim i
dim bla

en, replace werkt zo:

dim bbq
dim jeIP

jeIP = "123.456.678.90"

bbq = replace(jeIP,".","_")

Dank je wel dit is wat ik nodig had, het werkt nu.
:thumb: