Avatar billede ajvm Nybegynder
17. marts 2006 - 14:38 Der er 1 løsning

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")
Avatar billede ajvm Nybegynder
23. marts 2006 - 15:40 #1
Hej .
Efter nogen tids søgen på nettet fandt jeg frem til dette:
mvh


Set objWMI = GetObject("winmgmts:")
          strQuery = "select * from win32_account where Domain='BUILTIN' or Domain='" & strComputerName & "'"
          Set objResult = objWMI.ExecQuery(strQuery)
          For Each objUser In objResult
            If objUser.SID = "S-1-5-32-544" Then
              Adminsgrp = objUser.Name
            End If
            If objUser.SID = "S-1-5-32-545" Then
              Usersgrp = objUser.Name
            End If
          Next
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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