Beiträge von FISO

[autoit]

;====================================================================================================================
; Name : _NicControl
; Description : Activate or deactivate a Network Interface Controler (NIC)
; Syntax : _NicControl($oLanConnection, [$iFlag, , [$iFullName]])
; Parameter(s) : $oLanConnection - The name of the Lan connection.
; If equal to 'All' then change state of all NIC.
; $iFlag - The state of the NIC (Default 1 for activate).
; $iFullName - Look for string $oLanConnection in NIC name (Default 1 for full name).
; Requirement(s) : Win32_NT OS
; Return value(s) : On Success - Return 1
; On Failure - Return 0 and @Extented is set.
; @Extented = 1 : Not Win32_NT OS
; @Extented = 2 : Network folder not find.
; @Extented = 3 : Lan connection not find.
; Author : Tlem <tlem at tuxolem dot net>
; http://www.autoitscript.fr/forum/viewtopic.php?f=21&t=1092
; Note(s) :
;
; To Do : Get individual errors for changing state of multiple NIC (Perhaps with array).
; ===================================================================================================================

[/autoit] [autoit][/autoit] [autoit]

#RequireAdmin
Global $strEnableVerb
Global $strDisableVerb
Global $strFolderName

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; ===================================================================================================================
; ===================================================================================================================
; Exemple :
; $Res = _NICContol('all', 1, 0)
; MsgBox(0, "", "$Res=" & $Res & " @Error=" & @error & " @extented=" & @extended)
; ===================================================================================================================
; ===================================================================================================================

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _NICContol($oLanConnection, $iFlag = 1, $iFullName = 1)
; Control OS type.
If @OSTYPE <> "WIN32_NT" Then
SetError(1, 1)
Return 0
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Langage selection.
Select
; English (United States)
Case StringInStr("0409,0809,0c09,1009,1409,1809,1c09,2009,2409,2809,2c09,3009,3409", @OSLang)
$strEnableVerb = "En&able"
$strDisableVerb = "Disa&ble"
If @OSVersion = "WIN_2000" Then
$strFolderName = "Network and Dial-up Connections" ; Windows 2000
Else
$strFolderName = "Network Connections"; Windows XP
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Français (France)
Case StringInStr("040c,080c,0c0c,100c,140c,180c", @OSLang)
$strEnableVerb = "&Activer"
$strDisableVerb = "&Désactiver"
If @OSVersion = "WIN_2000" Then
$strFolderName = "Connexions réseau et accès à distance" ; Windows 2000
Else
$strFolderName = "Connexions réseau"; Windows XP
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Add here the correct Verbs for your Operating System Language
EndSelect

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; Vista/W2K8
If @OSVersion <> "WIN_2000" And @OSVersion <> "WIN_XP" And @OSVersion <> "WIN_2003" Then
$Res = _NICContolWin32New($oLanConnection, $iFlag, $iFullName)
Else
; W2K/XP/W2K3
$Res = _NICContolWin32($oLanConnection, $iFlag, $iFullName)
EndIf

SetError(@error, @extended)
Return $Res

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_NICContol

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _NICContolWin32($oLanConnection, $iFlag = 1, $iFullName = 1)
; Inspired from :
; Original author : SvenP
; http://www.autoitscript.com/forum/index.ph…indpost&p=87000
$ShellApp = ObjCreate("Shell.Application")
$oControlPanel = $ShellApp.Namespace(3)

[/autoit] [autoit][/autoit] [autoit]

; Find 'Network connections' control panel item
$oNetConnections = ""
For $FolderItem In $oControlPanel.Items
If $FolderItem.Name = $strFolderName Then
$oNetConnections = $FolderItem.GetFolder
ExitLoop
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

; If no 'Network connections' folder then return error.
If Not IsObj($oNetConnections) Then
SetError(1, 2)
Return 0
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Change all NIC state (Do not return extented errors).
If StringLower($oLanConnection) = "all" Then
For $FolderItem In $oNetConnections.Items
_NICContolWin32($FolderItem.name, $iFlag)
Next
Return 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Change NIC state by partial name (Do not return extented errors).
If $iFullName = 0 Then
For $FolderItem In $oNetConnections.Items
If StringInStr(StringLower($FolderItem.name), StringLower($oLanConnection)) Then
_NICContolWin32($FolderItem, $iFlag)
EndIf
Next
Return 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Find the collection of the network connection name.
For $FolderItem In $oNetConnections.Items
If StringLower($FolderItem.Name) = StringLower($oLanConnection) Then
$oLanConnection = $FolderItem
ExitLoop
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

; If no network connection name then return error.
If Not IsObj($oLanConnection) Then
SetError(1, 3)
Return 0
EndIf

