code:

---

$=execute("$$value = $$objInstance.$what")

---

quote:

---

IPAddress
Data type: string array
Access type: Read-only

Array of all of the IP addresses associated with the current network adapter.

Example: "155.34.22.0"

---

code:

---

FUNCTION WMIQuery2($what,$from,optional $computer,optional $where, optional $x)
   dim $strQuery, $objEnumerator, $value
   if not $computer   $computer="@WKSTA"   endif
   $strQuery = "Select $what From $from"
   if $where and $x   $strQuery = $strQuery + " Where $where = '$x'"      endif
   $SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//$computer")
   if @error        exit 1      return            endif
   $objEnumerator = $SystemSet.ExecQuery($strQuery)
   For Each $objInstance in $objEnumerator
      If @Error = 0 and $objInstance <> ""
         $=execute("$$value = $$objInstance.$what")
         Select
            case VarType($value) = 8204
               for each $x in $value
                  $WMIQuery2="$x"+"|"+"$WMIQuery2"
               next
            case VarType($value) = 8
               $WMIQuery2="$value"+"|"+"$WMIQuery2"
            case 1
               $WMIQuery2 = "Unhandled data type returned: " + VarTypeName($value) +
                            "(" + VarType($value) + ")"
         EndSelect
      Endif
   Next
   $WMIQuery2=left($WMIQuery2,len($WMIQuery2)-1)
   exit @error
ENDFUNCTION

---

code:

---

$ip=wmiquery2("IPAddress",	"Win32_NetworkAdapterConfiguration",@wksta,"IPEnabled","True")
$sn=wmiquery2("IPSubnet",	"Win32_NetworkAdapterConfiguration",@wksta,"IPEnabled","True")
$gw=wmiquery2("DefaultIPGateway","Win32_NetworkAdapterConfiguration",@wksta,"IPEnabled","True")
$ma=wmiquery2("MACAddress",	"Win32_NetworkAdapterConfiguration",@wksta,"IPEnabled","True")

? $ip
? $sn
? $gw
? $ma

---

code:

---

shell 'rasphone.exe -h "Name of Dial-up Connection"'

---