IF (fso.FolderExists(sharedDrive)) THEN IF NOT fso.Driveexists(sharedTo & "\") THEN Call Net.MapNetworkDrive(sharedTo, sharedDrive, True) oshell.NameSpace(sharedTo).Self.Name = "Shared" END IF END IF
er det ikke smartere at benytte AD til at angive dette ? (det er da ihvertfald nemmere) (højreklik på brugeren i AD vælg homepath angiv: \\server\share\%username% så oprettes mappen automatisk med de rette rettigheder, og deler du mappen med navnet shared$ bliver den skjult for andre brugere og skal så angives således: \\server\share$\%username%
Du kan markere alle brugere i en OU og derved få den automatisk til at oprette mapperne, med den simple linie.
Hmm .. Jeg er egentlig enig med screem_brille. Umiddelbart blev jeg lidt forvirret over duín kode, men jeg tror det er noget i denne stil, du er ude efter :
Dim Net, fso, oShell Set fso = CreateObject("Scripting.FileSystemObject") Set Network = CreateObject("Wscript.Network") Set oShell = CreateObject("Shell.Application") username = network.username Dim sharedTo Dim sharedDrive sharedTo = "F:" sharedDrive = "\\Demosrv01\data3\" & username If (fso.FolderExists(sharedDrive)) THEN IF Not fso.Driveexists(sharedTo & "\") THEN Network.MapNetworkDrive sharedTo, sharedDrive, True oshell.NameSpace(sharedTo).Self.Name = "Shared" End IF END If
Jeg prøver det lige imorgen... jeg har desværre ikke lige haft tid til at afprøve det endnu. :-)
Men tak for dit indlæg.
Tommy
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.