[/autoit] [autoit][/autoit] [autoit]

$oEnableVerb = ""
$oDisableVerb = ""

[/autoit] [autoit][/autoit] [autoit]

; Find the state of the network connection.
For $Verb In $oLanConnection.Verbs
If $Verb.Name = $strEnableVerb Then
$oEnableVerb = $Verb
$State = 0
EndIf
If $Verb.Name = $strDisableVerb Then
$oDisableVerb = $Verb
$State = 1
EndIf
Next

If $iFlag = 3 Then Return $State

[/autoit] [autoit][/autoit] [autoit]

; Enable NIC
If $iFlag Then
If IsObj($oEnableVerb) Then $oEnableVerb.DoIt
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Disable NIC
If Not $iFlag Then
If IsObj($oDisableVerb) Then $oDisableVerb.DoIt
EndIf

[/autoit] [autoit][/autoit] [autoit]

$begin = TimerInit()
While 1
$dif = Int(TimerDiff($begin) / 1000)
If $dif > 10 Then ExitLoop
; Control the state of the NIC to exit before the end of waiting time.
If $iFlag = 1 And _NICContolWin32($oLanConnection, 3) = 1 Then ExitLoop
If $iFlag = 0 And _NICContolWin32($oLanConnection, 3) = 0 Then ExitLoop
Sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

; Set the return value of the function.
$Res = _NICContolWin32($oLanConnection, 3)
If $iFlag = 1 And $Res = 0 Then
Return 0
ElseIf $iFlag = 0 And $Res = 1 Then
Return 0
Else
Return 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_NICContolWin32

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _NICContolWin32New($oLanConnection, $iFlag = 1, $iFullName = 1)
; Inspired from :
; Original author : Danny35d
; http://www.autoitscript.com/forum/index.ph…ndpost&p=528862
$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", 0x30)
If IsObj($colItems) Then
$iModState = 0

[/autoit] [autoit][/autoit] [autoit]

; Activate All NIC (Return just 1 if function end correctly).
If StringLower($oLanConnection) = "all" Then
For $objItem In $colItems
If $objItem.NetConnectionID <> '' Then
_NICContolWin32New($objItem.NetConnectionID, $iFlag)
EndIf
Next
Return 1
EndIf

; Change NIC state by partial name (Return just 1 if function end correctly or if no connection was find).
If $iFullName = 0 Then
For $objItem In $colItems
If StringInStr(StringLower($objItem.NetConnectionID), StringLower($oLanConnection)) Then
$iModState = 1
$Res = _NICContolWin32New($objItem.NetConnectionID, $iFlag)
EndIf
Next
; If no connection find.
If $iModState = 0 Then
SetError(1,3)
Return 0
Else
Return 1
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Change NIC state of $oLanConnection
For $objItem In $colItems
If $objItem.NetConnectionID = $oLanConnection Then
; Check State.
If $iFlag = 3 Then
If $objItem.NetEnabled = True Then
Return 1
Else
Return 0
EndIf
Else
; Change State.
If $iFlag = 0 And $objItem.NetEnabled = True Then
$objItem.Disable
ElseIf $iFlag = 1 And $objItem.NetEnabled = False Then
$objItem.Enable
EndIf
$iModState = 1
EndIf
ExitLoop
EndIf
Next
; If no connection then error.
If $iModState = 0 Then
SetError(1, 3)
Return 0
EndIf
Else
SetError(1, 2)
Return 0
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $iFlag = 3 Then
While $iFlag <> _NICContolWin32New($oLanConnection, 3)
Sleep(250)
WEnd
Else
Sleep(1000)
If $iFlag = 1 And _NICContolWin32New($oLanConnection, 3) = 1 Then
Return 1
ElseIf $iFlag = 0 And _NICContolWin32New($oLanConnection, 3) = 0 Then
Return 1
Else
Return 0
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_NICContolWin32New

[/autoit]

[autoit]

#NoTrayIcon
#RequireAdmin

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $OSver = @OSVersion
Global $strEnable = "En&able"
Global $strDisable = "Disa&ble"
Global $colNetwork = ""

[/autoit] [autoit][/autoit] [autoit]

Dim $NicsFound[1][1]
Dim $IconFile[2]

[/autoit] [autoit][/autoit] [autoit]

If $OSver = "WIN_VISTA" Then
$IconFile[0] = 'netcenter.dll'
$IconFile[1] = 8
Else
$IconFile[0] = 'shell32.dll'
$IconFile[1] = 19
EndIf

[/autoit] [autoit][/autoit] [autoit]

Main()

[/autoit] [autoit][/autoit] [autoit]

