Netzlaufwerk Programm

neo

Hallo Gemeinde

Ich bin noch ziemlich frisch in der Scripting Scene und hänge gerade an einem Programm das dass verbinden von Netzlaufwerken erleichtern soll.

Der Benutzer soll in das Feld den Pfad für die Freigaben Eingeben und mit der Bestätigung eines Buttons (bei mir ist das "OK") soll dann das Netzlaufwerk mit dem Eingegebenen Pfad erstellt werden. Mein Problem ist nun das ich nicht weis, welchen Befehl/Parameter etc. ich eingeben muss, damit es erstellt wird.

Hier wäre mal der CODE:

Code

#include <GUIConstants.au3>


GUICreate("Netzlaufwerk", 350, 350)


$pfad = GUICtrlCreateInput("\\server\gms", 140, 5, 200, 20)
GUICtrlCreateLabel("Pfad zur Freigabe:", 5, 10)


$ok1 = GUICtrlCreateButton("OK", 120, 280, 50, 30)
GUICtrlSetOnEvent(1, "OKPressed")


$cancel1 = GUICtrlCreateButton ( "Cancel",  180, 280, 50, 30-1)
;~ GUICtrlSetOnEvent(-1, "CancelPressed")


GUISetState(@SW_SHOW)




Func OKPressed()
		DriveMapAdd("V:", "\\matrix-mobile\LBS4")
	EndFunc



;~ Func CancelPressed()
;~ 	DriveMapDel("V:")
;~ 	EndFunc




While 1
	$msg = GUIGetMsg()

	If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

Alles anzeigen

Danke im Vorraus für die Hilfe

**peethebee**

Hallo!

Hab wenig Zeit, aber GUICTRLRead sollte gehen.

peethebee

**GtaSpider**

Hallo und :wilkommen: im Forum!

Hier habe ich ein Skript für dich geschrieben was perfekt und compfortabel laufen sollt:

Code

#include <GUIConstants.au3>


$err = 0


GUICreate("Netzlaufwerk", 170, 69, 192, 125)


$OK = GUICtrlCreateButton("&Ok", 10, 40, 75, 25, 0)
$Cancel = GUICtrlCreateButton("&Abbrechen", 90, 40, 75, 25, 0)
$pfad = GUICtrlCreateInput("\\server\gms", 10, 14, 131, 21)
GUICtrlCreateLabel("Pfad zur Freigabe:", 10, 0, 90, 13)
$choose = GUICtrlCreateButton("..", 140, 14, 25, 21, 0)
GUISetState()


While 1
	$msg = GuiGetMsg()
	Select
	Case $msg = $GUI_EVENT_CLOSE
		ExitLoop
	Case $msg = $OK
		OKPressed(GUICtrlRead($pfad))
	Case $msg = $Cancel
		CancelPressed()
	Case $msg = $choose
		$fsf = FileSelectFolder("Netlaufwerk","::{208D2C60-3AEA-1069-A2D7-08002B30309D}")
		If @error Then ContinueLoop
		If StringLeft($fsf,2) <> "\\" Then ContinueLoop
		GUICtrlSetData($pfad,$fsf)
	EndSelect
WEnd


Func OKPressed($map)
	SplashTextOn("","Bitte Warten...",120,20,-1,-1,1)
         DriveMapAdd("V:", $map)
	If @error Then $err = @error
	SplashOff()
	If $err <> 0 Then
		MsgBox(16,"","Ein Fehler ist aufgetreten: "&$err)
	Else
		MsgBox(0,"Netzlaufwerk",$map&" wurde erfolgreich gespeichert!")
	EndIf
EndFunc


Func CancelPressed()
     DriveMapDel("V:")
     Exit
EndFunc

Alles anzeigen

**Gun-Food**

Also Netzlaufwerk trennen, wenn man auf Abbrechen klickt ist nicht sehr klug.
Ein unbedarfter Anwender startet alles was man anklicken kann und dann bereits verbundene Netzlaufwerke zu trennen, ist reichlich unüberlegt. Also lieber auskommentieren.

jonk

Hi,

ich habe auch mal so ein Skript geschrieben, hier der code:

C

opt("TrayIconHide", 1)


#include <GUIConstants.au3>
#include <Process.au3>
#Include <GuiListView.au3>
#include <Array.au3>


