coolity

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

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?