Func Main()
;starts the creation of the gui
Global $hGUI = GUICreate("MAC Address Changer", 320, 190)
GUISetIcon($IconFile[0], $IconFile[1])
$helpmenu = GUICtrlCreateMenu("Help")
$aboutitem = GUICtrlCreateMenuItem("About", $helpmenu)
$exititem = GUICtrlCreateMenuItem("Exit", $helpmenu)

[/autoit] [autoit][/autoit] [autoit]

If @OSType <> "WIN32_NT" Then
Msgbox(0,"Error","This script requires Windows 2000 or higher.",0,$hGUI)
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

If IsAdmin() = 0 Then
Msgbox(0,"Error","This script requires Administrative priviledges.",0,$hGUI)
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

_GetNetConNames(_NetConsFolderObject())

[/autoit] [autoit][/autoit] [autoit]

;If the user has more that 10 pshyical devices I don't even want to handle that
If UBound($NicsFound, 1) - 1 > 10 Then
MsgBox (0,"Error", "Too many Devices Find a New Program",0,$hGUI)
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

$WinLocation = WinGetPOS($hGUI)
WinMove($hGUI, "", $WinLocation[0], $WinLocation[1], 320, UBound($NicsFound,1) * 30 + 190, 1)

[/autoit] [autoit][/autoit] [autoit]

$i2 = 10
Dim $radio[UBound($NicsFound, 1)]
For $i = 0 To UBound($NicsFound, 1) - 1
$radio[$i] = GUICtrlCreateRadio($i + 1 & ". " & $NicsFound[$i][0], 10, $i2)
$i2 += 30
Next

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateLabel("Enter new MAC Address for adapter in HEX. Example: 010203040506", 10, $i2 + 20, 250, 30)
$newMAC = GUICtrlCreateInput("", 10, $i2 + 50, 150, 20)
GUICtrlSetBkColor(-1, 0xC0DCC0)
$toggle = GUICtrlCreateCheckbox("", 10, $i2 + 80, 15, 15)
GUICtrlSetState($toggle, $GUI_CHECKED)
GUICtrlCreateLabel("Auto Disable/Enable NIC", 30, $i2 + 80, 150, 30)
$ok = GUICtrlCreateButton("OK", 10, $i2 + 100, 75, 25)
$revertOld = GUICtrlCreateButton("Remove", 100, $i2 + 100, 75, 25)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

;infinite loop to get user input on the GUI
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $aboutitem
MsgBox(0, "About", "Written By Andrew W to spoof the MAC Addresses" & @CRLF & @CRLF & _
"If you have already put in an address and you want to revert back to your original" & _
" then just use the remove button.",0,$hGUI)
Case $msg = $exititem
Exit
Case $msg = $ok
$ok = 1 ;determiner to see if the ok button was actually pressed
ExitLoop
Case $msg = $revertOld
$revertOld = 1 ;determiner to see if the ok button was actually pressed
ExitLoop
EndSelect

[/autoit] [autoit][/autoit] [autoit]

