BUILTIN grupper i forskellige sprog.
Hej.Dette spørgsmål er nok mere et StyreSystem og CACLS spørgsmål. Men dette er en del af et større VBScript, så nu ligger det her.
Det handler om WinNT4.0 , Windows 2000 til Win 2003 Server.
Kan også acceptere at det kun virker fra Win2000 og frem.
Jeg skal give grupperne BUILTIN\Administrators og BUILTIN\Users henholdsvis Full og ReadOnly rettigheder til en given folder.
Problemmet er engelsk , dansk , norks , svensk og andre Windows sprog-versioner, ikke bruger de samme gruppe navne.
Jeg har lavet følgende, men den virker f.eks ikke på finsk.
Og ligeledes virker det ikke, hvis der er oprettet en gruppe som f.eks. BrugereAfWord
mvh AJVM.
strComputer = "."
Set Domain = GetObject("WinNT://" & strComputer)
For Each Member In Domain
If Member.Class = "Group" Then
If InStr(1, Member.Name, "User") = 1 Then 'English
Usersgrp = Member.Name
End If
If InStr(1, Member.Name, "Anve") = 1 Then 'Swedish
Usersgrp = Member.Name
End If
If InStr(1, Member.Name, "Brug") = 1 Then 'Dansk
Usersgrp = Member.Name
End If
If InStr(1, Member.Name, "Bruk") = 1 Then 'Norsk
Usersgrp = Member.Name
End If
If InStr(1, Member.Name, "Admini") = 1 Then
Adminsgrp = Member.Name
End If
End If
Next
'Create and run .BAT file
Set ft = fso.OpenTextFile(TempDir & "\aclset.bat", 2, True)
ft.Writeline sysdrv
ft.Writeline "cd \"
ft.Writeline "cd """ & MinFolderfld & """"
ft.Writeline "cacls . /E /G ""BUILTIN\" & Adminsgrp & ":F"" ""BUILTIN\" & Usersgrp & ":R"""
ft.Writeline "Exit"
ft.Close
Call regedit.Run(TempDir & "\aclset.bat")