Set Registry Permissions

‘ Create a temp file with the script that regini.exe will use

set oFSO = CreateObject(“Scripting.FileSystemObject”)
strFileName = oFSO.GetTempName
set oFile = oFSO.CreateTextFile(strFileName)
oFile.WriteLine “HKEY_LOCAL_MACHINE\Software\Classes\AlejaCMaTypelib [1 5 7 11 17]”
oFile.WriteLine “HKEY_LOCAL_MACHINE\Software\AlejaCMaCo\AlejaCMaApp [1 5 7 11 17]”
oFile.Close

‘ Change registry permissions with regini.exe

set oShell = CreateObject(“WScript.Shell”)
oShell.Run “regini ” & strFileName, 8, true

‘ Delete temp file

oFSO.DeleteFile strFileName

WScript.Echo “Done!”

email me