Quick VPN & Remote

ZoeLeah

Hallo liebe Kommunity,

anfang der Woche habe ich ein Problem gehabt, dass unsere Kunden zur VPN- und Remoteaufbau zu viele Knöpfe etc. drücken müssen.

Auf der Suche nach Skriptingmöglichkeiten bin ich dann auf AutoIT gestoßen.

Einfach GEIL muss ich sagen.

Leider bin ich noch nicht so in die Tiefe gestoßen wie ich es bräuchte, hier aber mal mein kleines Tool, was ich bisher gemacht habe:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
Local $vpnopen, $vpnclose, $vpnconfig, $close, $help
GUICreate("Quick VPN & Remote", 120, 40)
$vpnopen = GUICtrlCreateButton("1", 0, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 14)
$vpnclose = GUICtrlCreateButton("2", 40, 00, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 200)
$close = GUICtrlCreateButton("close", 80, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 28)
GUISetState()

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $vpnopen
Run("C:\Programme\ZyXEL\ZyWALL VPN Client\vpnconf.exe /open:Rogalla-Rogalla")
RunWait("C:\WINDOWS\system32\mstsc.exe")
Case $vpnclose
Run("C:\Programme\ZyXEL\ZyWALL VPN Client\vpnconf.exe /close:Rogalla-Rogalla")
Case $close
ExitLoop
Case Else
EndSwitch
WEnd
GUIDelete()
EndFunc ;==>_Main

[/autoit]

Leider ist das ganze ein wenig STARR.

Ich könnte eure Hilfe gebrauchen, damit ich dieses Tool für meine Zwecke weiterentwickeln kann.

So sollte es in etwa grob aussehen:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
Local $vpnopen, $vpnclose, $vpnconfig, $close, $help
GUICreate("Quick VPN & Remote", 200, 40)
$vpnopen = GUICtrlCreateButton("1", 0, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 14)
$vpnclose = GUICtrlCreateButton("2", 40, 00, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 200)
$close = GUICtrlCreateButton("close", 80, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 28)
$vpnconfig = GUICtrlCreateButton("3", 120, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 22)
$help = GUICtrlCreateButton("4", 160, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 24)
GUISetState()

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $vpnopen
Run(" %variablevpnprogramm% %variablevpnstartparameter% ")
RunWait(" %variableremotetool% % variableremotetoolstartparameter% ")
Case $vpnclose
Run(" %variableprogramm% %variablevpnstopparameter% ")
Case $close
ExitLoop
Case $vpnconfig
;
Case $help
;
Case Else
EndSwitch
WEnd
GUIDelete()
EndFunc ;==>_Main

[/autoit]

Diese Variablen sollten in einer ini Datei gespeichert werden, die man über den $vpnconfig editieren kann:

%variablevpnprogramm%, %variablevpnstartparameter%, %variableremotetool% % variableremotetoolstartparameter%, %variablevpnstopparameter%

Die Programme sollte man über ein "Durchsuchen" Button auswählen können.

Leider bin ich noch nicht weiter in die Skriptsprache gedrungen, ja ich weiß ich muss mich dort noch weiter reinarbeiten, aber irgendwie steh ich unter Zeitdruck und wäre froh, ihr könntet mir weiterhelfen, damit ich das alles hin bekomme.

Über jede weitere Hilfe wäre ich dankbar.

Gruß

Ronnie

Edit BugFix: Bitte AutoIt-Tags verwenden statt php - hab das mal für dich gemacht.