Hi zusammen,
ich habe seit knapp einen Jahr mal wieder angefangen was zu schreiben und stehe direkt vor einem Problem, ich will als einstieg ein Script schrieben in dem ich mich mit Netzlaufwerken verbinden kann.
Hier mal der Code:
#include <EditConstants.au3>
$GUI = GUICreate("NetCon", 400, 130)
GUICtrlCreateGroup("Connect-User", 10, 10, 180, 80)
GUICtrlCreateLabel("User:", 14, 27)
$User = GUICtrlCreateInput("", 65, 25, 120, 20)
GUICtrlCreateLabel("Password:", 14, 57)
$PW = GUICtrlCreateInput("", 65, 55, 120, 20, $ES_PASSWORD)
GUICtrlCreateGroup("Network", 200, 10, 180, 80)
GUICtrlCreateLabel("Drive:", 205, 27)
$Drive = GUICtrlCreateInput("", 240, 25, 135, 20)
GUICtrlCreateLabel("Letter:", 205, 55)
$Letter = GUICtrlCreateCombo("A:", 240, 55, 135, 20)
GUICtrlSetData($Letter, "B:|C:|D:|F:|G:|H:|I:|J:|K:|L:|M:|N:|O:|P:|Q:|R:|S:|T:|U:|V:|W:|X:|Y:|Z:")
$Start = GUICtrlCreateButton("Connect", 10, 100, 55, 25)
GUISetState(@SW_SHOW, $GUI)
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case -3
If $nMsg[1] = $GUI Then
Exit
Else
GUISetState(@SW_HIDE, $nMsg[1])
EndIf
case $Start
$USER = GUICtrlRead($User)
$PASSWORD = GUICtrlRead($PW)
$DRIVE = GUICtrlRead($Drive)
$LETTER = GUICtrlRead($Letter)
Connect()
EndSwitch
WEnd
Func Connect()
Run("NET USE " & $LETTER & " " & $DRIVE & " " & $PASSWORD & " /USER:" & $USER)
;;MsgBox(64, "Mount", "Network drive is mounted", 20)
EndFunc
Nun will ich zwei sachen regeln,
1. Das die Laufwerksbuchstaben die bereits mit einen Laufwerk verbunden sind nicht angezeigt werden
2. Das geprüft wird ob das Laufwerk verbunden ist
ich weiß bzw. denke das ich das ganze mit DriveGetDrive lösen kann, nur komme ich nicht dadrauf wie.
Schonmal danke für eure Hilfe