Nenhuma resposta neste tópico

[acooper]

Caros, o problema é o seguinte, estamos migrando Novell para Windows, assim os diretórios dos usuários com as iniciais deles, quando eu migro para o Windows os direitos ficam como Full para USERS.

Quero que tire o Full do USERS e adicione para o usuário do diretório que é o mesmo das iniciais do diretório, exemplo:
Andre Figueiredo ( Iniciais AF ) ( Diretório AF )

Já consegui com eu abra uma janela e digite as iniciais do usuários, que muda de Full USER para Full das Iniciais. O ideal seria ler uma lista de iniciais e associar aos diretórios mudando as permissões.

Caros, o técnico já conseguiu fazer o Script, ficando da seguinte forma:

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
("C:\users\usuarios.xls")
intRow = 1

Do Until objExcel.Cells(intRow,1).Value = ""

Set objShell = CreateObject("WScript.Shell")

objShell.Run "cscript XCACLS.vbs "& objExcel.Cells(intRow, 1).Value &" /g NET\"& objExcel.Cells(intRow, 1).Value &":F /g NET\administrator:F /I remove"




intRow = intRow + 1
Loop
objExcel.Quit

Edição feita por: acooper, 21/09/2006, 17:49.