Mapování disku v doméně

No tohle uděláš jen do přihlašovacího scriptu pošlu ti svůj, pokus se ho upravit na svůj případ Je to část mojeho login scriptu, funguje samostatně jen to stačí uložit v texťáku jako něco.vbs a nastavit si parametry serveru atd... problém je akorát pokud je někdo členem dvou a více skupin to potom musíš rozhodit písmena jednotek nějak rozumně ne stejně!! Dole ve scriptu neznamená x: písmeno jednotky X ale dosaď si jakou potřebuješ! Skupin si můžeš nadefinovat kolik chceš já jsem ti udělal jen vzor pro ADMIN a USER...''*************************************************** *********************** ' PŘIPOJENÍ DISKŮ PODLE SKUPIN ''******************************************************* ******************* Function isMemberOf(ByVal group) Dim user, found, temp found = False Set user = GetObject("WinNT://" & CreateObject("WScript.Network").UserDomain & "/" & CreateObject("WScript.Network").UserName & ",user") For Each temp In user.Groups If UCase(temp.Name) = UCase(group) Then found = True Exit For End If Next isMemberOf = found End Function ''*********************************************** *************************** ' NASTAVENÍ PROMĚNÝCH ''******************************************************* ******************* Dim network, fso Set network = CreateObject("WScript.Network") Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell = CreateObject("WScript.Shell") Dim Find, ReplaceWith, FileContents, dFileContents set wshshell = createobject("Wscript.Shell") set mojesit = Wscript.CreateObject("Wscript.Network") computername = mojesit.ComputerName set osvcRemote = GetObject("winmgmts:\\localhost\root\cimv2") set oOSInfo = osvcRemote.InstancesOf("Win32_OperatingSystem") ''*********************************************** *************************** ' NASTAVENÍ ZKRÁCENÉHO JMÉNA SKUPINY ''******************************************************* ******************* Const ADMIN = "SL_blabla_ADM" Const USER = "SL_blabla_USER"''*******************************… ******************************************* ' ZDE SE PRIPOJI DISK, POKUD JE CLENEM SKUPINY ''******************************************************* ******************* Set WshNetwork = WScript.CreateObject("WScript.Network") Set oDrives = WshNetwork.EnumNetworkDrives Set oPrinters = WshNetwork.EnumPrinterConnections ''*********************************************** *************************** ' Připojení disků pro skupinu ADMIN ''******************************************************* ******************* If isMemberOf(ADMIN) Then Network.MapNetworkDrive "x:", "\\server\složka" end if ''*************************************************** *********************** ' Připojení disků pro skupinu USER''*************************************************** *********************** If isMemberOf(USER) Then Network.MapNetworkDrive "x:", "\\server\složka" end if ''*********************************************** *************************** ' KONEC ČÁSTI SCRIPTU NA PŘIPOJENÍ DISKŮ PODLE SKUPIN ''******************************************************* *******************  Ukázat celý příspěvek

Dík super, vypadá to dobře.