Dim $pid[1]
$pid[0] = @AutoItPID
$Form1 = GUICreate(@ComputerName & " - " & @UserName, 350,300,(@DesktopWidth -350)/2,(@DesktopHeight - 300) /2,$WS_CAPTION)
;~ 	toolbar


$software = GUICtrlCreateButton("", 0, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\appwiz.cpl", "", 0)
GUICtrlSetTip(-1, "software")
$mmc = GUICtrlCreateButton("", 20, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\mmc.exe", "", 0)
GUICtrlSetTip(-1, "Computer Verwaltung")
$devMan = GUICtrlCreateButton("", 40, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\sysdm.cpl", "", 0)
GUICtrlSetTip(-1, "Gerätemanager")
$cmd = GUICtrlCreateButton("", 60, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\cmd.exe", "", 0)
GUICtrlSetTip(-1, "DOS-Eingabe")
$regedit = GUICtrlCreateButton("", 80, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @WindowsDir & "\regedit.exe", "", 0)
GUICtrlSetTip(-1, "Regedit")
$ServMan = GUICtrlCreateButton("", 100, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 165, 0)
GUICtrlSetTip(-1, "Dienste")
$ODBCMan = GUICtrlCreateButton("", 120, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\odbccp32.cpl", "", 0)
GUICtrlSetTip(-1, "ODBC")
$Netcon = GUICtrlCreateButton("", 140, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 148, 0)
GUICtrlSetTip(-1, "Netzwerkverbindungen")
$exit = GUICtrlCreateButton("exit", 316, 0, 34, 20)
GUICtrlSetTip(-1, "beenden")


;~ tabs
$Tab1 = GUICtrlCreateTab(0, 20, 350, 280)


;~ lokal-tab
$TabSheet1 = GUICtrlCreateTabItem("login")
GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 104, 0)
GUICtrlCreateLabel("Password:", 16, 86, 53, 17)
GUICtrlCreateLabel("User:", 16, 55, 29, 17)
$usrlocal = GUICtrlCreateInput("", 80, 55, 129, 21, -1, $WS_EX_CLIENTEDGE)
$pwdlocal = GUICtrlCreateInput("", 80, 86, 129, 21, $ES_PASSWORD, $WS_EX_CLIENTEDGE)
$beAdmin = GUICtrlCreateButton("login", 215, 86, 75, 25)


GUICtrlCreateLabel("Prog:", 16, 130)
GUICtrlCreateLabel("IP-Adresse:", 16, 150)
GUICtrlCreateLabel("User:", 16, 170)
GUICtrlCreateLabel("OSVersion:", 16, 190)
GUICtrlCreateLabel("Computer:", 16, 210)
GUICtrlCreateLabel("LogonDomain:", 16, 230)
GUICtrlCreateLabel("LogonServer:", 16, 250)




GUICtrlCreateLabel("aRun 1.0", 100, 130, 150)
GUICtrlSetFont(-1, 9, 600)
GUICtrlCreateLabel(@IPAddress1, 100, 150, 150)
GUICtrlCreateLabel(@UserName, 100, 170, 170)
GUICtrlCreateLabel(@OSVersion, 100, 190, 190)
GUICtrlCreateLabel(@ComputerName, 100, 210, 150)
GUICtrlCreateLabel(@LogonDomain, 100, 230, 150)
GUICtrlCreateLabel(@LogonServer, 100, 250, 150)


;~ infotab
;~ $TabSheet = GUICtrlCreateTabItem("Info")
;~ GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 221, 0)






;~ sendmail
$TabSheet = GUICtrlCreateTabItem("Mail")
GUICtrlSetImage(-1, @ProgramFilesDir & "\Tobit InfoCenter\DVWIN32.EXE", 4, 0)
GUICtrlCreateLabel("Empfänger:", 16, 55, 53, 17)
GUICtrlCreateLabel("Betreff:", 16, 86, 53, 17)
GUICtrlCreateLabel("Inhalt:", 16, 117, 29, 17)
$mailto = GUICtrlCreateInput("", 80, 55, 250, 21, -1, $WS_EX_CLIENTEDGE)
$mailsub = GUICtrlCreateInput("", 80, 86, 250, 21, $WS_EX_CLIENTEDGE)
$mailbody = GUICtrlCreateEdit("", 80, 117, 250, 150, $WS_EX_CLIENTEDGE)
$mailsnd = GUICtrlCreateButton("senden", 250, 270, 75, 25)
$mailattch = GUICtrlCreateButton("...", 16, 135, 25, 17)


;~ netzwerk-tab
$TabSheet2 = GUICtrlCreateTabItem("Netzwerk")
GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 18, 0)
$label1 = GUICtrlCreateLabel("Share:", 16, 55, 50, 17)
$share = GUICtrlCreateInput("", 55, 55, 140, 21, -1, $WS_EX_CLIENTEDGE)
$selectFolder = GUICtrlCreateButton("...", 195, 55, 27, 21)
$label2 = GUICtrlCreateLabel("Datei:", 16, 80, 50, 17)
$file = GUICtrlCreateInput("", 55, 80, 140, 21, -1, $WS_EX_CLIENTEDGE)
$selectFile = GUICtrlCreateButton("...", 195, 80, 27, 21)
$logincredits = GUICtrlCreateCheckbox("Netzwerkuser", 80, 110, 100, 17)
GUICtrlCreateLabel("Password:", 16, 155, 53, 17)
GUICtrlCreateLabel("User:", 16, 130, 29, 17)
$usrnet = GUICtrlCreateInput("", 80, 130, 140, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetState($usrnet, $GUI_DISABLE)
$pwdnet = GUICtrlCreateInput("", 80, 155, 140, 21, $ES_PASSWORD, $WS_EX_CLIENTEDGE)
GUICtrlSetState($pwdnet, $GUI_DISABLE)
$netlogin = GUICtrlCreateButton("login + map", 60, 180, 75, 25)
$mapDrive = GUICtrlCreateButton("run", 145, 180, 75, 25)


;~ prozess-tab
$TabSheet3 = GUICtrlCreateTabItem("Prozesse")
GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 12, 0)
$procs = GUICtrlCreateListView("pid|Anwendung", 16, 55, 300, 200, $LVS_REPORT, $LVS_EX_FULLROWSELECT)
$killproc = GUICtrlCreateButton("prozess beenden", 16, 260, 200, 25)


;~ share-tab
$TabSheet3 = GUICtrlCreateTabItem("shares")
GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 85, 0)
$shares = GUICtrlCreateListView("device|path", 16, 55, 300, 200, $LVS_REPORT, $LVS_EX_FULLROWSELECT)
$unmap = GUICtrlCreateButton("Netzlaufwerk trennen", 16, 260, 200, 25)
;~ 	$unmapall = GUICtrlCreateButton("remove all shares", 16, 185, 200, 25)


GUISetState(@SW_SHOW)


While 1
	$msg = GUIGetMsg()
	GUICtrlSetTip ( $file, GuiCtrlRead($file))
	GUICtrlSetTip ( $share, GuiCtrlRead($share))
	Select
		Case $msg = $GUI_EVENT_CLOSE Or $msg = $exit
			ExitLoop
;~ 		SuiCide()
		Case $msg = $netlogin
			_mapShare()
		Case $msg = $selectFolder
			_getFolder($share)
		Case $msg = $unmap
			_unMap()
		Case $msg = $logincredits
			If GUICtrlRead($logincredits) = 1 Then
				GUICtrlSetState($usrnet, $GUI_ENABLE)
				GUICtrlSetState($pwdnet, $GUI_ENABLE)
			Else
				GUICtrlSetState($usrnet, $GUI_DISABLE)
				GUICtrlSetState($pwdnet, $GUI_DISABLE)
			EndIf


		Case Else
			;;;;;;;
	EndSelect
WEnd
Exit


Func _mapShare()
	If GUICtrlRead($logincredits) = 1 Then
		$success = DriveMapAdd("*", GUICtrlRead($share), 0, GUICtrlRead($usrnet), GUICtrlRead($pwdnet))
	Else
		$success = DriveMapAdd("*", GUICtrlRead($share), 0)
	EndIf
	If $success Then
		MsgBox(64, "Connected", "Zugriff auf das Netzwerk erfolgreich!" & @CRLF & "Ressource wurde auf " & $success & " gemappt.")
		GUICtrlCreateListViewItem($success & "|" & GUICtrlRead($share), $shares)
	Else
		MsgBox(16, "Es ist ein Fehler aufgetreten!", "Zugriff auf das Netzwerk war nicht erfolgreich!")
	EndIf
EndFunc   ;==>_mapShare


Func _unMap()
	$drive = _GUICtrlListViewGetItemText ($shares, _GUICtrlListViewGetSelectedIndices ($shares), 0)
	$cshare = _GUICtrlListViewGetItemText ($shares, _GUICtrlListViewGetSelectedIndices ($shares), 1)
	If $drive <> "" Then
		DriveMapDel($drive)
		_GUICtrlListViewDeleteItem ($shares, $drive)
	ElseIf $cshare <> "" Then
		DriveMapDel($drive)
		_GUICtrlListViewDeleteItem ($shares, $cshare)
	EndIf
EndFunc   ;==>_unMap


Func _getFolder(ByRef $input)
	$sFolder = FileSelectFolder("Verzeichnis auswählen:", "", "", "::{208D2C60-3AEA-1069-A2D7-08002B30309D}")
	If Not @error = 1 Or $sFolder <> "" Then
		GUICtrlSetData($input, $sFolder)
	EndIf
EndFunc   ;==>_getFolder

Alles anzeigen

Unter dem Tab "Netzwerk" kannst Du Pfad + Login angeben und anschließend das Mapping durchführen. Unter dem Tab" shares kannst Du die Freigabe wieder aufheben.

neo

Danke erstmal für eure Antworten! Ihr habt mir schon weitergeholfen. @jonk - dein Script kann ich leider nicht ausführen...

Jetzt werd ich noch einen Automatischen Registry Eintrag reinhauen, so dass er mir das Netzlaufwerk beim starten automatisch verbindet.

Ausserdem werd ich noch Feld für den Domainnamen, Benutzername und Passwort erstellen... da werd ich sicher noch hilfe benötigen :lol:

jonk

was kam denn für eine Fehlermeldung? Ich habe es bei mir nämlich noch getestet. Versuche es mal mit der Beta-Version von Autoit, das hatte ich vergessen zu schreiben ....

neo

Habs mit der Beta gestartet!

Das ist der Fehler:

Code

D:\Programmierung\programm.au3(5,10) : ERROR: can't open include file <GuiListView.au3>
#Include <GuiListView.au3>
~~~~~~~~~^
D:\Programmierung\programm.au3(9,21) : ERROR: undefined macro.
$pid[0] = @AutoItPID
~~~~~~~~~~~~~~~~~~~~^
D:\Programmierung\programm.au3(166,99) : ERROR: _GUICtrlListViewGetSelectedIndices(): undefined function.
        $drive = _GUICtrlListViewGetItemText ($shares, _GUICtrlListViewGetSelectedIndices ($shares)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Programmierung\programm.au3(166,103) : ERROR: _GUICtrlListViewGetItemText(): undefined function.
        $drive = _GUICtrlListViewGetItemText ($shares, _GUICtrlListViewGetSelectedIndices ($shares), 0)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Programmierung\programm.au3(170,60) : ERROR: _GUICtrlListViewDeleteItem(): undefined function.
                _GUICtrlListViewDeleteItem ($shares, $drive)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Programmierung\programm.au3 - 5 error(s), 0 warning(s)

Alles anzeigen

jonk

hmm,

also die GuiListView.au3 ist bei mir im Ordner "Beta\includes" und Die Funktionen die da als undefiniert angezeigt werden sind auch in der UDF-Hilfe enthalten.

Bist Du Dir sicher das Du die Beta zum ausführen genommen hast . Welche Betaversion ists denn?

EDIT:
ich habe gerade mal in der History nachgeguckt, die Funktionen gibt es erst ab der v3.1.1.111 (beta).

neo

JO bin ich mir 100% sicher

Jetzt funktionierts :musik1:

thx

jonk

:kette:

neo

Doch bei meinem Script steck ich wieder mal

Also: Der Benutzer soll bestimmen können wo der Freigabepfad ist, den Netzlaufwerknamen, den Domainnamen und dazugehörig den Bentuzernamen und das Passwort. Wenn dann auf erstellen gedrückt wird, soll das Netzlaufwerk erstellt werden. Ist nun keine Domäne, Benutzer, PW eingetragen muss er das Netzlaufwerk halt ohne die Sachen anlegen..

Hier der code:

Code

#include <GUIConstants.au3>


$err = 0


GUICreate("Netzlaufwerk", 300, 300, 192, 125)


$erstellen = GUICtrlCreateButton("&Erstellen", 10, 250, 75, 25, 0)
$trennen = GUICtrlCreateButton("&Trennen", 90, 250, 75, 25, 0)
$abbruch = GUICtrlCreateButton("&Abbruch", 170, 250, 75, 25, 0)
$pfad = GUICtrlCreateInput("\\matrix-mobile\lbs4", 110, 14, 131, 21)
$lwname =  GUICtrlCreateInput("V:", 110, 44, 131, 21)
$domain = GUICtrlCreateInput("GMS", 110, 74, 131, 21)
$benutzer = GUICtrlCreateInput("", 110, 104, 131, 21)
$pwd = GUICtrlCreateInput("", 110, 134, 131, 21, $ES_PASSWORD)


GUICtrlCreateLabel("Pfad zur Freigabe:", 10, 14, 90, 13)
GUICtrlCreateLabel("Netzlaufwerkname:", 10, 44, 90, 13)
GUICtrlCreateLabel("Domainname:", 10, 74, 90, 13)
GUICtrlCreateLabel("Benutzername:", 10, 104, 90, 13)
GUICtrlCreateLabel("Passwort:", 10, 134, 90, 13)


GUISetState()






While 1
        $msg = GuiGetMsg()
        Select
        Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
        Case $msg = $erstellen
                LwVerbinden(GUICtrlRead($pfad), GUICtrlRead($lwname), GUICtrlRead($domain), GUICtrlRead($benutzer),  GUICtrlRead($pwd))
        Case $msg = $trennen
                LwTrennen()
		Case $msg = $abbruch
				ExitLoop
        EndSelect
WEnd


Func LwVerbinden($map)
        SplashTextOn("","Bitte Warten...",120,20,-1,-1,1)
         DriveMapAdd($lwname, $pfad, $domain, "\", $benutzer, $pwd, $map)
        If @error Then $err = @error
        SplashOff()
        If $err  <>  0 Then
                MsgBox(16,"","Das Netzlaufwerk ist bereits verbunden: "&$err)
        Else
                MsgBox(0,"Netzlaufwerk",$map&" wurde erfolgreich gespeichert!")
        EndIf
EndFunc


Func LwTrennen()
     DriveMapDel("V:")
     Exit
EndFunc

Alles anzeigen

jonk

also ich bekomme hier den Fehler

Y:\x\z\test\netmap.au3(40,23) : ERROR: LwVerbinden() previously called with 5 arg(s). Max = 1.
Func LwVerbinden($map)

Das liegt daran das Du die Funktion mit 5 Parametern aufrufst, obwohl laut Definition nur einer erlaubt ist:

Code

LwVerbinden(GUICtrlRead($pfad), GUICtrlRead($lwname), GUICtrlRead($domain), GUICtrlRead($benutzer),  GUICtrlRead($pwd))

... oder wo liegt Dein Problem?

jonk

so, ich habe Dein Skipt etwas angepasst, denn die Funktion DriveMapAdd hat keinen Parameter "Domain" daher kannst Du ihn auch nicht einsetzen.

Code

#include <GUIConstants.au3>


$err = 0


GUICreate("Netzlaufwerk", 300, 300, 192, 125)


$erstellen = GUICtrlCreateButton("&Erstellen", 10, 250, 75, 25, 0)
$trennen = GUICtrlCreateButton("&Trennen", 90, 250, 75, 25, 0)
$abbruch = GUICtrlCreateButton("&Abbruch", 170, 250, 75, 25, 0)
$pfad = GUICtrlCreateInput("\\matrix-mobile\lbs4", 110, 14, 131, 21)
$lwname =  GUICtrlCreateInput("V:", 110, 44, 131, 21)
$domain = GUICtrlCreateInput("GMS", 110, 74, 131, 21)
$benutzer = GUICtrlCreateInput("", 110, 104, 131, 21)
$pwd = GUICtrlCreateInput("", 110, 134, 131, 21, $ES_PASSWORD)


GUICtrlCreateLabel("Pfad zur Freigabe:", 10, 14, 90, 13)
GUICtrlCreateLabel("Netzlaufwerkname:", 10, 44, 90, 13)
GUICtrlCreateLabel("Domainname:", 10, 74, 90, 13)
GUICtrlCreateLabel("Benutzername:", 10, 104, 90, 13)
GUICtrlCreateLabel("Passwort:", 10, 134, 90, 13)


GUISetState()






While 1
        $msg = GuiGetMsg()
        Select
        Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
        Case $msg = $erstellen
                LwVerbinden()
        Case $msg = $trennen
                LwTrennen()
                Case $msg = $abbruch
                                ExitLoop
        EndSelect
WEnd


Func LwVerbinden()
        SplashTextOn("","Bitte Warten...",120,20,-1,-1,1)
         $map = DriveMapAdd(GUICtrlRead($lwname), GUICtrlRead($pfad),"",GUICtrlRead($domain)&"\"&GUICtrlRead($benutzer), GUICtrlRead($pwd))
        If @error Then $err = @error
        SplashOff()
        If $err   <>   0 Then
                MsgBox(16,"","Das Netzlaufwerk ist bereits verbunden: "&$err)
        Else
                MsgBox(0,"Netzlaufwerk",$map&" wurde erfolgreich gespeichert!")
        EndIf
EndFunc


Func LwTrennen()
     DriveMapDel("V:")
     Exit
EndFunc

Alles anzeigen

neo

aja! jetzt hab ich gecheckt

danke

jonk

immer wieder gerne

msp-holzwurm

GUICtrlRead($domain)&""&GUICtrlRead($benutzer),

geht das auch so??? (also mit dem Blank zwischendrin)

bisher hab ich mich immer genau an die Hilfe gehalten und
Domain\benutzername übergeben.

mal so als Anregung:

Mappe mit meiner Anwendung div. Laufwerke (automatisch von einem Autoit-Programm aus) damit mir da keiner Passworte ständig eingeben muß, hab ich mir ein
pwinput.exe gebaut, daß das Paßwort in einer username.pw verschlüsselt ablegt (den Schlüssel bau ich mir aus der IP-Nummer der Kiste (Punkte entfernt) und teile noch durch ne andere Nummer, die ich aus einer Ini-Auslesen kann.

So hab ich besser unter Kontrolle, was da irgendwelche User treiben, kann das mit einem AT-Kommande (also SYSTEM-User) laufen lassen und muß auch nicht jeden User in der Domäne einrichten.

Das kopieren der username.pw von einer auf die andere Kiste bringt für den "etwas fortgeschrittenen Möchtegernhacker" natürlich nichts, da beim entschlüsseln auf der Kiste ja wieder die IP-Nummer des Rechners verwendet wird.

Frage von mir:
mein Tool funktioniert schon soweit im Beta-Betrieb bei uns, das ganze soll jetzt zu einem Kommuniktionsserver ausgebaut werden, der ständig (alle 10 Sekunden Funktion A und um z.B. 09:30, 10:30 .. Uhr Funktion B ausführen soll.

Hat da einer schon praktische Erfahrungen mit sowas gesammelt?????

Will mir noch ein "dienstüberwachungskommando" bauen, das ich mit AT alle 30 Minuten laufen lasse, daß dann prüft:
läuft mein Kommunikationsserver als EXE im Hauptspeicher und gibt es eine Protokolldatei die neuer als 30 Minuten ist.

Wäre für jeden Tip dankbar.

Gruss

German

jonk

Hi,

Code

GUICtrlRead($domain)&""&GUICtrlRead($benutzer),

Du kannst auch einfach nur

Code

GUICtrlRead($domain) & GUICtrlRead($benutzer)

verweden. Wenn das Login dann immernoch das Format domain/user hat. Ohne "/" habe ich es
noch nicht getestet.

Zitat

mein Tool funktioniert schon soweit im Beta-Betrieb bei uns, das ganze soll jetzt zu einem Kommuniktionsserver ausgebaut werden, der ständig (alle 10 Sekunden Funktion A und um z.B. 09:30, 10:30 .. Uhr Funktion B ausführen soll.

also sowas wie einen Task-Scheduler in AutoIt? Sowas habe ich noch nicht gemacht, aber ich glaube im englischen Forum gab es mal sowas. Ich lasse bei uns nur autoit-skripte per Taskplaner bzw. von ncron ausführen.

Zitat

Will mir noch ein "dienstüberwachungskommando" bauen, das ich mit AT alle 30 Minuten laufen lasse, daß dann prüft:
läuft mein Kommunikationsserver als EXE im Hauptspeicher und gibt es eine Protokolldatei die neuer als 30 Minuten ist.

Ist beides kein Problem. Mit den Funktionen
ProcessExists ( "process" ),
FileExists ( "path" ) und
FileGetTime ( "filename" [, option [, format]] )
sollte das machbar sein.

Ich setze sollche Skripte für User gar nicht ein, da alle notwendigen Laufwerke bei der Anmeldung schon gemappt werden. Ich setzte mein Skript hauptsächlich ein, um bei Anwendern mal eben lokal oder im Netz etwas mit Adminrechten machen zu können.