C’\u00e8 stato chi mi ha detto “… semplice !!! …” io ho risposto ” … mica tanto …” perch\u00e8 si deve :<\/p>\n\n\n\n
1) evitare che al momento della connessione la “lettera di unit\u00e0” sia gi\u00e0 utilizzata<\/p>\n\n\n\n
2) evitare che la connessione sia attiva dall’ultimo logout<\/p>\n\n\n\n
Ho risolto approcciando il problema come segue :<\/p>\n\n\n\n
innanzi tutto ho deciso di usare alcune righe di codice di VBScript, in modo da avere il mio file con estensione vbs che, importato in una Group Policy, pu\u00f2 essere eseguito da qualsisi macchina in fase di login.<\/p>\n\n\n\n
In pratica, ad ogni utente, in fase di logon viene passato un file nomescript.vbs<\/em> che verr\u00e0 eseguito dalla macchina sulla quale si effettuta l’operazioni di accesso al Dominio. Una volta eseguito lo script, l’utente trover\u00e0 le sue condivisioni in Risorse del Computer.<\/p>\n\n\n\n A questo punto, per risolvere i problemi del punto 1 e 2, siamo obbligati a profilare le macchine che abbiamo nel nostro Dominio. Immaginiamo che ogni computer abbia queste unit\u00e0 di memoria :<\/p>\n\n\n\n a <\/strong>= floppy; c<\/strong> =hard disk 1; d<\/strong> = hard disk 2; e<\/strong> = lettore dvd 1; f<\/strong> = lettore dvd 2; g<\/strong> = penna usb 1; h<\/strong> = penna usb 2;<\/p>\n\n\n\n l’operazione che lo script dovr\u00e0 eseguire, quindi, sar\u00e0 quella di disconnettere tutti i drive di rete dalla lettera “i” alla lettera “z”, lo faremo con un ciclo for next, poi ricollegheremo tutte le condivisioni create ed impostate sul server che sar\u00e0 raggiungibile all’interno del Dominio attraverso un semplice \\\\server<\/em>. Lo script alla fine si presentava cos\u00ec :<\/p>\n\n\n\n Bene, vi ricordo che questo script essendo in VB potrete usarlo in qualsiasi situazione necessitiate automatizzare questa operazione al logon, anche senza Dominio impostandolo quindi sulla vostra macchina in : Pannello di controllo > Strumenti di amministrazione > Gestione Computer > Users > vostronomeutente<\/em><\/p>\n\n\n\n Buon lavoro !<\/p>\n","protected":false},"excerpt":{"rendered":" Oggi mi sono ritrovato a dover risolvere un problemino, non da poco, in un ambiente MS Active Directory. La questione era: Abbiamo n utenti di Dominio, vogliamo che ognuno, al momento del login, venga connesso automaticamente a delle condivisioni di …<\/p>\n' Imposto la condivisione della condivisione di rete
Option Explicit
Dim strRemotePath1, strRemotePath2, strRemotePath3, strRemotePath4
Dim strDriveLetter1, strDriveLetter2, strDriveLetter3, strDriveLetter4
Dim strDriveName1, strDriveName2, strDriveName3, strDriveName4
Dim objNetwork, objShell, objShellApp
Dim CheckDrive, intDrive
Dim bforce, bUpdateProfile,DriveLetter
bforce = \"True\"
bUpdateProfile =\"True\"
' Imposto i nomi dei drive ed i loro percorsi
strDriveLetter1 = \"Z:\"
strDriveLetter2 = \"W:\"
strDriveLetter3 = \"Y:\"
strDriveLetter4 = \"X:\"
strRemotePath1 = \"\\\\server\\Share1$\"
strRemotePath2 = \"\\\\server\\Share2$\"
strRemotePath3 = \"\\\\server\\archivio\"
strRemotePath4 = \"\\\\server\\scambio\"
strDriveName1 = \"Gruppo Lavoro 1\"
strDriveName2 = \"Gruppo Lavoro 2\"
strDriveName3 = \"Archivio\"
strDriveName4 = \"Archivio - Scambio\"
' Creo gli oggetti per lo script:
' objShell and objNetwork e conto i drive collegati
Set objShell = CreateObject(\"WScript.Shell\")
Set objNetwork = CreateObject(\"WScript.Network\")
Set objShellApp = CreateObject(\"Shell.Application\")
Set CheckDrive = objNetwork.EnumNetworkDrives()
' Uso un For ... Next loop
' Confronto il risultato del For con strDriveLetter
On Error Resume Next
For intDrive = CheckDrive.Count - 1 to 0 Step -2
DriveLetter=CheckDrive.Item(intDrive)
if Len(DriveLetter) = 2 And DriveLetter >=\"I:\" And DriveLetter <=\"Z:\" Then
WshNetwork.RemoveNetworkDrive DriveLetter, bforce, bUpdateProfile
End If
Next
' disconnetto e riconnetto dopo per sicurezza
' Messaggio di confema
objShell.PopUp \"Disconnesso tutti i drive di rete \",2,\"Drive di rete\"
objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1
objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2
objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath3
objNetwork.MapNetworkDrive strDriveLetter4, strRemotePath4
objShell.PopUp \"Connesso il drive di rete \" & strDriveLetter1 & VBCrlf & \"Connesso il drive di rete \" & strDriveLetter2 & VBCrlf & \"Connesso il drive di rete \" & strDriveLetter3 & VBCrlf & \"Connesso il drive di rete \" & strDriveLetter4 &VBCrlf & \"Le unit\u00e0 di rete del tuo gruppo sono state riconnesse\",2, \"Drive di rete\"
objShellApp.NameSpace(strDriveLetter1).Self.Name=strDriveName1
objShellApp.NameSpace(strDriveLetter2).Self.Name=strDriveName2
objShellApp.NameSpace(strDriveLetter3).Self.Name=strDriveName3
objShellApp.NameSpace(strDriveLetter4).Self.Name=strDriveName4
WScript.Quit<\/pre>\n\n\n\n![\"\"\/](\"images\/ADLogon\/ad-logonscript.jpg\")
<\/figure>\n\n\n\n