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
Kommunerne har digitaliseret indgangen for borgerne. Men bag skærmen håndteres mange arbejdsgange stadig manuelt mellem systemer, mails og organisatoriske siloer.
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.