bolug bonner linux user group
news about wissen files archive hilfe suchen  

 

archive :: SchAN-User

druckfassung

SchAN-User

Re: [Schan-user] Windows 7 Arktur-Netzlaufwerke mounten

To: jfiebig@xxxxxxxxxx, schan-user@xxxxxxxxxxxxxxxxx
Subject: Re: [Schan-user] Windows 7 Arktur-Netzlaufwerke mounten
From: d.simons@xxxxxxxx
Date: Sat, 5 Oct 2013 19:21:17 +0200 (CEST)
Hallo Jörg, Hallo Helmut

vielen lieben Dank. Jetzt klappt alles.
Hab allhomes.txt nach Helmuts Anleitung erstellt.
Die smb.conf und Jörg's Skript dann wie folgt abgeändert, so dass Schüler jetzt 
- auf ihr Homeverzeichnis schreibend und lesend zugreifen können
- auf pub (/home/adm) lesend zugreifen können
und Lehrer
- auf ihr Homeverzeichnis schreibend und lesend zugreifen können
- auf pub (/home/adm) lesend und schreibend zugreifen können
- auf allhomes (/home/adm) lesend und schreibend zugreifen können

und nur der Lehrer mit fachl-Zugriff das /home sehen kann, die Schüler nicht.




/etc/samba/smb.conf

Änderungen
[pub]
        comment         = Unterrichtsmaterial
        path            = /home/adm
        read only       = yes
        public          = no
        read list       = @schueler, @lehrer, @adm
        invalid users   = @klausur
        wide links      = yes
        write list      = adm,@fachl
        inherit acls    = yes
#       veto oplock files       = /*.wav/*.gif/ 
        veto files      = /autorun.inf/
        # gegen conficker


Am Ende....

#
        include         = /etc/samba/smb.conf.proj
        include         = /etc/samba/allhomes.txt
#       include         = /etc/samba/profile.txt
#       include         = /etc/samba/drucker.txt
#       include         = /etc/samba/homepage.txt
#       include         = /etc/samba/pdf.txt
#       include         = /etc/samba/Klausur.txt
#       include         = /etc/samba/backup.txt



Skript von Jörg:

; Home_Schueler:
$LW1="U:"
; pub:
$LW2="V:"
; home_all:
$LW3="W:"
; tmp:
;$LW4="X:"
;Servername
$Server="\\192.168.0.1\"

$LWB=""
$un=""
$pw=""


;Das Programm :-)
_anmeldevorgang()

;Was es macht
Func _anmeldevorgang()
_trennen()
_anmelden()
_verbinden()
_beenden()
EndFunc

; Trennen der Netzwerklaufwerke vom ersten bis zum letzten - siehe 
Vereinbarungen
Func _trennen() 
;   For $LWBN=$eNWL to $lNWL
;          $LWB=chr($LWBN)&":"
;          DriveMapDel($LWB)
;  Next
   
; oder nur die typischen Arktur Laufwerke  - dann oben auskommentieren und hier 
aktivieren
;DriveMapDel("T:")
;DriveMapDel("P:")
DriveMapDel("U:")
DriveMapDel("V:")
DriveMapDel("W:")
;DriveMapDel("X:")
EndFunc 

;Func _anmeldung()
;$un = InputBox("Bitte Anmeldename eingeben","Benutzername:","", " M", 390, 130)
;$pw = InputBox("Bitte Kennwort eingeben","Kennwort:","","*M", 380, 130)
; das M verhindert leere Eingaben - dahinter Breite und Höhe - wobei die 
Minimalhöhe 115 auch interessant wäre!
; EndFunc 

Func _anmelden()

; Eingabemaske ohne Titelleistensteuerelemente
$EMaske = GUICreate("Serveranmeldung",200,58, -1, -1,0x00C00000)
$name = GUICtrlCreateInput ("Nutzername",20,2,120,22)
; Passworteingabe mit Punkten
$pass = GUICtrlCreateInput ("Passwort",20,32,120,22,0x0020)
$los = GUICtrlCreateButton ("OK",145,4,50,50)
GUISetState(@SW_SHOW)
While 1
        $msg = GuiGetMsg()
                
        If $msg = $los Then
           $un = GUICtrlRead ($name) 
           $pw = GUICtrlRead ($pass) 
           ExitLoop
    EndIf

WEnd
$EMaske = GUIDelete()
EndFunc 

Func _verbinden()

DriveMapAdd($LW1, $Server&"homes", 0, $un, $pw)

If @error <> 0 then
    $FNr=@error
    Msgbox(0,"Fehler "&$FNr,"Anmeldedaten falsch!")
        ;_anmeldevorgang()
        exit
 else
        DriveMapAdd($LW2, $Server&"pub", 0, $un, $pw)
        If $un = "hhlehrer" Then
    DriveMapAdd($LW3, $Server&"allhomes", 0, $un, $pw)
        ;DriveMapAdd($LW4, $Server&"tmp", 0, $un, $pw)
        EndIf
    Msgbox(0,"OK ","Netzlaufwere gemountet (=> Computer)!")
EndIf

EndFunc 

Func _beenden() 
Exit 
EndFunc 

_______________________________________________
schan-user mailing list
schan-user@xxxxxxxxxxxxxxxxx
http://www.heise.de/bin/newsletter/listinfo/schan-user

 

seitenanfang


 

news about wissen files archive hilfe suchen  
kontakt letzte änderung: 05.10.2013