rasdial [connectionname] /disconnect
connectionname : Specifies an entry in the current .pbk file, located in the systemroot\System32\Ras folder. If the connection name contains spaces or special characters, enclose the connection name in quotation marks (").
Da findest du den Verbindungsnamen.
Da liegt der Hund begraben:
[autoit]Dim $A_CLUSTERSTATUS[1] ; muß auch als Array deklariert werden, sonst funzt _ArrayAdd nicht
[/autoit]Es ist allerdings eine gute Idee (von BugFix?), dass man ein Passwort mit sich selbst verschlüsselt
Ich weiß nicht, ob ich der Urheber der Idee war 
, gut ist sie trotzdem. Hier mal ein Bsp.
Das PW ist innerhalb des Skriptes immer codiert. Nur bei der Interaktion mit dem User wird es im Klartext verwendet.
#include <guiconstants.au3>
#include <String.au3>
$gui = GUICreate('')
$iUserPasswort = GUICtrlCreateInput('',20,10,-1,-1,$ES_PASSWORD)
$btn1 = GUICtrlCreateButton("Encrypt",20,40)
$btn2 = GUICtrlCreateButton("Decrypt",175,40)
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $btn1
$encrypt = _StringEncrypt(1, GUICtrlRead($iUserPasswort), GUICtrlRead($iUserPasswort) )
MsgBox(0, '', $encrypt)
Case $btn2
$original = _StringEncrypt(0, $encrypt, GUICtrlRead($iUserPasswort) )
MsgBox(0, '', $original)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Schick mal dein File.
Kann man das ergebnis direkt ohne fileübergabe in ein array einlesen ??
Wenn die Ausgabe im DOS-Fenster erscheint, kannst du mit StdoutRead( ) arbeiten
Bei mir zeigt er es an, aktuelle AutoIt-Version vorhanden?
Deine Auswertung funktioniert, 'online' wird gefunden. Was also ist das Problem?
Und so liest du das Paßwort auch gar nicht erst im Klartext in eine Variable, sondern verschlüsselt.
[autoit]$pwkey = "vzf$/[hj+l"
$iUserPasswort = GUICtrlCreateInput("", 338, 267, 140, 21,$ES_PASSWORD)
$pwEncrypt = _StringEncrypt(1, GUICtrlRead($iUserPasswort), $pwkey )
Auch von mir:
:D..........:D...........:D...............:D:D.........:D:D........:D.......:D
:D..........:D.........:D:D............:D.....:D....:D.....:D.....:D....:D
:D..........:D........:D...:D..........:D.....:D....:D.....:D.......:D:D
:D:D:D:D........:D:D:D.........:D.:D........:D.:D.............:D
:D..........:D......:D........:D.......:D..............:D...................:D
:D..........:D.....:D..........:D......:D..............:D...................:D
:D..........:D....:D.............:D....:D..............:D...................:D
2000
[Blockierte Grafik: http://home.arcor.de/bugfix/icon_bugfix1.gif]
Immer wenn ich den Speicher Wert gesetzt habe hat der Simulator den wieder sofort zurückgestellt.
Prüfe mal, ob der Wert evtl. noch auf einem Referenzspeicherplatz mitgespeichert wird. Das hatte ich mal bei einem Spiel, da mußten immer beide Speicher überschrieben werden.
Ist es nicht einfacher den Speicherwert direkt auszulesen bzw. zu schreiben?
UDF dafür im EN-Forum:
http://www.autoitscript.com/forum/index.php?showtopic=19329&hl=memory++read
Hier mal ein konkretes Musterbeispiel, wie du jeden Mausklick im Fenster abfängst:
[autoit]#include <GUIConstants.au3>
AutoItSetOption('MouseCoordMode',0)
$gui = GUICreate('Test')
GUISetState()
While 1
$msg = GUIGetMsg(1)
If $msg[1] = $gui Then
Switch $msg[0]
Case $GUI_EVENT_PRIMARYDOWN
MouseMove(0,0,1)
Case $GUI_EVENT_SECONDARYDOWN
MouseMove(0,0,1)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
EndIf
WEnd
1. Ist wirklich sicher, dass der IE nicht doch dahin navigiert ?
2. Müsste ich verdammt viele Links angeben.....
zu 1.
Hab es mehrfach im Einsatz ( harter Dauertest bei meinen Kindern als Schutz vor falschen Klicks ). Funktioniert tadellos.
zu 2.
Wenn du alles sperren willst:
Wenn Link Element von _IELinkGetCollection( ), dann skip.
Edit:
Ganz andere Idee. Gar keine Mausaktionen in diesem Fenster zulassen.
Etwa so:
While 1
If $GUI_EVENT_PRIMARYDOWN Or _
$GUI_EVENT_SECONDARYDOWN Then MouseMove(0,0,1)
;...
Wend
Schau mal hier:
Links auf IE - Site sperren
ob dir das evtl. hilft.
Hiermit kannst du zumindest die Verbindungseinstellungen für den MS IE anzeigen lassen:
$strComputer = "."
$objWMIService = ObjGet("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & $strComputer & _
"\root\cimv2\Applications\MicrosoftIE")
$colIESettings = $objWMIService.ExecQuery _
("Select * from MicrosoftIE_ConnectionSettings")
$str = ''
For $strIESetting in $colIESettings
$str &= "Allow Internet programs: " & _
$strIESetting.AllowInternetPrograms & @LF & _
"Autoconfiguration URL: " & $strIESetting.AutoConfigURL & @LF & _
"Auto disconnect: " & $strIESetting.AutoDisconnect & @LF & _
"Autoconfiguration proxy detection mode: " & _
$strIESetting.AutoProxyDetectMode & @LF & _
"Data encryption: " & $strIESetting.DataEncryption & @LF & _
"Default: " & $strIESetting.Default & @LF & _
"Default gateway: " & $strIESetting.DefaultGateway & @LF & _
"Dialup server: " & $strIESetting.DialUpServer & @LF & _
"Disconnect idle time: " & $strIESetting.DisconnectIdleTime & @LF & _
"Encrypted password: " & $strIESetting.EncryptedPassword & @LF & _
"IP address: " & $strIESetting.IPAddress & @LF & _
"IP header compression: " & _
$strIESetting.IPHeaderCompression & @LF & _
"Modem: " & $strIESetting.Modem & @LF & _
"Name: " & $strIESetting.Name & @LF & _
"Network logon: " & $strIESetting.NetworkLogon & @LF & _
"Network protocols: " & $strIESetting.NetworkProtocols & @LF & _
"Primary DNS server: " & $strIESetting.PrimaryDNS & @LF & _
"Primary WINS server: " & $strIESetting.PrimaryWINS & @LF & _
"Proxy: " & $strIESetting.Proxy & @LF & _
"Proxy override: " & $strIESetting.ProxyOverride & @LF & _
"Proxy server: " & $strIESetting.ProxyServer & @LF & _
"Redial attempts: " & $strIESetting.RedialAttempts & @LF & _
"Redial wait: " & $strIESetting.RedialWait & @LF & _
"Script fileame: " & $strIESetting.ScriptFileName & @LF & _
"Secondary DNS server: " & $strIESetting.SecondaryDNS & @LF & _
"Secondary WINS server: " & $strIESetting.SecondaryWINS & @LF & _
"Server assigned IP address: " & _
$strIESetting.ServerAssignedIPAddress & @LF & _
"Server assigned name server: " & _
$strIESetting.ServerAssignedNameServer & @LF & _
"Software compression: " & $strIESetting.SoftwareCompression
MsgBox(0, '', $str)
$str = ''
Next
'_' am Ende bedeutet Befehsfortsetzung in Folgezeile.
Oder du nutzt die erweiterte GUIGetMsg-Funktion.
While 1
$msg = GuiGetMsg(1) ; erzeugt Array, $msg[0]=Info, $msg[1]=Winhandle, $msg[2]=Controlhandle Steuerelement, $msg[3]/[4]=Maus x/y
Select
Case $msg[0] = $GUI_EVENT_CLOSE
Select
Case $msg[1] = $f_haupt
ExitLoop
Case $msg[1] = $f_eintrag
GUISetState(@SW_SHOW, $f_eintrag)
EndSelect
;..
EndSelect
WEnd
Danke Mega für den Hinweis, wird sofort erledigt. 
Hi,
nicht dass ihr denkt, ich bastel nur noch Uhren...
Hier 2 UDF's für die Netzwerkadapter-Konfiguration ohne Aufruf von 'netsh'.
_GetNetworkAdapterIPEnabled()
Ermittelt für alle IPEnabled Netzwerkadapter:
- Caption
- IPAddress
- IPSubnet
- DefaultIPGateway
Rückgabe in einem Array.
_SetIP( )
Konfiguriert den mit Caption benannten Adapter:
- IPAddress
- IPSubnet ( Standardvorgabe 255.255.255.0 )
- DefaultIPGateway
- Aktivierung von DHCP wenn nur Caption als Parameter übergeben wird
_GetNetworkAdapterIPEnabled()
#include <array.au3>
_ArrayDisplay(_GetNetworkAdapterIPEnabled())
;****************************************************************************************
; Funktion _GetNetworkAdapterIPEnabled()
;
; Beschreibung Ermittelt Netzwerkadapter mit konfigurierter IP
;
; Rückgabe Array Netzwerkadapter
; Array[n][0] Caption
; Array[n][1] IP-Adresse
; Array[n][2] Subnetzmaske
; Array[n][3] Standardgateway
; wird kein IPEnabled Adapter gefunden:
; Return -1 und @error = 1
;
; Erfordernisse #include <array.au3>
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;****************************************************************************************
Func _GetNetworkAdapterIPEnabled()
Dim $arAdapter[1], $var
$arAdapter[0] = -1
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$strComputer = "localhost"
$objWMIService = ObjGet("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
$IPConfigSet = $objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
For $IPConfig in $IPConfigSet
For $i=0 to UBound($IPConfig.IPAddress)-1
If $IPConfig.IPAddress($i) <> '0.0.0.0' Then
$settings = $IPConfig.Caption & '|' & _
$IPConfig.IPAddress($i) & '|' & _
$IPConfig.IPSubnet(0) & '|' & _
$IPConfig.DefaultIPGateway(0)
If $arAdapter[0] = -1 Then
$arAdapter[0] = $settings
Else
For $i = 0 To UBound($arAdapter)-1
If $arAdapter[$i] = $settings Then
ExitLoop
Else
_ArrayAdd($arAdapter, $settings)
EndIf
Next
EndIf
EndIf
Next
Next
If $arAdapter[0] = -1 Then
SetError(1)
Return -1
Else
Local $arOut[UBound($arAdapter)][4]
For $i = 0 To UBound($arAdapter)-1
$var = StringSplit($arAdapter[$i], '|')
$arOut[$i][0] = $var[1]
$arOut[$i][1] = $var[2]
$arOut[$i][2] = $var[3]
$arOut[$i][3] = $var[4]
Next
EndIf
Return $arOut
EndFunc ;==>_GetNetworkAdapterIPEnabled
_SetIP( )
;****************************************************************************************
; Funktion _SetIP($CAPTION, $IP='0.0.0.0', $GATEWAY='0.0.0.0' [, $SUB="255.255.255.0"])
;
; Beschreibung Konfiguration eines IPEnabled Netzwerkadapters
; Wird nur der Parameter $CAPTION übergeben, wird für diesen Adapter 'DHCP Enabled' gesetzt
;
; Parameter $Caption ermitteln mit _GetNetworkAdapterIPEnabled() o.a. Skript
; $IP einzustellende IP
; $GATEWAY Standardgateway
; optional $SUB Subnetzmaske (default "255.255.255.0")
;
; Rückgabe 0 IP und Gateway (oder DHCP) erfolgreich gesetzt
; 1 IP-Adresse konnte nicht gesetzt werden @error 1
; 2 Gateway konnte nicht gesetzt werden @error 1
; 3 IP-Adresse und Gateway konnten nicht gesetzt werden @error 1
; 4 Aktivierung DHCP fehlgeschlagen @error 1
;
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;****************************************************************************************
Func _SetIP($CAPTION, $IP='0.0.0.0', $GATEWAY='0.0.0.0', $SUB="255.255.255.0")
Local $err = 0, $arIPAddress[1], $arSubnetMask[1], $arGateway[1], $arGatewayMetric[1]
$strComputer = "."
$objWMIService = ObjGet("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
$colNetAdapters = $objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
$arIPAddress[0] = $IP
$arSubnetMask[0] = $SUB
$arGateway[0] = $GATEWAY
$arGatewayMetric[0] = 1
For $objNetAdapter In $colNetAdapters
If $objNetAdapter.Caption = $CAPTION Then
If $IP <> '0.0.0.0' Then
$errEnable = $objNetAdapter.EnableStatic($arIPAddress, $arSubnetMask)
$errGateways = $objNetAdapter.SetGateways($arGateway, $arGatewaymetric)
If $errEnable <> 0 Then $err += 1
If $errGateways <> 0 Then $err += 2
Else
$errEnable = $objNetAdapter.EnableDHCP()
If $errEnable <> 0 Then $err += 4
EndIf
ExitLoop
EndIf
Next
If $err > 0 Then SetError(1)
Return $err
EndFunc ;==>_SetIP()
<OffTopic>
Der Alkohol war egstern in der Frauenrunde wohl schlecht
Dann trink ihn lieber in der Männerrunde 
</OffTopic>