;used to display mac for whatever radio button is currently selected
For $i = 0 to UBound ($NicsFound, 1) - 1
If $msg = $radio[$i] And BitAND(GUICtrlRead($radio[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
$label = GUICtrlCreateLabel("Current MAC for this device is: " & $NicsFound[$i][1], 10, $i2, 250, 15)
$index = $i
EndIF
Next
WEnd

[/autoit] [autoit][/autoit] [autoit]

;error checking making sure a adapter was selected if ok button is pressed
$selection = 0
If $ok = 1 Then
For $i = 0 to UBound ($NicsFound, 1) - 1
If BitAND(GUICtrlRead($radio[$i]), $GUI_CHECKED) = $GUI_CHECKED Then $selection = 1
Next

[/autoit] [autoit][/autoit] [autoit]

;output to tell the user whats up
If $selection = 0 Then
MsgBox (0,"Error", "No Adapter Selected",0,$hGUI)
GUIDelete($hGUI)
Main()
EndIf

[/autoit] [autoit][/autoit] [autoit]

$newMAC = GUICtrlRead($newMAC)

[/autoit] [autoit][/autoit] [autoit]

If $newMAC = "" Then
MsgBox (0,"Error", "You did not enter a MAC Address",0,$hGUI)
GUIDelete($hGUI)
Main()
EndIf

[/autoit] [autoit][/autoit] [autoit]

StringUpper($newMAC)

[/autoit] [autoit][/autoit] [autoit]

If StringLen($newMAC) <> 12 OR StringIsXDigit($newMAC) = 0 Then
MsgBox (0,"Error", "You Entered an Invalid Address",0,$hGUI)
GUIDelete($hGUI)
Main()
Endif
Endif

[/autoit] [autoit][/autoit] [autoit]

;get the registry keys in order to change the MAC
While StringLen ($index) <> 4
Select
Case StringLen ($NicsFound[$index][2]) = 1
$newindex = "000" & $NicsFound[$index][2]
ExitLoop
Case StringLen ($NicsFound[$index][2]) = 2
$newindex = "00" & $NicsFound[$index][2]
ExitLoop
Case StringLen ($NicsFound[$index][2]) = 3
$newindex = "0" & $NicsFound[$index][2]
ExitLoop
EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit]

;does the actual registry editing
$registry = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\" & $newindex
If $revertOld = 1 Then
RegDelete($registry, "NetworkAddress")
Else
$test = RegWrite ($registry, "NetworkAddress", "REG_SZ", $newMac)
EndIf

[/autoit] [autoit][/autoit] [autoit]

If GUICtrlRead($toggle) = $GUI_CHECKED And $NicsFound[$index][4] <> 0 Then
GUISetState(@SW_DISABLE)
ProgressOn("Progress", "Please Wait...", "", Default, Default, 18)
_NicToggle($NicsFound[$index][3], 0)
ProgressSet(50)
_NicToggle($NicsFound[$index][3], 1)
ProgressSet(100, "Operation Complete")
sleep(5000)
ProgressOff()
Else
MsgBox(0, "Remember", "You must shutdown or disable and re-enable your NIC for your MAC change to take affect",0,$hGUI)
EndIf

[/autoit] [autoit][/autoit] [autoit]

GUIDelete($hGUI)
Main()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

; Find the folder containing the network connection objects
; ==============================================================================================
Func _NetConsFolderObject()
Local $wbemFlagReturnImmediately = 0x10
Local $wbemFlagForwardOnly = 0x20
Local $strComputer = "localhost"
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colNetwork = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
Return $colNetwork
EndFunc ;==>_NetConsFolderObject

[/autoit] [autoit][/autoit] [autoit]

; Find the network connection objects
; ==============================================================================================
Func _GetNetConNames($colNetwork)
Dim $strNetworks, $IDXname=0, $IDXstatus=0
If IsObj($colNetwork) Then
For $clsConn In $colNetwork

[/autoit] [autoit][/autoit] [autoit]

If $clsConn.NetConnectionID <> '' AND $clsConn.MACAddress <> '' AND NOT StringInStr($clsConn.NetConnectionID, 'virtual') _
AND NOT StringInStr($clsConn.Name, 'virtual') Then ;attempt to get rid of virtual network adapters
;$strNetworks &= $clsConn.NetConnectionID & '|'
ReDim $NicsFound[$IDXname+1][5]
$NicsFound[$IDXname][0] = $clsConn.Name
$NicsFound[$IDXname][1] = $clsConn.MACAddress
$NicsFound[$IDXname][2] = $clsConn.index
$NicsFound[$IDXname][3] = $clsConn.NetConnectionID
$NicsFound[$IDXname][4] = $clsConn.NetConnectionStatus
$IDXname = $IDXname + 1
EndIf
Next
Else
MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_NetworkAdapter",0,$hGUI)
EndIf
Return
EndFunc ;==>GetNetworkNames

[/autoit] [autoit][/autoit] [autoit]

; Disable and Enable a Network card
; ==============================================================================================
; _NicToggle('local area connection', [0=disable, 1=enable])
Func _NicToggle($name, $iFlag)
If $OSver = "WIN_VISTA" OR $Osver = "WIN_2008" Then
_NetConsFolderObject()
If IsObj($colNetwork) Then
For $clsConn In $colNetwork
If $clsConn.NetConnectionID = $name Then
If $iFlag = 0 And $clsConn.NetConnectionStatus <> 0 Then
$clsConn.Disable
EndIf
If $iFlag = 1 And $clsConn.NetConnectionStatus = 0 Then
$clsConn.Enable
EndIf
ExitLoop
EndIf
Next
Else
MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_NetworkAdapter",0,$hGUI)
EndIf
Else ; Windows 2000 & XP
$objShell = ObjCreate("Shell.Application")
$strNetConn = "Network Connections"
$objCP = $objShell.Namespace(3)
For $clsConn In $objCP.Items
If $clsConn.Name = $strNetConn Then
$colNetwork = $clsConn.GetFolder
EndIf
Next
For $clsConn In $colNetwork.Items
If $clsConn.Name = $name Then
For $clsVerb In $clsConn.verbs
If $iFlag = 0 And $clsVerb.name = $strDisable Then
$clsVerb.DoIt
Sleep(5000)
Return
EndIf
If $iFlag = 1 And $clsVerb.name = $strEnable Then
$clsVerb.DoIt
Sleep(5000)
Return
EndIf
Next
EndIf
Next
EndIf
EndFunc ;==>_NicToggle

[/autoit]