CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

fiskerendk Nybegynder

26. april 2005 - 10:11 Der er 7 kommentarer og
1 løsning

VBScript til oprettelse af bruger mapper

Hej

Jeg vil høre om der er nogen der kunne hjælpe med et VBscript som skal oprette en mappe på en server for hvert brugernavn der findes i en OU i Active Directory

Altså jeg skal bruge et script der på vores webserver kan følgende..

Oprette en mappe i

C:\wwwroot\%username% dette skal passe med active directory i en OU der ligger under domæne.com\Elever\%username%

Mappen på webserveren skal således ha alle rettigheder på sin egen mappe derudover skal der selvfølgelig være IUSR adgang på read niveau til disse så alle kan se dem via webserveren.

Dertil skal det kunne være et script der skal kunne oprette elever på dags basis, dvs hvis der idag kommer en ny elev skal den kører scriptet og KUN oprette den nye elev uden at overskrive de gamle er det helt hen i vejret?

Med Venlig Hilsen
Thomas Nissen

Synes godt om

killerclown Nybegynder

26. april 2005 - 10:31 #1

Hej Thomas !
Dette script kører hele \elever OU'en igennem, og opretter eventuelle mapper, der ikke eksisterer i forvejen på serveren.

Set fso = CreateObject("Scripting.FileSystemObject")
Set oTargetOU = GetObject("LDAP://OU=Elever,dc=domæne,dc=com")
oTargetOU.Filter = Array("user")
For each usr In oTargetOU
strnavn = usr.samaccountname
If Not fso.folderexists ("C:\wwwroot\" & strnavn) Then
fso.createfolder "c:\wwwroot\" & strnavn
End If
Next

M.h.t. rettighederne, bør du sætte dem på wwwroot, og nedarve dem derfra.

/Killer

Synes godt om

fiskerendk Nybegynder

26. april 2005 - 10:44 #2

Ok ser godt ud tak..
Med hensyn til rettighederne er det jo rimelig vigtigt at disse netop ikke bliver nedarvet.. Jeg kan sagtens nedearve IUSR men det kan jeg ikke med hver elevs rettigheder til sin egen mappe/websted.. da de jo ikke skal ha rettighed til at rette i hinandens..

Synes godt om

killerclown Nybegynder

26. april 2005 - 12:07 #3

OK ....
Du kan bruge cacls til dette.
Prøv denne :

Set shell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set oTargetOU = GetObject("LDAP://OU=Elever,dc=domæne,dc=com")
oTargetOU.Filter = Array("user")
For each usr In oTargetOU
strnavn = usr.samaccountname
If Not fso.folderexists ("C:\wwwroot\" & strnavn) Then
fso.createfolder "c:\wwwroot\" & strnavn
strrettighed = "%comspec% /c cacls c:\wwwroot\" & strnavn & " /E /G " & strnavn & ":F"
shell.run strrettighed,0,True
End If
Next

/Killer

Synes godt om

killerclown Nybegynder

15. maj 2005 - 12:38 #4

Hey Thomas !
Hvordan ser det ud ?
/Killer

Synes godt om

killerclown Nybegynder

07. juni 2005 - 23:56 #5

Øøøøhm.
Thomas ?

Synes godt om

fiskerendk Nybegynder

02. august 2005 - 10:06 #6

Hej Killerclown > du må undskylde har haft en masse ferie og har slet ikke haft tid til alt det her :D Jeg er netop vent tilbage på arbejde.. og vil nu tjekke det.. Mvh Thomas

Synes godt om

fiskerendk Nybegynder

02. august 2005 - 10:35 #7

Virker jo perfekt.. takker mange gange.. og endnu engang undskyld den lange ventetid..

Synes godt om

fiskerendk Nybegynder

02. august 2005 - 10:43 #8

Dog vil jeg lige høre om en enkelt ting? er det meget svært at få den til at gå ned i OU'er..

Lad os sige at vi har en struktur der hedder

domæne.dk
- Elever
-- Gruppe1
--- Bruger1
--- Bruger2
--- Bruger3
-- Gruppe2
--- Bruger4
--- Bruger5
--- Bruger6

Og jeg vil gerne ha den til at kigge i Elever.. Så laver den en mappe der hedder Gruppe1 indeholdende en mappe for hver Bruger1-2-3 og en mappe der hedder Gruppe2 indeholdende en mappe for hver bruger4-5-6..

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Ændre navn på folder Af bsn i VBscript	12	07/07/202312:45	09/07/202307:04
Outlook makro Af Webnoob i VBscript	6	09/02/202313:32	16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript	10	07/10/202200:43	07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript	2	22/04/202213:23	22/04/202214:55
Batch fil Af BDV i VBscript	1	12/01/202210:00	12/01/202210:05

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS