Programm will danach der installersion ins Internet gehen auf der willkommenseite

[autoit]

Dim $__sGATEWAY[2]

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

Func EnDisInet($nDis = 0);0 = Deaktivieren 1 = Aktivieren
Switch $nDis
Case 0
$NetWkAd = _Win32NetworkAdapter()
For $x = 1 To UBound($NetWkAd, 1) - 1
If $NetWkAd[$x][11] <> "" Then
$__sGATEWAY[0] = $NetWkAd[$x][11]
$__sGATEWAY[1] = $NetWkAd[$x][9]
EndIf
Next
Do
$RandGW = Random(1, 223, 1) & "." & Random(1, 199, 1) & "." & Random(1, 255, 1) & "." & Random(1, 199, 1)
Until $RandGW <> $__sGATEWAY[1]
_ChangeGatewayAndBack($__sGATEWAY[1],$__sGATEWAY[0],$RandGW,0)
Case 1
_ChangeGatewayAndBack($__sGATEWAY[1],$RandGW,$__sGATEWAY[0],0)
EndSwitch
EndFunc ;==>EnDisInet

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

;------------------------------------------------------------------------------------------
; Funktion _ChangeGatewayAndBack($MY_IP, $GATEWAY_IP, $FAKE_GATEWAY_IP [,$TIMEOUT=-1])
;
; Beschreibung Trennt die Verbindung zwischen PC und Router (Netzwerk), indem man dem
; Netzwerkadapter kurzzeitig einen falschen Gateway zuweist.
; Der Adapter muss manuell konfiguriert sein.
;
; Parameter $MY_IP IP des Netzwerkadapters
; $GATEWAY_IP Gateway
; $FAKE_GATEWAY_IP falsche IP
; $TIMEOUT Zeitdauer bis der Standardgateway wieder aktiv wird
; -1 (default) 2000 ms
; 0 NOTAUS! Standardgateway wird NICHT zurückgesetzt
; n in Milisekunden (beliebig)
;
; Autor BugFix [email='bugfix@autoit.de'][/email]
;------------------------------------------------------------------------------------------
#include <Array.au3>

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

Func _ChangeGatewayAndBack($MY_IP, $GATEWAY_IP, $FAKE_GATEWAY_IP, $TIMEOUT = -1)
Local $ARGATEWAY = _ArrayCreate($GATEWAY_IP, $GATEWAY_IP)
Local $ARFAKEGATEWAY = _ArrayCreate($FAKE_GATEWAY_IP, $FAKE_GATEWAY_IP)
Local $TIME, $EMERGENCY = 0, $strComputer = "."
Switch $TIMEOUT
Case -1
$TIME = 2000
Case 0
$EMERGENCY = 1
Case Else
$TIME = $TIMEOUT
EndSwitch
$objWMIService = ObjGet("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
$colNetCards = $objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
If $EMERGENCY = 0 Then
For $objNetCard In $colNetCards
If $objNetCard.IPAddress(0) = $MY_IP Then
$objNetCard.SetGateways($ARFAKEGATEWAY)
Sleep($TIME)
$objNetCard.SetGateways($ARGATEWAY)
ExitLoop
EndIf
Next
Else
For $objNetCard In $colNetCards
If $objNetCard.IPAddress(0) = $MY_IP Then
$objNetCard.SetGateways($ARFAKEGATEWAY)
ExitLoop
EndIf
Next
EndIf
EndFunc ;==>_ChangeGatewayAndBa

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

Func _Win32NetworkAdapter($strComputer = 'Localhost')
Local $aReturn[1][12] = [[ _
'Hersteller:', 'Name:', 'Adapter-Typ:', 'Kennung:', _
'MAC-Adresse:', 'Adresstyp:', 'DHCP-Server:', 'IP erhalten:', _
'IP läuft ab:', 'IP-Adresse:', 'Subnetzmaske:', 'Standardgateway:']]
Local $x = 0, $objWMIService, $colItems
$objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\')
If Not IsObj($objWMIService) Then Return SetError(1, 0, 0)
$colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE Netconnectionstatus = 2', 'WQL', 0x30)
If Not IsObj($colItems) Then Return SetError(2, 0, 0)
For $objItem In $colItems
$x += 1
ReDim $aReturn[$x + 1][12]
$aReturn[$x][0] = $objItem.Manufacturer
$aReturn[$x][1] = $objItem.Name
$aReturn[$x][2] = $objItem.AdapterType
$aReturn[$x][3] = $objItem.NetConnectionID
$aReturn[$x][4] = $objItem.MACAddress
$colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30)
If IsObj($colItems2) Then
For $objItem2 In $colItems2
If $objItem.Caption = $objItem2.Caption Then
If $objItem2.IPEnabled = -1 Then
If $objItem2.DHCPEnabled = -1 Then
$aReturn[$x][5] = 'von DHCP zugewiesen'
$aReturn[$x][6] = $objItem2.DHCPServer
$aReturn[$x][7] = _WMIDateStringToDate($objItem2.DHCPLeaseObtained)
$aReturn[$x][8] = _WMIDateStringToDate($objItem2.DHCPLeaseExpires)
Else
$aReturn[$x][5] = 'Manuell konfiguriert'
EndIf
$aReturn[$x][9] = $objItem2.IPAddress(0)
$aReturn[$x][10] = $objItem2.IPSubnet(0)
$aReturn[$x][11] = $objItem2.DefaultIPGateway(0)
EndIf
EndIf
Next
EndIf
Next
Return $aReturn
EndFunc ;==>_Win32NetworkAdapter

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

Func _WMIDateStringToDate($dtmDate)
Return (StringMid($dtmDate, 5, 2) & '/' & _
StringMid($dtmDate, 7, 2) & '/' & StringLeft($dtmDate, 4) _
& ' ' & StringMid($dtmDate, 9, 2) & ':' & StringMid($dtmDate, 11, 2) & ':' & StringMid($dtmDate, 13, 2))
EndFunc ;==>_WMIDateStringToDate

[/autoit]