mac adress / Text file

[CristianoIT]

Dear All ,

i need your help to complete my project, i want script to check if if this mac address ( 00:65:v7:p0:3d:90) present in this computer and then the script will proceed the command:

in case true:

IniWrite("C:\Clients.text", "Summary", "Files", "yes")

in case false:

IniWrite("C:\Clients.text", "Summary", "Files", "no")

my idea was to find all the mac address then compare it with this 00:65:v7:p0:3d:90 then one of the above command will proceed, but i didnot succeed to find the right script, because of that i asking your help.

thanks guys.

[Subz]

So do you need help finding the mac address, can you show us your code?

[FrancescoDiMuro]

Good morning @CristianoIT, and welcome to the AutoIt forum
I think you're italian, but I have to write in English, in order to let other people understand what we're writing
I want to help you, but I need you to help yourself! 
So, I won't give you the code on how to do it, but I want you to understand what to do, and do it
So, in AutoIt, there are no macros to take directly the MAC Address of your PC...
But, you could use WMI Object to take the MAC Address of your PC.
Take a look at this little hint
Feel free to ask ( and use the Code tag if needed ).

Best Regards.

[careca]

Did you ever come across "getmac"?

This should send you on your way:

#include <AutoItConstants.au3>
$DSK = Run("getmac", '', '', $STDIN_CHILD + $STDOUT_CHILD)
$begin = TimerInit()
$dif = TimerDiff($begin)
Do
    Sleep(100)
    $Read = StdoutRead($DSK, False, False)
    $Str = StringInStr($Read, 'Physical Address')
    If $dif >= 1000 Then
        MsgBox(64, 'Error', 'Timeout')
        ExitLoop
    EndIf
    $dif = TimerDiff($begin)
Until $Str <> 0
;MsgBox(64, 'Result', $Read)
$ReadTr = StringTrimLeft(StringStripWS($Read, 8), 105)
$Split = StringSplit($ReadTr, '\Device', 1)
;MsgBox(64, 'Count', $Split[0])
For $s = 1 To $Split[0]
    If $s <> $Split[0] Then
    MsgBox(64, '', $Split[$s])
    EndIf
Next

Note that i only got one MAC address (only one network adapter), so i couldn't adapt the code for multiple, but maybe you can.

Edited June 28, 2018 by careca

[CristianoIT]

thanks Francesco & Subs for your quick response, i didn't expect that.
actually i am not a programer so for me it is a little bit difficult to write the code or script, because of that i write you guys here, i am not sure if i am will recieve a help 100% because this is just for programer but it will be so nicce if you help me.

going back to my project i found this code it give all the available mac address because for sure normally it will be more than one:

#include <Array.au3>
$b = _GetMACAddress()
_ArrayDisplay($B)

Func _GetMACAddress()
    local $sText, $iPID
    $iPID = Run(@ComSpec & " /c ipconfig /all", '', @SW_HIDE, 6)
    While 1
        $sText &= StdoutRead($iPID)
        If @error Then ExitLoop
    WEnd
    Return StringRegExp($sText, "(?s)(?i)([\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2})", 3)
EndFunc

this code will give a list in all the available macs in at the computer, but how can i compare this list with my mac adress (00:65:v7:p0:3d:90) then how to make make my next command work in case fals & truth? this is the point that i dont know because i am not a programer.

in case true:

IniWrite("C:\Clients.text", "Summary", "Files", "yes")find_mac.au3

in case false:

IniWrite("C:\Clients.text", "Summary", "Files", "no")

 

i hope you could help me in this.

 

[Subz]

Untested but try the following, you could also do it by looping through the array but using _ArraySearch should suffice,

#include <Array.au3>

Local $sClientFile = EnvGet("SystemDrive") & "\Clients.ini" ;~ Sets the Client Ini Filename to %SystemDrive%\Clients.ini

Local $sMacAddress = "00:65:v7:p0:3d:90" ;~ Search for this MacAddress

;~ Get an Array of all MacAddresses on the system
Local $aMacAddresses = _GetMACAddress()
Local $iSearch = _ArraySearch($aMacAddresses, $sMacAddress) ;~ Search for $sMacAddress above within the MacAddress Array
    If $iSearch = -1 Then
        MsgBox(4096, "Mac Address", "Error: Mac Address : " & $sMacAddress & " was not found.") ;~ Mac Address was not found
        IniWrite($sClientFile, "Summary", "Files", "Yes")
    Else
        MsgBox(4096, "Mac Address", "Success: Mac Addresss : " & $sMacAddress & " was found.") ;~ Mac Address was found
        IniWrite($sClientFile, "Summary", "Files", "No")
    EndIf


Func _GetMACAddress()
    local $sText, $iPID
    $iPID = Run(@ComSpec & " /c ipconfig /all", '', @SW_HIDE, 6)
    While 1
        $sText &= StdoutRead($iPID)
        If @error Then ExitLoop
    WEnd
    Return StringRegExp($sText, "(?s)(?i)([\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2})", 3)
EndFunc

 

[careca]

Only enabled MAC's show, with my code. But have it your way.

 

[CristianoIT]

32 minutes ago, Subz said:

Untested but try the following, you could also do it by looping through the array but using _ArraySearch should suffice,

#include <Array.au3>

Local $sClientFile = EnvGet("SystemDrive") & "\Clients.ini" ;~ Sets the Client Ini Filename to %SystemDrive%\Clients.ini

Local $sMacAddress = "00:65:v7:p0:3d:90" ;~ Search for this MacAddress

;~ Get an Array of all MacAddresses on the system
Local $aMacAddresses = _GetMACAddress()
Local $iSearch = _ArraySearch($aMacAddresses, $sMacAddress) ;~ Search for $sMacAddress above within the MacAddress Array
    If $iSearch = -1 Then
        MsgBox(4096, "Mac Address", "Error: Mac Address : " & $sMacAddress & " was not found.") ;~ Mac Address was not found
        IniWrite($sClientFile, "Summary", "Files", "Yes")
    Else
        MsgBox(4096, "Mac Address", "Success: Mac Addresss : " & $sMacAddress & " was found.") ;~ Mac Address was found
        IniWrite($sClientFile, "Summary", "Files", "No")
    EndIf


Func _GetMACAddress()
    local $sText, $iPID
    $iPID = Run(@ComSpec & " /c ipconfig /all", '', @SW_HIDE, 6)
    While 1
        $sText &= StdoutRead($iPID)
        If @error Then ExitLoop
    WEnd
    Return StringRegExp($sText, "(?s)(?i)([\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2})", 3)
EndFunc

 

thaaaaanks a lot!

it works perfectly but i have to write my mack address like this 00-50-B6-80-3D-6A )

i test it on win 10

[Earthshine]

edit. sorry, coffee (c) not kicked in when I posted this backward post. 

Edited June 28, 2018 by Earthshine

[Subz]

Sorry not very good with regular expression, you could just use something like below, and just change the text within the replace field:

Local $sMacAddress = StringReplace("00:65:v7:p0:3d:90", ":", "-")

Alternatively if you wanted to use this as a tool you could use the following code, which will allow you to enter the mac addresses from the command line i.e.

Compile the script as MacAddress.exe

You can now use:

MacAddress.exe 00:65:v7:p0:3d:90

Or

MacAddress.exe 00-65-v7-p0-3d-90

#include <Array.au3>

Local $sMacAddress = StringReplace("00:65:v7:p0:3d:90", ":", "-") ;~ Search for this MacAddress

If $CmdLine[0] Then $sMacAddress = $CmdLine[1]

Local $sClientFile = EnvGet("SystemDrive") & "\Clients.ini" ;~ Sets the Client Ini Filename to %SystemDrive%\Clients.ini

;~ Get an Array of all MacAddresses on the system
Local $aMacAddresses = _GetMACAddress()

Local $iSearch = _ArraySearch($aMacAddresses, $sMacAddress) ;~ Search for $sMacAddress above within the MacAddress Array
    If $iSearch = -1 Then
        MsgBox(4096, "Mac Address", "Error: Mac Address : " & $sMacAddress & " was not found.") ;~ Mac Address was not found
        IniWrite($sClientFile, "Summary", "Files", "Yes")
    Else
        MsgBox(4096, "Mac Address", "Success: Mac Addresss : " & $sMacAddress & " was found.") ;~ Mac Address was found
        IniWrite($sClientFile, "Summary", "Files", "No")
    EndIf

Func _GetMACAddress()
    local $sText, $iPID
    $iPID = Run(@ComSpec & " /c ipconfig /all", '', @SW_HIDE, 6)
    While 1
        $sText &= StdoutRead($iPID)
        If @error Then ExitLoop
    WEnd
    Return StringRegExp($sText, "(?s)(?i)([\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2})", 3)
EndFunc

 

Edited June 28, 2018 by Subz
Sorry forgot to change StringRegExp

[CristianoIT]

21 minutes ago, Subz said:

Sorry not very good with regular expression, you could just use something like below, and just change the text within the replace field:

Local $sMacAddress = StringReplace("00:65:v7:p0:3d:90", ":", "-")

Alternatively if you wanted to use this as a tool you could use the following code, which will allow you to enter the mac addresses from the command line i.e.

Compile the script as MacAddress.exe

You can now use:

MacAddress.exe 00:65:v7:p0:3d:90

Or

MacAddress.exe 00-65-v7-p0-3d-90

#include <Array.au3>

Local $sMacAddress = StringReplace("00:65:v7:p0:3d:90", ":", "-") ;~ Search for this MacAddress

If $CmdLine[0] Then $sMacAddress = $CmdLine[1]

Local $sClientFile = EnvGet("SystemDrive") & "\Clients.ini" ;~ Sets the Client Ini Filename to %SystemDrive%\Clients.ini

;~ Get an Array of all MacAddresses on the system
Local $aMacAddresses = _GetMACAddress()

Local $iSearch = _ArraySearch($aMacAddresses, $sMacAddress) ;~ Search for $sMacAddress above within the MacAddress Array
    If $iSearch = -1 Then
        MsgBox(4096, "Mac Address", "Error: Mac Address : " & $sMacAddress & " was not found.") ;~ Mac Address was not found
        IniWrite($sClientFile, "Summary", "Files", "Yes")
    Else
        MsgBox(4096, "Mac Address", "Success: Mac Addresss : " & $sMacAddress & " was found.") ;~ Mac Address was found
        IniWrite($sClientFile, "Summary", "Files", "No")
    EndIf

Func _GetMACAddress()
    local $sText, $iPID
    $iPID = Run(@ComSpec & " /c ipconfig /all", '', @SW_HIDE, 6)
    While 1
        $sText &= StdoutRead($iPID)
        If @error Then ExitLoop
    WEnd
    Return StringRegExp($sText, "(?s)(?i)([\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2}\-[\w|\d]{2})", 3)
EndFunc

 

thanks now it works with all symbols.