Hallo an Alle!
Es geht um Folgenes wenn ich ein Programm Installiere und am Ende ich es Fertig Erstelle tut er eine Internet verbindung zum hersteller aufbauen. Das Ganze Habe ich mal Devcon mit Windows 7 32 bit hinbekommen wo ich noch die 32 bit version benutzt habe. Bei der 64 bit version geht es nicht hier mal das Skript was bei der 32 bit geht aber nicht auf der 64 bit version.
Spoiler anzeigen
Global $networkadapter [1] [2]
_GetNetworkadapter ()
_enabdisabNWK ("disable")
;InsallationCode
;Beende Installation
_enabdisabNWK ("enable")
Func _enabdisabNWK ($aktion)
For $x = 0 To UBound ($networkadapter) - 1
If $networkadapter [$x] [1] <> "" Then
$strrun = @ScriptDir & "\devcon " & $aktion & " " & """" & $networkadapter [$x] [1] & """"
RunWait ($strrun, "",@SW_HIDE)
WinWaitActive("Klite","Fertig")
EndIf
Next
EndFunc
Func _GetNetworkadapter ()
Local $crecords, $drecords, $result
$strzeichen = "&"
$x = 0
$strComputer = "Localhost"
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")
For $objItem In $colItems
$result = StringInStr ($objitem.PNPDeviceID, "&")
if $result > 0 Then
$networkadapter [$x] [0] = $objitem.Name
$crecords = StringSplit ($objitem.PNPDeviceID, "\")
$drecords = StringSplit ($crecords [2], "&")
$networkadapter [$x] [1] = "PCI\" & $drecords [1] & $strzeichen & $drecords [2] & $strzeichen & "*"
$x += 1
ReDim $networkadapter [$x + 1] [2]
EndIf
Next
EndFunc
Jetzt die frage ich habe mir denn Devcon 64 bit besorgt doch mit dem skript geht es überhaupt nicht. hat einer von euch das skript schon mal für die 64 bit version angepasst oder bekommt es angepasst. denn ich komme es ihrgendwie nicht hin.
Bitte dringend um Hilfe!
MfG
Baron