persze (bár az archívumban már benne van)
2012/1/30 Nagel Istvan <[email protected]>
>> nekem több meghajtót csatol fel jogosultság szerint kinek mennyi van
>> engedve,
>
>
> Ez a megoldás jobban tetszik, megosztanád a fájlodat?
>
Egy kicsit tovább fejlesztettem (bár nem értek a script íráshoz) mivel
van egy elég nagy hibája ennek a scriptnek, nevezetesen, hogy hibás
felhasználónévvel és/vagy jelszóval is lefut visszajelzés nélkül. Erre
azt a megoldást "trükköt" találtam ki, hogy a home könyvtár meglétét
vizsgálom meg (nálam ez H meghajtó) mert ha ez megvan akkor helyes
volt az autentikáció és megy tovább ha viszont nincs H meghajtó, dob
egy hibaüzenetet és fent marad a bejelentkező ablak. Egyébként
window.close().
(Ha tudja valaki hogy kell valóban user/pass ellenőrzést csinálni azt
szívesen veszem.)
Hogy kinek melyik megosztáshoz van joga azt a samba szabályozza (valid
users = @tanulok, @tanarok)
íme a kód:
<script language="VBScript">
<!--
Sub OKButton_OnClick
Dim net
Set net = CreateObject("WScript.Network")
driveletter = "h:"
name = UserNameBox.value
name = Trim(name)
pswd = PasswordBox.value
pswd = Trim(pswd)
UserNameBox.value = ""
PasswordBox.value = ""
CheckNetworkDrive = False
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "net use h: \\nori\homes /PERSISTENT:NO " & pswd & "
/user:" & name,,True
For Each Drive In net.enumNetworkDrives
If LCase(Drive) = LCase(driveletter) Then
WshShell.Run "net use t: \\nori\tanulo /PERSISTENT:NO " & pswd
& "
/user:" & name,,True
WshShell.Run "net use t: \\nori\tanulok /PERSISTENT:NO " & pswd
& "
/user:" & name,,True
WshShell.Run "net use k: \\nori\tanarok /PERSISTENT:NO " & pswd
& "
/user:" & name,,True
WshShell.Run "net use p: \\nori\publikus /PERSISTENT:NO " &
pswd & "
/user:" & name,,True
WshShell.Run "net use o: \\nori\igazgatok /PERSISTENT:NO " &
pswd &
" /user:" & name,,True
WshShell.Run "net use z: \\nori\gazdasagi /PERSISTENT:NO " &
pswd &
" /user:" & name,,True
WshShell.Run "net use i: \\nori\install /PERSISTENT:NO " & pswd
& "
/user:" & name,,True
WshShell.Run "explorer"
window.close()
CheckNetworkDrive = True
End If
Exit For
next
If CheckNetworkDrive = False Then
MsgBox "Hibás felhasználónév VAGY jelszó!"
End If
End Sub
'-->
</script>
--
Robert
_______________________________________________
Techinfo mailing list
[email protected]
Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo
Illemtan: http://www.szag.hu/illemtan.html
Ügyfélszolgálat FAQ: http://www.kozhaloportal.hu/gyik/altalanos/
