Søg
Avatar billede systemnissen Nybegynder
16. december 2003 - 09:28 Der er 4 kommentarer og
2 løsninger

Find egen/lokal IP adresse og subnetmaske

Hejsa

Her er en lidt underlig forespørgsel. Jeg kører et script hvori jeg skal bruge maskinens egen ip og subnetmaske. Jeg har ikke mulighed for at køre WMI, så det skal gerne være i "rent script". Har I nogen ideer til hvordan jeg henter disse to værdier ind i hver sin variabel?

På forhånd tak!
Avatar billede medions Nybegynder
16. december 2003 - 10:54 #1
Dim WS
Set WS = CreateObject("MSWinsock.Winsock")
    IPAddress = WS.LocalIP

MsgBox "Local IP = " & IPAddress

//>Rune
Avatar billede systemnissen Nybegynder
16. december 2003 - 11:50 #2
Hej Rune - du skulle vel evt. ikke også have løsningen til at få fat i subnetmasken?
Avatar billede medions Nybegynder
16. december 2003 - 12:20 #3
Hmm prøv lige med flg.:

Set NIC1 = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")


For Each Nic in NIC1

IF Nic.IPEnabled THEN
lngCount=UBound(Nic.IPAddress)
For i=0 to lngCount
If i >= 0 Then
  strIP = vbTab & Nic.IPAddress(i)

For j = 0 to UBound(Nic.IPSubnet)
  strSubnet=Nic.IPSubnet(j)
Next


End If
Next
END IF
Next

MsgBox(strSubnet)
MsgBox(strIP)

//>Rune
Avatar billede systemnissen Nybegynder
16. december 2003 - 13:25 #4
Hej Rune

Det spiller desværre ikke i mit WinPE miljø. Linien:

GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

den lugter da lidt af WMI gør den ikke? ;-) Det har jeg desværre ikke mulighed for at afvikle. :-(

Virker ellers fint på en "normal" maskine.
Avatar billede systemnissen Nybegynder
17. december 2003 - 18:37 #5
Så har jeg fundet løsningen. Rune du får halvdelen af point da du leverede halvdelen af løsningen :-)
Avatar billede medions Nybegynder
17. december 2003 - 20:33 #6
Venligst del resten af løsningen her på eksperten så andre kan gøre brug af det oxo...

Thx 4 Poinz

//>Rune
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Outlook makro Af Webnoob i VBscript 6 09/02/202313:32 16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
Batch fil Af BDV i VBscript 1 12/01/202210:00 12/01/202210:05
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 10:29 Negativ billeder på samsung Af ALICE i Småopgaver
15/0115:45 HJÆLP - Lopslag, Indeks? Hvad gør jeg! Af Eva i Excel
14/0119:38 Webmail yousee Af nu_igen i E-mail programmer
14/0113:00 Blå pile på foto? Af hkprofil i Office & Kontorpakker
13/0123:48 Tekst til Dato Af nyhavn18 i Excel
White papers
Flere white papers »