Jump to content

_GetIPConfigData UDF

nfwu

By nfwu,
in AutoIt Example Scripts

 Share

Recommended Posts

nfwu Universalist

nfwu

Posted
Posted (edited) 

;===============================================================================
; _GetIPConfigData()
; Description:      : Gets all the IP related information about your computer
; Parameter(s):     : -
; Return Value(s):  : An array containing the folowing:
; $ret[0][0] = Host Name of Computer
; $ret[1 to *][0] = Type Of Adapter
; $ret[1 to *][1] = Name Of Adapter
; $ret[1 to *][2] = Adapter Description
; $ret[1 to *][3] = Physical Address of Adapter
; $ret[1 to *][4] = IP Address of Adapter
; $ret[1 to *][5] = Subnet Mask of IP Address of Adapter
; $ret[1 to *][6] = Default Gateway of Adapter
; $ret[1 to *][7] = Array of DNS servers this adapter uses
; Author(s):        : nfwu
; Note(s):          : Only works on a Windows machine
;
;===============================================================================
Func _GetIPConfigData()
    Local $ipconfig = Run(@ComSpec & " /c " & 'ipconfig /all', "", @SW_HIDE, 2)
    Local $data = "Start Of Data:"&@CRLF
    While 1
        $data &= StdoutRead($ipconfig)
        If @error = -1 Then ExitLoop
    WEnd
    $data = StringSplit($data, @CRLF)
    Local Const $adapter_no = 8
    Local $retval[1][$adapter_no]
    Local $curr_adapter = 0
    Local $tmp
    For $i = 1 to $data[0]
        If __GPA_EL($data[$i], "        Host Name . . . . . . . . . . . . : ") Then 
            $retval[0][0] = __GPA_GL($data[$i], "       Host Name . . . . . . . . . . . . : ")
        ElseIf StringInStr($data[$i]," adapter ") Then 
            $tmp = StringSplit($data[$i]," adapter ",1)
            $curr_adapter += 1
            ReDim $retval[$curr_adapter+1][$adapter_no]
            $retval[$curr_adapter][0] = $tmp[0]
            $retval[$curr_adapter][1] = $tmp[1]
        ElseIf __GPA_EL($data[$i], "        Description . . . . . . . . . . . : ") Then 
            $retval[$curr_adapter][2] = __GPA_GL($data[$i], "       Description . . . . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        Physical Address. . . . . . . . . : ") Then 
            $retval[$curr_adapter][3] = __GPA_GL($data[$i], "       Physical Address. . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        IP Address. . . . . . . . . . . . : ") Then 
            $retval[$curr_adapter][4] = __GPA_GL($data[$i], "       IP Address. . . . . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        Subnet Mask . . . . . . . . . . . : ") Then 
            $retval[$curr_adapter][5] = __GPA_GL($data[$i], "       Subnet Mask . . . . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        Default Gateway . . . . . . . . . : ") Then 
            $retval[$curr_adapter][6] = __GPA_GL($data[$i], "       Default Gateway . . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        DNS Servers . . . . . . . . . . . : ") Then 
            __GPA_StackPush($retval[$curr_adapter][7], __GPA_GL($data[$i], "        DNS Servers . . . . . . . . . . . : "))
        ElseIf __GPA_EL($data[$i], "                                            ") Then 
            __GPA_StackPush($retval[$curr_adapter][7], __GPA_GL($data[$i], "                                            "))
        EndIf
    Next
EndFunc 
Func __GPA_EL($data,$eqstr)
    Return StringLeft( $data, StringLen($eqstr)) == $eqstr
EndFunc
Func __GPA_GL($data,$eqstr)
    Return StringRight($data, Stringlen($data)-Stringlen($eqstr) )
EndFunc
Func __GPA_StackPush(ByRef $avArray, $sValue)
    IF IsArray( $avArray ) Then
        ReDim $avArray[Ubound($avArray)+1]
    Else
        Dim $avArray[1]
    EndIf
    $avArray[UBound($avArray)] = $sValue
    SetError(0)
    Return 1
EndFunc

#)

EDIT: Since every network card MUST have a unique Physical Address, you can use this to get a unique id of a computer!

EDIT 2: Click here to download:

mac_address.au3

Edited by nfwu
TwitterOut of date stuff:Scripts: Sudoku Solver | Webserver | 3D library (Pure AutoIt) | Wood's GadgetsUDFs: _WoodUniqueID() | _DialogEditIni() | _Console*() | _GetIPConfigData() | _URLEncode/Decode()
Link to comment
Share on other sites
w0uter Universalist

