Jump to content
Sign in to follow this  
coolity

Subnet Mask auslesen mit vbs

Recommended Posts

Hallo Zusammen,

 

ich hab ein vbs script das mir alles aktivierten IP Addressen ausliest. Ich benötige aber auch noch die Subnetz Maske das Default Gateway und eventuell noch die MAC Addresse.

 

Hier das Script:

 

public ip

public mask

 

function GetAllIP

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _

("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each IPConfig in IPConfigSet

If Not IsNull(IPConfig.IPAddress) Then

For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)

ip = ip & IPConfig.IPAddress(i) & VbCrLf

Next

End If

Next

GetAllIP= ip

end function

 

 

function GetAllMask

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _

("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each IPConfig in IPConfigSet

If Not IsNull(IPConfig.IPAddress) Then

For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)

mask = mask & IPConfig.SubnetMask(i) & VbCrLf

Next

End If

Next

GetAllMask= mask

end function

 

/Script

 

Ich kann zwar die IP Adressen auslesen aber bei der Subnet Mask bekomme ich immer folgenden fehler: Das Object unterstützt diese Eigenschaft oder Methode nicht.: 'IPConfig.SubnetMask' In Allip.vbs(GetAllMask) Line 28, column 12.

 

kann mir irgend jemand hierbei helfen?

Share this post


Link to post

Hi,

schreib vor line 28 mal ein

on error resume next

und danach ein

on error goto 0

 

Die auftretenden Fehler musst du dann z.B. mit

if err.number <> 0 then

..

end if

 

abfangen

 

cu

blub

Share this post


Link to post

hy,

 

damit umgehe ich ja aber das eigentliche problem. Oder nicht ?

 

Ist der QuellCode eigentlich soweit inordnung?

 

Weist du ob es das Object SubnetMask gibt in dieser class?

 

grüße

Share this post


Link to post
hy,

 

damit umgehe ich ja aber das eigentliche problem. Oder nicht ?

 

Ist der QuellCode eigentlich soweit inordnung?

 

Weist du ob es das Object SubnetMask gibt in dieser class?

 

grüße

 

 

Hi,

 

installier die das CIM Studio, dann kannst du die Klassen browsen.

 

WMI Tools

 

Alternativ sind auch die nicht schlecht:

 

Scriptomatic

WMI Code Creator

 

Aber um die Antwort kurz zu machen, nein das Objekt SubnetMask gibt es nicht, dafür aber IPSubnet.

 

Gruß

 

woiza

Share this post


Link to post

ohh, dass die Properties stimmen, davon bin ich ausgegangen.

Ich dachte der Fehler kommt daher, weil nicht alle NICs aktiv sind

 

cu

blub

Share this post


Link to post
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte überlege Dir, ob es nicht sinnvoller ist ein neues Thema zu erstellen.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...