Moin,
ich schreibe gerade ein kleines Wiedereinwahl-Skript für die Internetverbindung.
Das wollen nun auch einige Bekannte von mir benutzen.
Dazu habe ich eine .ini Abfrage erstellt um die Einwahldaten (Benutzername und Pw) zu ermitteln und zu speichern...
Jetzt brauche ich aber noch den Namen der Internetverbindung, also Alice, Arcor2ooo, T-ComDSL oder wie sie auch immer genannt wird...
Gibt es nun eine Möglichkeit den Namen der Standart INet Verbindung in/mit Windows zu ermitteln ?
Skript...
Spoiler anzeigen
#NoTrayIcon
#include <GuiConstants.au3>
#include <Process.au3>
$Data = IniReadSectionNames("ReDial.ini")
If @error Then
FileInstall("Globe Disconnect.ico", @WorkingDir & "\Globe Disconnect.ico")
FileInstall("Globe Connected.ico", @WorkingDir & "\Globe Connected.ico")
MsgBox(4096, "ReDial - Error", "Keine Verbindungsdaten vorhanden!" & @CRLF & "Bitte tragen sie in das Dialogfenster Ihre Internet Zugangsdaten ein!")
_Dialog()
EndIf
$INet = IniRead("ReDial.ini", "Data", "Verbindung", "Verbindung")
$User = IniRead("ReDial.ini", "Data", "Benutzername", "Benutzername")
$Pwd = IniRead("ReDial.ini", "Data", "Kennwort", "Kennwort")
If $INet = "Verbindung" Or $User = "Benutzername" Or $Pwd = "Kennwort" Then
MsgBox(4096, "ReDial - Error", "Keine Verbindungsdaten vorhanden!" & @CRLF & "Bitte tragen sie in das Dialogfenster Ihre Internet Zugangsdaten ein!")
_Dialog()
EndIf
Opt("TrayMenuMode", 1)
[/autoit] [autoit][/autoit] [autoit]TraySetIcon("Globe Connected.ico")
Sleep(3000)
TraySetIcon("Globe Disconnect.ico")
_RunDOS("c:/windows/system32/rasdial.exe " & $INet & " /disconnect") ; Hier muss der Name der Internetverbindung, z.B. Alice16ooo, eingefügt werden!
Sleep(2500)
_RunDOS("c:/windows/system32/rasdial.exe " & $INet & " " & $User & " " & $Pwd)
Sleep(500)
$Ping = Ping("www.AutoItScript.com", 250)
If @error = 1 Then
MsgBox(4096, "ReDial - Error", "Keine Verbindung hergestellt!" & @CRLF & "Bitte überprüfen Sie Ihre Internet Zugangsdaten!")
NewDialog()
EndIf
TraySetIcon("Globe Connected.ico")
Sleep(1000)
Exit
Func _Dialog()
[/autoit] [autoit][/autoit] [autoit]GUICreate("ReDial - Verbindungsdaten eingeben", 320, 240, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS), $WS_EX_ACCEPTFILES)
[/autoit] [autoit][/autoit] [autoit]$Group = GUICtrlCreateGroup(" Verbindungsdaten ", 20, 20, 280, 140)
$INet = GUICtrlCreateInput("Verbindung", 40, 40, 240, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$User = GUICtrlCreateInput("Benutzername", 40, 80, 240, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$Pwd = GUICtrlCreateInput("Kennwort", 40, 120, 240, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$Button = GUICtrlCreateButton("OK", 120, 190, 80, 25)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $Button
$INet = GUICtrlRead($INet)
$User = GUICtrlRead($User)
$Pwd = GUICtrlRead($Pwd)
IniWrite("ReDial.ini", "Data", "Verbindung", $INet)
IniWrite("ReDial.ini", "Data", "Benutzername", $User)
IniWrite("ReDial.ini", "Data", "Kennwort", $Pwd)
ExitLoop
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case Else
;;;
EndSelect
WEnd
EndFunc ;==>Dialog
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]Kann man über AutoIt nun den Namen der Standard Internetverbindung ermitteln ?
Gruß
Greenhorn