Help Mapowanie całego Nasa w jednym dysku sieciowym

[piotrp345]

Dzień dobry,
czy jest możliwość zarówno w sieci lokalnej jak i po VPN, aby zmapować wszystkie foldery w jednym dysku sieciowym? Efekt chciałbym taki, aby był jeden dysk sieciowy na komputerze i po wpisaniu loginu, i hasła użytkownika miał dostęp tylko do przypisanych folderów w Nasie? Wiem, że mogę dodawać kolejne udziały na danych komputerach, ale gdy jest x użytkowników i x folderów to robi się to trochę męczące.

 

[SiewcaRyżu]

jest coś takiego jak PORTAL SMB , ale to jest statyczna grupa folderów udostępnionych

zrób do tego skrypt albo mapuj za pomocą GPO jak jesteś w domenie.

użycie net use jest opisane na forum X razy .. łącznie z paroma programami co to ułatwiają : Pomoc - Problem ze zmapowaniem dysków z QNAPA w Windows 7 PRO 64, gubi się mapowanie?

 

[piotrp345]

Połączony jestem przez VPN i pinguje 10.6.0.1. Napisałem taki skrypt nie działa.

Option Explicit
Dim objNetwork
Dim strServer, strUser, strPwd
Dim strRemotePath()
Dim strDriveLetter()

Const iMapTotal = 12
Redim strRemotePath(iMapTotal)
Redim strDriveLetter(iMapTotal)

Set objNetwork = CreateObject("WScript.Network")

strServer = "10.6.0.1"
strUser = "login" login podałem
strPwd = "hasło" hasło równie podałem

strDriveLetter(0) = "Z:"
strDriveLetter(1) = "Y:"
strDriveLetter(2) = "U:"
strRemotePath(0) = "\\" & strServer & "\admin"
strRemotePath(1) = "\\" & strServer & "\damian"
strRemotePath(2) = "\\" & strServer & "\ewa"


Dim objPing, objRetStatus
Dim Ping

Ping = False
Do while Ping = False
set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select * from Win32_PingStatus where address = '" & strServer & "'")

For Each objRetStatus in objPing
If IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode <> 0 Then
Ping = False
Else
Ping = True
End if
Next
Loop

Dim iCnt
For icnt = 0 to iMapTotal -1
objNetwork.MapNetworkDrive strDriveLetter(iCnt), strRemotePath(iCnt),,strUser,strPwd
Next

 

[SiewcaRyżu]

mam nadzieje że login ma formę "NAZWA_NAS\USER_NAS"

 

[piotrp345]

mam nadzieje że login ma formę "NAZWA_NAS\USER_NAS"

"10.6.0.1\piotr"
"nazwa_nas\piotr"
nie działają. Chyba, że mam stworzyć użytkownika "10.6.0.1\piotr"

 

[SiewcaRyżu]

mój nas nazywa sie kanapa
i logowanie wygląda "kanapa\pigers"

mam nadzieje ze nie pracujesz na Windowsie XP ? bo tam jest inny problem

 

[piotrp345]

mój nas nazywa sie kanapa
i logowanie wygląda "kanapa\pigers"

mam nadzieje ze nie pracujesz na Windowsie XP ? bo tam jest inny problem

niestety po nazwie nie działa. WIN 10