w0uter

Posted
Posted 

EDIT: Since every network card MUST have a unique Physical Address, you can use this to get a unique id of a computer!
you can [spoof / change] it by using [drivers / 3th party tools].

My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll

Link to comment
Share on other sites
  • 2 months later...
nfwu Universalist

nfwu

Posted
  • Author
Posted (edited)

Minor Correction due to a simple Syntax error I missed...

;===============================================================================
; _GetIPConfigData()
; Description:        : Gets all the IP related information about your computer
; Parameter(s):        : -
; Return Value(s):    : An array containing the folowing:
; $ret[0][0] = Host Name of Computer
; $ret[1 to *][0] = Type Of Adapter
; $ret[1 to *][1] = Name Of Adapter
; $ret[1 to *][2] = Adapter Description
; $ret[1 to *][3] = Physical Address of Adapter
; $ret[1 to *][4] = IP Address of Adapter
; $ret[1 to *][5] = Subnet Mask of IP Address of Adapter
; $ret[1 to *][6] = Default Gateway of Adapter
; $ret[1 to *][7] = Array of DNS servers this adapter uses
; Author(s):        : nfwu
; Note(s):            : Only works on a Windows machine
;
;===============================================================================
Func _GetIPConfigData()
    Local $ipconfig = Run(@ComSpec & " /c " & 'ipconfig /all', "", @SW_HIDE, 2)
    Local $data = "Start Of Data:"&@CRLF
    While 1
        $data &= StdoutRead($ipconfig)
        If @error = -1 Then ExitLoop
    WEnd
    $data = StringSplit($data, @CRLF)
    Local Const $adapter_no = 8
    Local $retval[1][$adapter_no]
    Local $curr_adapter = 0
    Local $tmp
    For $i = 1 to $data[0]
        If __GPA_EL($data[$i], "        Host Name . . . . . . . . . . . . : ") Then 
            $retval[0][0] = __GPA_GL($data[$i], "        Host Name . . . . . . . . . . . . : ")
        ElseIf StringInStr($data[$i]," adapter ") Then 
            $tmp = StringSplit($data[$i]," adapter ",1)
            $curr_adapter += 1
            ReDim $retval[$curr_adapter+1][$adapter_no]
            $retval[$curr_adapter][0] = $tmp[0]
            $retval[$curr_adapter][1] = $tmp[1]
        ElseIf __GPA_EL($data[$i], "        Description . . . . . . . . . . . : ") Then 
            $retval[$curr_adapter][2] = __GPA_GL($data[$i], "        Description . . . . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        Physical Address. . . . . . . . . : ") Then 
            $retval[$curr_adapter][3] = __GPA_GL($data[$i], "        Physical Address. . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        IP Address. . . . . . . . . . . . : ") Then 
            $retval[$curr_adapter][4] = __GPA_GL($data[$i], "        IP Address. . . . . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        Subnet Mask . . . . . . . . . . . : ") Then 
            $retval[$curr_adapter][5] = __GPA_GL($data[$i], "        Subnet Mask . . . . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        Default Gateway . . . . . . . . . : ") Then 
            $retval[$curr_adapter][6] = __GPA_GL($data[$i], "        Default Gateway . . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        DNS Servers . . . . . . . . . . . : ") Then 
            __GPA_StackPush($retval[$curr_adapter][7], __GPA_GL($data[$i], "        DNS Servers . . . . . . . . . . . : "))
        ElseIf __GPA_EL($data[$i], "                                            ") Then 
            __GPA_StackPush($retval[$curr_adapter][7], __GPA_GL($data[$i], "                                            "))
        EndIf
    Next
EndFunc

Func __GPA_EL($data,$eqstr)
    Return StringLeft( $data, StringLen($eqstr)) == $eqstr
EndFunc
Func __GPA_GL($data,$eqstr)
    Return StringRight($data, Stringlen($data)-Stringlen($eqstr) )
EndFunc
Func __GPA_StackPush(ByRef $avArray, $sValue)
    IF IsArray( $avArray ) Then
        ReDim $avArray[Ubound($avArray)+1]
    Else
        Dim $avArray[1]
    EndIf
    $avArray[UBound($avArray)] = $sValue
    SetError(0)
    Return 1
EndFunc

#)

Edited by nfwu
TwitterOut of date stuff:Scripts: Sudoku Solver | Webserver | 3D library (Pure AutoIt) | Wood's GadgetsUDFs: _WoodUniqueID() | _DialogEditIni() | _Console*() | _GetIPConfigData() | _URLEncode/Decode()
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...