Newsgroup: it.comp.os.win.win2000
Titolo: Script x mappatura dischi

Ciao‚ forse non è il ng giusto ma……·
vorrei realizzare uno script per il logon su server 2000 che mi apra una
finestra di benvenuto e mi vengano mappati dei dischi in base ai gruppi di
appartenenza dell'utente·
Qualcuno sa darmi una dritta su come fare? e come bisogna svilupparlo (con
qualche consiglio riesco anche in VB)? .bat‚ .vbs‚ o altro?
1000 grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 anche in VB)? .bat‚ .vbs‚ o altro?
Credo che potresti partire da qui
http://www.microsoft.com/technet/prodtechnol/windowsserver2003/library/ServerHelp/8a268d3a-2aa0-4469-8cd2-8f28d6a63080.mspx
http://computerperformance.co.uk/Logon/logon_scripts.htm
http://labmice.techtarget.com/scripting/logonscripts.htm
e, nel caso ti servissero ulteriori dettagli, posta di nuovo
una richiesta qui o ... su "
news.microsoft.com
"
Ciao e buone feste
-- 
* ObiWan
Microsoft MVP: Windows Server - Networking
http://www.microsoft.com/communities/MVP/MVP.mspx
http://italy.mvps.org
DNS "fail-safe" for Windows 2000 and 9X clients.
http://www.treewalkdns.com
Support and discussions forums/groups
http://forums.treewalkdns.com
news://
news.treewalkdns.com
408 XP/2000 tweaks and tips
http://www.treewalkdns.com/tq/index.htm


 Ciao,
molto interessante i link che mi hai proposto.. però ora le mie conoscenze
si limitano a non capire perché non funziona lo script, ovvero non esegue la
mappatura dischi.
ti Riporto l'esempio
Option Explicit
on error resume next
Const Amministrazione_Group ="cn=Amministrazione"
dim wshNetwork, strGroups, ADSysInfo, CurrentUser
'MAPPATURA DISCHI
set wshNetwork=CreateObject("WScript.Network")
Set ADSysInfo = CreateObject("ADsystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = Lcase(Join(CurrentUser.MemberOf))
if InStr(strGroups, Aministrazione_Group) then
	wshNetwork.MapNetworkDrive "L:","\\matrix\amministrazione\"
end if
dove sbaglio???


 end if
Io l'ho provato e funziona (ovviamente ho cambiato la
\\matrix\amministrazione e il cn=Amministrazione che non ho).
Saluti, e Buone Feste.


          Ciao,
ho tolto "\" come mi hai consigliato ed ho riprovato senza esito
purtroppo....
non sai dirmi cos'altro potrei controllare....
Saluti



commenta la riga
on error resume next
così se si verifica un errore ti viene restituito un messaggio
HTH
-- 
Stefano Zamboni - 
zam...@freemail.it
Leggi di Manubay per i programmatori:
1) Se la modifica di un programmatore a un programma esistente funziona,
probabilmente non era quello che voleva il cliente.
2) Il cliente non sa quello che vuole, ma sa quello che non vuole.

 Inviato via 
http://arianna.libero.it/usenet/
Poi quando hai verificato e messo apposto togli le righe di debug.
Ciao e Buone Feste.

Ciao,
ho provato come mi avete detto a debuggare e mi sono accorto che non cicla
sui MemberOF, ovvero si ferma al primo gruppo:
Const Amministrazione_Group ="cn=amministrazione"
Const Sam_Group ="cn=sam"
Const EDP_Group ="cn=edp"
Const Skedula_Group ="cn=skedula"
Const ALFA_Group ="cn=alfa"
Const ALFAGRANDI_Group ="cn=alfagrandi"
Const SAM2000_Group ="cn=sam2000"
Const IVELA_Group ="cn=ivela"
Const ALIVE_Group ="cn=alive"
Const ETICHETTE_Group ="cn=etichette"
dim network,filesystem,shell, internetExplorer, env
dim wshNetwork, strGroups, ADSysInfo, CurrentUser
Set network=wscript.createObject("WScript.Network")
Set filesystem=CreateObject( "Scripting.FileSystemObject" )
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
'=====================================================================================
' MAPPATURA DISCHI
'=====================================================================================
strGroups = Lcase(Join(CurrentUser.MemberOf))
For Each strGroups in CurrentUser.MemberOf
        if InStr(strGroups, IVELA_Group) > 0 then
                ScollMap "L:"
                network.MapNetworkDrive "L:","\\matrix\public"
                ScollMap "T:"
                network.MapNetworkDrive "T:","\\matrix\tecnico"
                ScollMap "I:"
                network.MapNetworkDrive "I:","\\matrix\imq"
                ScollMap "P:"
                network.MapNetworkDrive "P:","\\matrix\" + user
        elseif InStr(strGroups, Amministrazione_Group) > 0 then
                ScollMap "G:"
                network.MapNetworkDrive "G:","\\matrix\Amministrazione"
        elseif InStr(strGroups, Sam_Group) > 0 then
                ScollMap "M:"
                network.MapNetworkDrive "M:","\\matrix\sam"
        elseif InStr(strGroups, EDP_Group) > 0 then
                ScollMap "R:"
                network.MapNetworkDrive "R:","\\matrix\edp"
                ScollMap "M:"
                network.MapNetworkDrive "M:","\\jeeg\tecnico"
        elseif InStr(strGroups, Skedula_Group) > 0 then
                ScollMap "F:"
                network.MapNetworkDrive "F:","\\matrix\skedula"
        elseif InStr(strGroups, ALFA_Group) > 0 then
                ScollMap "V:"
                network.MapNetworkDrive "V:","\\matrix\GALILEO60"
        elseif InStr(strGroups, ALFAGRANDI_Group) > 0 then
                ScollMap "V:"
                network.MapNetworkDrive "V:","\\192.168.2.82\GALILEO60"
        elseif InStr(strGroups, SAM2000_Group) > 0 then
                ScollMap "S:"
                network.MapNetworkDrive "S:","\\matrix\sam2000"
        elseif InStr(strGroups, ALIVE_Group) > 0 then
                ScollMap "L:"
                network.MapNetworkDrive "L:","\\matrix\public"
                ScollMap "T:"
                network:MapNetworkDrive "T:","\\matrix\tecnico"
        elseif InStr(strGroups, ETICHETTE_Group) > 0 then
                ScollMap "K:"
                network.MapNetworkDrive "K:","\\matrix\etic"
        end if
Next
Private Sub ScollMap(driveName)
'Se il drive è già mappato allora scollegalo
If filesystem.DriveExists(driveName) = True Then
network.RemoveNetworkDrive driveName, , True
End If
End Sub


Ciao,
ho risolto il problema sostituendo la stringa:
if InStr(strGroups, IVELA_Group) > 0 then
con
if InStr(strGroups, "CN=IVELA") > 0 then
ora però mi sono accorto che sui client 2000 e Xp mappa correttamente le
unità, mentre sui 9x no...da cosa può dipendere?
Grazie e buon anno


 Grazie e buon anno
...
Ricambio gli auguri.
Non ho l'esperienza diretta per risponderti.
Hai installato sul Win98 il Client per Active Directory? sai questo S.O.
l'Active Directory non sa proprio cosa sia a meno che non installi il
client e non credo applichi le policy allo stesso modo degli XP/2000 .
Alla peggio prova con l'inserire lo script direttamente nel logonscript
dell'utente nella gestione utenti del server.
Fammi sapere sono curioso.
Saluti. Lu