On Error Resume Next
Set Sgh=WScript.CreateObject("WScript.Shell")
r=MsgBox("             Este Proceso Restaura los tipos de archivo:" & chr(13) & "     exefile, comfile, cmdfile, batfile, piffile, scrfile y regfile." & chr(13) & chr(13) & "                   Y elimina Restricciones del Sistema." & chr(13) & chr(13) & "                         Pulse Aceptar para continuar.", vbOKCancel, "EliRestricciones v.1.0  S.G.H. / Satinfo S.L." )
If r=vbCancel Then WScript.Quit
Sgh.RegWrite "HKEY_CLASSES_ROOT\.exe\", "exefile"
Sgh.RegWrite "HKEY_CLASSES_ROOT\.com\", "comfile"
Sgh.RegWrite "HKEY_CLASSES_ROOT\.cmd\", "cmdfile"
Sgh.RegWrite "HKEY_CLASSES_ROOT\.bat\", "batfile"
Sgh.RegWrite "HKEY_CLASSES_ROOT\.pif\", "piffile"
Sgh.RegWrite "HKEY_CLASSES_ROOT\.scr\", "scrfile"
Sgh.RegWrite "HKEY_CLASSES_ROOT\.reg\", "regfile"
Sgh.RegWrite "HKEY_CLASSES_ROOT\exefile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*"
Sgh.RegWrite "HKEY_CLASSES_ROOT\comfile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*"
Sgh.RegWrite "HKEY_CLASSES_ROOT\cmdfile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*"
Sgh.RegWrite "HKEY_CLASSES_ROOT\batfile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*"
Sgh.RegWrite "HKEY_CLASSES_ROOT\piffile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*"
Sgh.RegWrite "HKEY_CLASSES_ROOT\scrfile\shell\open\command\", chr(34) & "%1" & chr(34) & " /S"
Sgh.RegWrite "HKEY_CLASSES_ROOT\regfile\shell\open\command\", "regedit.exe " & chr(34) & "%1" & chr(34)
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogoff"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetFolder"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetTaskbar"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoFileSharingControl"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoNetSetup"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoNetSetupIDPage"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoNetSetupSecurityPage"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableChangePassword"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableLockWorkstation"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoAdminPage"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoDispCPL"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoDispAppearancePage"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoDispBackgroundPage"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoDispScrSavPage"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoDispSettingsPage"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoSecCpl"
Sgh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\Disabled"
Sgh.Popup "EliRestriciones v.1.0  -  Proceso finalizado"