[amel27]

boss911, где-то так:

Код:

Set objShell = WScript.CreateObject("WScript.Shell")

strPrograms = objShell.ExpandEnvironmentStrings("%ProgramFiles%")
strWinDir   = objShell.ExpandEnvironmentStrings("%WinDir%")

AttribFolder strPrograms & "\Microsoft.NET", 2
AttribFolder strPrograms & "\Microsoft Office", 2

AttribFile strWinDir & "\regedit.exe", 2
AttribFile strWinDir & "\winhelp.exe", 2

'--------------------------
'Пользовательские процедуры
'--------------------------
Sub AttribFolder(strPath, intAttrib)
  Dim objFSO, objDIR

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objDIR = objFSO.GetFolder(strPath)

  objDIR.Attributes = intAttrib
End Sub
'--------------------------
Sub AttribFile(strPath, intAttrib)
  Dim objFSO, objFLE

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFLE = objFSO.GetFile(strPath)

  objFLE.Attributes = intAttrib
End Sub
'--------------------------