Ver Mensaje Individual
  #4 (permalink)  
Antiguo 16/03/2008, 14:44
Avatar de dogduck
dogduck
 
Fecha de Ingreso: enero-2006
Ubicación: ¿Atlantida, Hesperides, Islas afortunadas?
Mensajes: 2.231
Antigüedad: 18 años, 10 meses
Puntos: 19
Re: comando cacls para grupos ¿como?

Vas a tener que tirar de WMI y vbs :

http://www.nocturnabsas.com.ar/forum...un-idioma.html
Cita:
rem script WMI en vbs que da el nombre del grupo administradores en el idioma del sistema
Ordenador = "."
Set ServicioWMI = GetObject("winmgmts:\\" & Ordenador & "\root\cimv2")
Set Cuenta = ServicioWMI.Get ("Win32_SID.SID='S-1-5-32-544'")
Wscript.Echo Cuenta.AccountName
Siguiendo esa idea podrias:

Sabiendo que el SID conocido para el grupo local Todos es: S-1-1-0

Código:
rem lanza_permisos.cmd
@echo off
if not exist c:\grupotodos md c:\grupotodos
rem el script en vbs debe de crear un fichero todos.txt con una linea con el nombre_grupo_todos
averigua_nombre_grupo_local_todos.vbs
set nombre_grupo_todos =
FOR /F "eol=; tokens=1* delims=: " %%i in (c:\grupotodos\todos.txt) do SET nombre_grupo_todos=%%i 
cacls c:\carpeta /E /G %nombre_grupo_todos%:C
rem by javacasta - http://javcasta.es
Código:
'averigua_nombre_grupo_local_todos.vbs

'hay que crear fichero todos.txt con el nombre del grupo local todos
Ordenador = "."
Set ServicioWMI = GetObject("winmgmts:\\" & Ordenador & "\root\cimv2")
Set Cuenta = ServicioWMI.Get ("Win32_SID.SID='S-1-1-0'")
'Wscript.Echo Cuenta.AccountName
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd /c  echo " & Cuenta.AccountName & " > c:\grupotodos\todos.txt"
Navegando he encontrado esto por si te interesa documentarte:
script para modificar permisos


http://www.microsoft.com/spain/techn...5/hey1102.mspx

http://support.microsoft.com/kb/288900/es

http://support.microsoft.com/kb/328889/es

salu2

Última edición por dogduck; 16/03/2008 a las 14:54