API tools faq
paste
Advertisement
Guest User

Windows 10 Script v4

a guest
Aug 20th, 2015
853
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 36.68 KB | None | 0 0
raw download clone embed print report
  1. Set oWSH = CreateObject("WScript.Shell")
  2. Set oNET = CreateObject("WScript.Network")
  3. Set oAPP = CreateObject("Shell.Application")
  4. Set oFSO = CreateObject("Scripting.FileSystemObject")
  5. Set oWMI = GetObject("winmgmts:\\.\root\CIMV2")
  6. Set oARG = WScript.Arguments
  7.  
  8. Call ForceConsole()
  9. Call showBanner()
  10. Call printf(" Comprobando requisitos del sistema...")
  11. Call checkW10()
  12. Call runElevated()
  13. Call printf(" Requisitos OK...")
  14. Call showMenu(2)
  15.  
  16. Function printf(txt)
  17.     WScript.StdOut.WriteLine txt
  18. End Function
  19.  
  20. Function printl(txt)
  21.     WScript.StdOut.Write txt
  22. End Function
  23.  
  24. Function scanf()
  25.     scanf = LCase(WScript.StdIn.ReadLine)
  26. End Function
  27.  
  28. Function Wait(n)
  29.     WScript.Sleep Int(n * 1000)
  30. End Function
  31.  
  32. Function ForceConsole()
  33.     If InStr(LCase(WScript.FullName), "cscript.exe") = 0 Then
  34.         oWSH.Run "cscript //NoLogo " & Chr(34) & WScript.ScriptFullName & Chr(34)
  35.         WScript.Quit
  36.     End If
  37. End Function
  38.  
  39. Function showBanner()
  40.     printf " _____ _ _           _____         _    _____         _     _   "
  41.     printf "|  _  |_| |_ ___ ___|     |_ _ _ _| |  |   __|___ ___|_|___| |_ "
  42.     printf "|     | | '_| . |   |   --| | | | . |  |__   |  _|  _| | . |  _|"
  43.     printf "|__|__|_|_,_|___|_|_|_____|_____|___|  |_____|___|_| |_|  _|_|  "
  44.     printf "                                                       |_|     v4.0"
  45. End Function
  46.  
  47. Function checkW10()
  48.     If getNTversion < 10 Then
  49.         printf " ERROR: Necesitas ejecutar este script bajo Windows 10"
  50.         printf ""
  51.         printf " Press <enter> to quit"
  52.         scanf
  53.         WScript.Quit
  54.     End If
  55. End Function
  56.  
  57. Function runElevated()
  58.     If isUACRequired Then
  59.         If Not isElevated Then RunAsUAC
  60.     Else
  61.         If Not isAdmin Then
  62.             printf " ERROR: Necesitas ejecutar este script como Administrador!"
  63.             printf ""
  64.             printf " Press <enter> to quit"
  65.             scanf
  66.             WScript.Quit
  67.         End If
  68.     End If
  69. End Function
  70.  
  71. Function isUACRequired()
  72.     r = isUAC()
  73.     If r Then
  74.         intUAC = oWSH.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA")
  75.         r = 1 = intUAC
  76.     End If
  77.     isUACRequired = r
  78. End Function
  79.  
  80. Function isElevated()
  81.     isElevated = CheckCredential("S-1-16-12288")
  82. End Function
  83.  
  84. Function isAdmin()
  85.     isAdmin = CheckCredential("S-1-5-32-544")
  86. End Function
  87.  
  88. Function CheckCredential(p)
  89.     Set oWhoAmI = oWSH.Exec("whoami /groups")
  90.     Set WhoAmIO = oWhoAmI.StdOut
  91.     WhoAmIO = WhoAmIO.ReadAll
  92.     CheckCredential = InStr(WhoAmIO, p) > 0
  93. End Function
  94.  
  95. Function RunAsUAC()
  96.     If isUAC Then
  97.         printf ""
  98.         printf " El script necesita ejecutarse con permisos elevados..."
  99.         printf " acepta el siguiente mensaje:"
  100.         Wait(1)
  101.         oAPP.ShellExecute "cscript", "//NoLogo " & Chr(34) & WScript.ScriptFullName & Chr(34), "", "runas", 1
  102.         WScript.Quit
  103.     End If
  104. End Function
  105.  
  106. Function isUAC()
  107.     Set cWin = oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem")
  108.     r = False
  109.     For Each OS In cWin
  110.         If Split(OS.Version,".")(0) > 5 Then
  111.             r = True
  112.         Else
  113.             r = False
  114.         End If
  115.     Next
  116.     isUAC = r
  117. End Function
  118.  
  119. Function getNTversion()
  120.     Set cWin = oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem")
  121.     For Each OS In cWin
  122.         getNTversion = Split(OS.Version,".")(0)
  123.     Next
  124. End Function
  125.  
  126. Function cls()
  127.     For i = 1 To 50
  128.         printf ""
  129.     Next
  130. End Function
  131.  
  132. Function showMenu(n)
  133.     Wait(n)
  134.     cls
  135.     Call showBanner
  136.     printf " Selecciona una opcion:"
  137.     printf ""
  138.     printf "   1 = Instalar/Desinstalar varios Tweaks para Windows 10"
  139.     printf ""
  140.     printf "   2 = Deshabilitar Control de Cuentas de Usuario (UAC)"
  141.     printf "   3 = Ejecutar limpiador de Windows. Libera espacio y borrar Windows.old"
  142.     printf "   4 = Habilitar/Deshabilitar inicio de sesion sin password"
  143.     printf "   5 = Mostrar listado de combinacion de teclas utiles en Win10"
  144.     printf "   6 = Instalar/Desinstalar caracteristicas de Windows"
  145.     printf ""
  146.     printf "   7 = Impedir que Microsoft recopile informacion de mi PC (Spyware & Telemetry)"
  147.     printf "   8 = Desinstalar Metro Apps pre-instaladas en Windows 10"
  148.     printf "   9 = Deshabilitar Windows Defender"
  149.     printf "  10 = Deshabilitar OneDrive"
  150.     printf ""
  151.     printf "  11 = Optimizar y prolongar la vida de tu disco duro SSD"
  152.     printf ""
  153.     printf "  12 = Mostrar estado de la activacion de Windows 10"
  154.     printf "  13 = Activar Windows 10; Ejecuta slmgr /ato 30 veces seguidas"
  155.     printf ""
  156.     printf "  99 = Restore Menu; Restaura la configuracion original"
  157.     printf "   0 = Salir"
  158.     printf ""
  159.     printl " > "
  160.     RP = scanf
  161.     If Not isNumeric(RP) = True Then
  162.         printf ""
  163.         printf " ERROR: Opcion invalida, solo se permiten numero..."
  164.         Call showMenu(2)
  165.         Exit Function
  166.     End If
  167.     Select Case RP
  168.         Case 1
  169.             Call regTweaks()
  170.         Case 2
  171.             Call disableUAC()
  172.         Case 3
  173.             Call cleanSO()
  174.         Case 4
  175.             Call noPWD()
  176.         Case 5
  177.             Call showKeyboardTips()
  178.         Case 6
  179.             Call optionalFeatures()
  180.         Case 7
  181.             Call disableSpyware()
  182.         Case 8
  183.             Call cleanApps()
  184.         Case 9
  185.             Call disableDefender()
  186.         Case 10
  187.             Call disableOneDrive()
  188.         Case 11
  189.             Call powerSSD()
  190.         Case 12
  191.             Call showActivation()
  192.         Case 13
  193.             Call activate30()
  194.         Case 99
  195.             Call restoreMenu()
  196.         Case 0
  197.             printf ""
  198.             printf " Gracias por utilizar mi script"
  199.             printf " AikonCWD dice adios!! ;D"
  200.             wait(2)
  201.             WScript.Quit
  202.         Case Else
  203.         printf ""
  204.         printf " INFO: Opcion invalida, ese numero no esta disponible"
  205.         Call showMenu(2)
  206.         Exit Function
  207.     End Select
  208. End Function
  209.  
  210. Function restoreMenu()
  211.     cls
  212.     printf " _____         _                  _____             "
  213.     printf "| __  |___ ___| |_ ___ ___ ___   |     |___ ___ _ _ "
  214.     printf "|    -| -_|_ -|  _| . |  _| -_|  | | | | -_|   | | |"
  215.     printf "|__|__|___|___|_| |___|_| |___|  |_|_|_|___|_|_|___|"  
  216.     printf ""
  217.     printf " Selecciona una opcion:"
  218.     printf ""
  219.     printf "   1 = Habilitar Telemetria"
  220.     printf "   2 = Habilitar servicios DiagTrack, RetailDemo y Dmwappush"
  221.     printf "   3 = Habilitar tareas programadas que envian datos a Microsoft"
  222.     printf "   4 = Restaurar hosts y acceso a servidores de publicidad de Microsoft"
  223.     printf "   5 = Habilitar Windows Defender Antivirus"
  224.     printf "   6 = Habilitar OneDrive"
  225.     printf ""
  226.     printf "   7 = Habilitar Shadow Copy (VSS) e Instantaneas de Volumen"
  227.     printf "   8 = Habilitar Windows Search + Indexing Service"
  228.     printf "   9 = Habilitar tarea programada del Defragmentador de discos"
  229.     printf "  10 = Habilitar la hibernacion en el sistema"
  230.     printf "  11 = Habilitar Prefetcher + Superfetch"
  231.     printf "  12 = Deshabilitar el tema oscuro (Dark Theme)"
  232.     printf ""
  233.     printf "   0 = Salir; Regresar al menu principal"
  234.     printf ""
  235.     printl " > "
  236.     RP = scanf
  237.     If Not isNumeric(RP) = True Then
  238.         printf ""
  239.         printf " ERROR: Opcion invalida, solo se permiten numero..."
  240.         Call restoreMenu()
  241.         Exit Function
  242.     End If
  243.     Select Case RP
  244.         Case 1
  245.             On Error Resume Next
  246.             printf ""
  247.             printf " INFO: La opcion de Telemetria se ha restaurado a su valor original"
  248.             oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\DataCollection\AllowTelemetry", 3, "REG_DWORD"
  249.             oWSH.RegWrite "HKLM\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\DataCollection\AllowTelemetry", 3, "REG_DWORD"
  250.             oWSH.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\DataCollection\AllowTelemetry", 3, "REG_DWORD"
  251.             oWSH.RegWrite "HKLM\COMPONENTS\DerivedData\Components\amd64_microsoft-windows-c..riencehost.appxmain_31bf3856ad364e35_10.0.10240.16384_none_0ab8ea80e84d4093\f!telemetry.js", 1, "REG_DWORD"
  252.             oWSH.RegWrite "HKLM\COMPONENTS\DerivedData\Components\amd64_microsoft-windows-c..lemetry.lib.cortana_31bf3856ad364e35_10.0.10240.16384_none_40ba2ec3d03bceb0\f!dss-winrt-telemetry.js", 1, "REG_DWORD"
  253.             oWSH.RegWrite "HKLM\COMPONENTS\DerivedData\Components\amd64_microsoft-windows-c..lemetry.lib.cortana_31bf3856ad364e35_10.0.10240.16384_none_40ba2ec3d03bceb0\f!proactive-telemetry.js", 1, "REG_DWORD"
  254.             oWSH.RegWrite "HKLM\COMPONENTS\DerivedData\Components\amd64_microsoft-windows-c..lemetry.lib.cortana_31bf3856ad364e35_10.0.10240.16384_none_40ba2ec3d03bceb0\f!proactive-telemetry-event_8ac43a41e5030538", 1, "REG_DWORD"
  255.             oWSH.RegWrite "HKLM\COMPONENTS\DerivedData\Components\amd64_microsoft-windows-c..lemetry.lib.cortana_31bf3856ad364e35_10.0.10240.16384_none_40ba2ec3d03bceb0\f!proactive-telemetry-inter_58073761d33f144b", 1, "REG_DWORD"
  256.             oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\MRT\DontOfferThroughWUAU", 0, "REG_DWORD"
  257.             oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\AppCompat\AITEnable", 1, "REG_DWORD"
  258.             oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\SQMClient\Windows\CEIPEnable", 1, "REG_DWORD"
  259.             oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\AppCompat\DisableUAR", 0, "REG_DWORD"
  260.             oWSH.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Device Metadata\PreventDeviceMetadataFromNetwork", 0, "REG_DWORD"
  261.         Case 2
  262.             printf ""
  263.             printf " INFO: Se han habilitado los servicios DiagTrack, RetailDemo y Dmwappush"
  264.             oWSH.Run "sc config DiagTrack start=auto"
  265.             oWSH.Run "sc config RetailDemo start=auto"
  266.             oWSH.Run "sc config dmwappushservice start=auto"
  267.             oWSH.Run "sc config WMPNetworkSvc start=auto"
  268.             oWSH.Run "sc config diagnosticshub.standardcollector.service start=auto"
  269.             oWSH.Run "sc start DiagTrack"
  270.             oWSH.Run "sc start RetailDemo"
  271.             oWSH.Run "sc start dmwappushservice"
  272.             oWSH.Run "sc start WMPNetworkSvc"      
  273.             oWSH.Run "sc start diagnosticshub.standardcollector.service"
  274.         Case 3
  275.             printf ""
  276.             printf " INFO: Se han habilitado las tareas programadas que envian datos a Microsoft"
  277.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Application Experience\Microsoft Compatibility Appraiser" & chr(34) & " /ENABLE"
  278.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Application Experience\ProgramDataUpdater" & chr(34) & " /ENABLE"
  279.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Customer Experience Improvement Program\Consolidator" & chr(34) & " /ENABLE"
  280.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Customer Experience Improvement Program\KernelCeipTask" & chr(34) & " /ENABLE"
  281.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Customer Experience Improvement Program\Uploader" & chr(34) & " /ENABLE"
  282.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Customer Experience Improvement Program\UsbCeip" & chr(34) & " /ENABLE"
  283.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\AppID\SmartScreenSpecific" & chr(34) & " /ENABLE"
  284.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\DiskDiagnostic\Microsoft-Windows-DiskDiagnosticDataCollector" & chr(34) & " /ENABLE"
  285.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\NetTrace\GatherNetworkInfo" & chr(34) & " /ENABLE"
  286.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Windows Error Reporting\QueueReporting" & chr(34) & " /ENABLE"        
  287.         Case 4
  288.             printf ""
  289.             printf " INFO: El fichero hosts se ha restablecido correctamente"
  290.             Set F = oFSO.CreateTextFile("C:\Windows\System32\drivers\etc\hosts", True)
  291.                 F.WriteLine "127.0.0.1  localhost"
  292.                 F.WriteLine "::1        localhost"
  293.                 F.WriteLine "127.0.0.1  local"
  294.             F.Close
  295.         Case 6
  296.             printf ""
  297.             printf " INFO: Se ha habilitado One Drive correctamente"
  298.             oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\OneDrive\DisableFileSyncNGSC", 0, "REG_DWORD"
  299.             oWSH.RegWrite "HKLM\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\OneDrive\DisableFileSyncNGSC", 0, "REG_DWORD"
  300.         Case 5
  301.             printf ""
  302.             printf " INFO: Se ha habilitado Windows Defender Antivirus correctamente"
  303.             oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows Defender\DisableAntiSpyware", 0, "REG_DWORD"
  304.             oWSH.RegWrite "HKLM\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows Defender\DisableAntiSpyware", 0, "REG_DWORD"
  305.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Windows Defender\Windows Defender Cache Maintenance" & chr(34) & " /ENABLE"
  306.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Windows Defender\Windows Defender Cleanup" & chr(34) & " /ENABLE"
  307.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Windows Defender\Windows Defender Scheduled Scan" & chr(34) & " /ENABLE"
  308.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Windows Defender\Windows Defender Verification" & chr(34) & " /ENABLE"
  309.             oWSH.Run "sc config WdNisSvc start=auto"
  310.             oWSH.Run "sc config WinDefend start=auto"  
  311.             oWSH.Run "sc start WdNisSvc"
  312.             oWSH.Run "sc start WinDefend"
  313.         Case 7
  314.             printf ""
  315.             printf " INFO: Se ha habilitado el servicio de VSS (Shadow Copy)"
  316.             oWSH.Run "sc config VSS start=auto"
  317.             oWSH.Run "sc start VSS"
  318.         Case 8
  319.             printf ""
  320.             printf " INFO: Se ha habilitado el servicio de Windows Search + Indexing Service"
  321.             oWSH.Run "sc config WSearch start=auto"
  322.             oWSH.Run "sc start WSearch"
  323.         Case 9
  324.             printf ""
  325.             printf " INFO: Se ha habilitado la tarea programada del defragmentador de discos de Windows"
  326.             oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Defrag\ScheduledDefrag" & chr(34) & " /ENABLE"
  327.         Case 10
  328.             printf ""
  329.             printf " INFO: Hibernacion del sistema activada correctamente"
  330.             oWSH.Run "powercfg -h on"
  331.             oWSH.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Power\HiberbootEnabled", 1, "REG_DWORD"
  332.         Case 11
  333.             printf ""
  334.             printf " INFO. Se ha habilitado Prefetcher + Superfetch en el registro y en el servicio"
  335.             oWSH.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters\EnablePrefetcher", 1, "REG_DWORD"
  336.             oWSH.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters\EnableSuperfetch", 1, "REG_DWORD"
  337.             oWSH.Run "sc config SysMain start=auto"
  338.             oWSH.Run "sc start SysMain"
  339.         Case 12
  340.             printf ""
  341.             printf " INFO: Se ha deshabilitado el tema oscuro (Dark Theme)"
  342.             oWSH.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize\AppsUseLightTheme", 1, "REG_DWORD"
  343.             oWSH.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize\AppsUseLightTheme", 1, "REG_DWORD"    
  344.         Case 0
  345.             MsgBox "Si has restaurado alguna opcion/configuracion, te recomiendo que reinicies el sistema ahora", vbInformation + vbOkOnly, "AikonCWD Script for Win10"
  346.             Call showMenu(0)
  347.         Case Else
  348.             printf ""
  349.             printf " INFO: Opcion invalida, ese numero no esta disponible"
  350.             Call restoreMenu()
  351.             Exit Function
  352.     End Select
  353.     Wait(2)
  354.     Call restoreMenu()
  355. End Function
  356.  
  357. Function disableUAC()
  358.     printf ""
  359.     printf " Ahora se ejecutara una ventana..."
  360.     printf " Mueve la barra vertical hasta el nivel mas bajo"
  361.     printf " Acepta los cambios y reinicia el ordenador"
  362.     wait(2)
  363.     printf ""
  364.     printf " INFO: Executing UserAccountControlSettings.exe"
  365.     oWSH.Run "UserAccountControlSettings.exe"
  366.     Call showMenu(2)
  367. End Function
  368.  
  369. Function cleanSO()
  370.     printf ""
  371.     printf " Ahora se ejecutara una ventana..."
  372.     printf " Marca las opciones deseadas de limpieza"
  373.     printf " Acepta los cambios y reinicia el ordenador"
  374.     wait(2)
  375.     printf ""
  376.     printf " INFO: Executing cleanmgr.exe"
  377.     oWSH.Run "cleanmgr.exe"
  378.     Call showMenu(2)
  379. End Function
  380.  
  381. Function noPWD()
  382.     printf ""
  383.     printf " Ahora se ejecutara una ventana..."
  384.     printf " Desmarca la opcion: Los usuarios deben escribir su nombre y password para usar el equipo"
  385.     printf " Acepta los cambios y reinicia el ordenador"
  386.     wait(2)
  387.     printf ""
  388.     printf " INFO: Executing control userpasswords2"
  389.     oWSH.Run "control userpasswords2"
  390.     Call showMenu(2)
  391. End Function
  392.  
  393. Function optionalFeatures()
  394.     printf ""
  395.     printf " Ahora se ejecutara una ventana..."
  396.     printf " Marca/Desmarca las opciones deseadas"
  397.     printf " Acepta los cambios y reinicia el ordenador"
  398.     wait(2)
  399.     printf ""
  400.     printf " INFO: Executing optionalfeatures.exe"
  401.     oWSH.Run "optionalfeatures.exe"
  402.     Call showMenu(2)
  403. End Function
  404.  
  405. Function showKeyboardTips()
  406.     msg = msg & "WIN+A      Abre el centro de actividades" & vbcrlf
  407.     msg = msg & "WIN+C      Activa el reconocimiento de voz de Cortana" & vbcrlf
  408.     msg = msg & "WIN+D      Muestra el escritorio" & vbcrlf
  409.     msg = msg & "WIN+E      Abre el explorador de Windows" & vbcrlf
  410.     msg = msg & "WIN+G      Activa Game DVR para grabar la pantalla" & vbcrlf
  411.     msg = msg & "WIN+H      Compartir en las apps Modern para Windows 10" & vbcrlf
  412.     msg = msg & "WIN+I      Abre la configuracion del sistema" & vbcrlf
  413.     msg = msg & "WIN+K      Inicia 'Conectar' para enviar datos a dispositivos" & vbcrlf
  414.     msg = msg & "WIN+L      Bloquea el equipo" & vbcrlf
  415.     msg = msg & "WIN+R      Ejecutar un comando" & vbcrlf
  416.     msg = msg & "WIN+S      Activa Cortana" & vbcrlf
  417.     msg = msg & "WIN+X      Abre el menu de opciones avanzadas" & vbcrlf
  418.     msg = msg & "WIN+TAB        Abre la vista de tareas" & vbcrlf
  419.     msg = msg & "WIN+Flechas    Pega una ventana a la pantalla (Windows Snap)" & vbcrlf
  420.     msg = msg & "WIN+CTRL+D Crea un nuevo escritorio virtual" & vbcrlf
  421.     msg = msg & "WIN+CTRL+F4    Cierra un escritorio virtual" & vbcrlf
  422.     msg = msg & "WIN+CTRL+Flechas   Cambia de escritorio virtual" & vbcrlf
  423.     msg = msg & "WIN+SHIFT+Flechas  Mueve la ventana actual de un monitor a otro" & vbcrlf
  424.    
  425.     MsgBox msg, vbOkOnly, "AikonCWD Script: Atajos de teclado"
  426.     Call showMenu(0)
  427. End Function
  428.  
  429. Function disableSpyware()
  430.     printf ""
  431.     printf " Deshabilitando Telemetry usando el registro..."
  432.     wait(1)
  433.         On Error Resume Next
  434.         oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\DataCollection\AllowTelemetry", 0, "REG_DWORD"
  435.         oWSH.RegWrite "HKLM\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\DataCollection\AllowTelemetry", 0, "REG_DWORD"
  436.         oWSH.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\DataCollection\AllowTelemetry", 0, "REG_DWORD"
  437.         oWSH.RegWrite "HKLM\COMPONENTS\DerivedData\Components\amd64_microsoft-windows-c..riencehost.appxmain_31bf3856ad364e35_10.0.10240.16384_none_0ab8ea80e84d4093\f!telemetry.js", 0, "REG_DWORD"
  438.         oWSH.RegWrite "HKLM\COMPONENTS\DerivedData\Components\amd64_microsoft-windows-c..lemetry.lib.cortana_31bf3856ad364e35_10.0.10240.16384_none_40ba2ec3d03bceb0\f!dss-winrt-telemetry.js", 0, "REG_DWORD"
  439.         oWSH.RegWrite "HKLM\COMPONENTS\DerivedData\Components\amd64_microsoft-windows-c..lemetry.lib.cortana_31bf3856ad364e35_10.0.10240.16384_none_40ba2ec3d03bceb0\f!proactive-telemetry.js", 0, "REG_DWORD"
  440.         oWSH.RegWrite "HKLM\COMPONENTS\DerivedData\Components\amd64_microsoft-windows-c..lemetry.lib.cortana_31bf3856ad364e35_10.0.10240.16384_none_40ba2ec3d03bceb0\f!proactive-telemetry-event_8ac43a41e5030538", 0, "REG_DWORD"
  441.         oWSH.RegWrite "HKLM\COMPONENTS\DerivedData\Components\amd64_microsoft-windows-c..lemetry.lib.cortana_31bf3856ad364e35_10.0.10240.16384_none_40ba2ec3d03bceb0\f!proactive-telemetry-inter_58073761d33f144b", 0, "REG_DWORD"
  442.         oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\MRT\DontOfferThroughWUAU", 1, "REG_DWORD"
  443.         oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\AppCompat\AITEnable", 0, "REG_DWORD"
  444.         oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\SQMClient\Windows\CEIPEnable", 0, "REG_DWORD"
  445.         oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\AppCompat\DisableUAR", 1, "REG_DWORD"
  446.         oWSH.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Device Metadata\PreventDeviceMetadataFromNetwork", 1, "REG_DWORD"
  447.     printf ""
  448.     printf " INFO: Telemetry deshabilitado correctamente"
  449.    
  450.     pathLOG = oWSH.ExpandEnvironmentStrings("%ProgramData%") & "\Microsoft\Diagnosis\ETLLogs\AutoLogger\AutoLogger-Diagtrack-Listener.etl"
  451.     printf ""
  452.     printf " Borrando DiagTrack Log..."
  453.     wait(1)
  454.         If oFSO.FileExists(pathLOG) Then oFSO.DeleteFile(pathLOG)
  455.         oWSH.Run "cmd /C echo " & chr(34) & chr(34) & " > " & pathLOG
  456.     printf ""
  457.     printf " INFO: DiagTrack Log borrado correctamente"
  458.  
  459.     printf ""
  460.     printf " Deshabilitando servicios de seguimiento..."
  461.     wait(1)
  462.         oWSH.Run "sc stop DiagTrack"
  463.         oWSH.Run "sc stop RetailDemo"
  464.         oWSH.Run "sc stop WMPNetworkSvc"
  465.         oWSH.Run "sc stop dmwappushservice"
  466.         oWSH.Run "sc stop diagnosticshub.standardcollector.service"
  467.         oWSH.Run "sc config DiagTrack start=disabled"
  468.         oWSH.Run "sc config RetailDemo start=disabled"
  469.         oWSH.Run "sc config WMPNetworkSvc start=disabled"
  470.         oWSH.Run "sc config dmwappushservice start=disabled"
  471.         oWSH.Run "sc config diagnosticshub.standardcollector.service start=disabled"
  472.     printf ""
  473.     printf " INFO: Servicios de seguimiento deshabilitados"
  474.  
  475.     printf ""
  476.     printf " Deshabilitando tareas programadas que envian datos a Microsoft..."
  477.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Application Experience\Microsoft Compatibility Appraiser" & chr(34) & " /DISABLE"
  478.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Application Experience\ProgramDataUpdater" & chr(34) & " /DISABLE"
  479.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Customer Experience Improvement Program\Consolidator" & chr(34) & " /DISABLE"
  480.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Customer Experience Improvement Program\KernelCeipTask" & chr(34) & " /DISABLE"
  481.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Customer Experience Improvement Program\Uploader" & chr(34) & " /DISABLE"
  482.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Customer Experience Improvement Program\UsbCeip" & chr(34) & " /DISABLE"
  483.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\AppID\SmartScreenSpecific" & chr(34) & " /DISABLE"
  484.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\DiskDiagnostic\Microsoft-Windows-DiskDiagnosticDataCollector" & chr(34) & " /DISABLE"
  485.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\NetTrace\GatherNetworkInfo" & chr(34) & " /DISABLE"
  486.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Windows Error Reporting\QueueReporting" & chr(34) & " /DISABLE"
  487.     printf ""
  488.     printf " INFO: Tareas programadas de seguimiento deshabilitadas"
  489.  
  490.     printf ""
  491.     printf " Deshabilitando acceso a los servidores de publicidad de Microsoft..."
  492.     wait(1)
  493.     Set F = oFSO.CreateTextFile(oWSH.ExpandEnvironmentStrings("%WinDir%") & "\System32\drivers\etc\hosts", True)
  494.         F.WriteLine "127.0.0.1  localhost"
  495.         F.WriteLine "::1        localhost"
  496.         F.WriteLine "127.0.0.1  local"
  497.         F.WriteLine "0.0.0.0 vortex.data.microsoft.com"
  498.         F.WriteLine "0.0.0.0 vortex-win.data.microsoft.com"
  499.         F.WriteLine "0.0.0.0 telecommand.telemetry.microsoft.com"
  500.         F.WriteLine "0.0.0.0 telecommand.telemetry.microsoft.com.nsatc.net"
  501.         F.WriteLine "0.0.0.0 oca.telemetry.microsoft.com"
  502.         F.WriteLine "0.0.0.0 oca.telemetry.microsoft.com.nsatc.net"
  503.         F.WriteLine "0.0.0.0 sqm.telemetry.microsoft.com"
  504.         F.WriteLine "0.0.0.0 sqm.telemetry.microsoft.com.nsatc.net"
  505.         F.WriteLine "0.0.0.0 watson.telemetry.microsoft.com"
  506.         F.WriteLine "0.0.0.0 watson.telemetry.microsoft.com.nsatc.net"
  507.         F.WriteLine "0.0.0.0 redir.metaservices.microsoft.com"
  508.         F.WriteLine "0.0.0.0 choice.microsoft.com"
  509.         F.WriteLine "0.0.0.0 choice.microsoft.com.nsatc.net"
  510.         F.WriteLine "0.0.0.0 df.telemetry.microsoft.com"
  511.         F.WriteLine "0.0.0.0 wes.df.telemetry.microsoft.com"
  512.         F.WriteLine "0.0.0.0 reports.wes.df.telemetry.microsoft.com"
  513.         F.WriteLine "0.0.0.0 services.wes.df.telemetry.microsoft.com"
  514.         F.WriteLine "0.0.0.0 sqm.df.telemetry.microsoft.com"
  515.         F.WriteLine "0.0.0.0 telemetry.microsoft.com"
  516.         F.WriteLine "0.0.0.0 watson.ppe.telemetry.microsoft.com"
  517.         F.WriteLine "0.0.0.0 telemetry.appex.bing.net"
  518.         F.WriteLine "0.0.0.0 telemetry.urs.microsoft.com"
  519.         F.WriteLine "0.0.0.0 telemetry.appex.bing.net:443"
  520.         F.WriteLine "0.0.0.0 settings-sandbox.data.microsoft.com"
  521.         F.WriteLine "0.0.0.0 vortex-sandbox.data.microsoft.com"
  522.         F.WriteLine "0.0.0.0 survey.watson.microsoft.com"
  523.         F.WriteLine "0.0.0.0 watson.live.com"
  524.         F.WriteLine "0.0.0.0 watson.microsoft.com"
  525.         F.WriteLine "0.0.0.0 statsfe2.ws.microsoft.com"
  526.         F.WriteLine "0.0.0.0 corpext.msitadfs.glbdns2.microsoft.com"
  527.         F.WriteLine "0.0.0.0 compatexchange.cloudapp.net"
  528.         F.WriteLine "0.0.0.0 cs1.wpc.v0cdn.net"
  529.         F.WriteLine "0.0.0.0 a-0001.a-msedge.net"
  530.         F.WriteLine "0.0.0.0 statsfe2.update.microsoft.com.akadns.net"
  531.         F.WriteLine "0.0.0.0 sls.update.microsoft.com.akadns.net"
  532.         F.WriteLine "0.0.0.0 fe2.update.microsoft.com.akadns.net"
  533.         F.WriteLine "0.0.0.0 diagnostics.support.microsoft.com"
  534.         F.WriteLine "0.0.0.0 corp.sts.microsoft.com"
  535.         F.WriteLine "0.0.0.0 statsfe1.ws.microsoft.com"
  536.         F.WriteLine "0.0.0.0 pre.footprintpredict.com"
  537.         F.WriteLine "0.0.0.0 i1.services.social.microsoft.com"
  538.         F.WriteLine "0.0.0.0 i1.services.social.microsoft.com.nsatc.net"
  539.         F.WriteLine "0.0.0.0 feedback.windows.com"
  540.         F.WriteLine "0.0.0.0 feedback.microsoft-hohm.com"
  541.         F.WriteLine "0.0.0.0 feedback.search.microsoft.com"
  542.     F.Close
  543.     printf ""
  544.     printf " INFO: Fichero HOSTS escrito correctamente"
  545.     Call showMenu(2)
  546. End Function
  547.  
  548. Function disableOneDrive()
  549.     printf ""
  550.     printf " Deshabilitando OneDrive usando el registro..."
  551.     wait(1)
  552.         oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\OneDrive\DisableFileSyncNGSC", 1, "REG_DWORD"
  553.         oWSH.RegWrite "HKLM\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\OneDrive\DisableFileSyncNGSC", 1, "REG_DWORD"
  554.     printf ""
  555.     printf " INFO: OneDrive deshabilitado correctamente"
  556.     Call showMenu(2)
  557. End Function
  558.  
  559. Function disableDefender()
  560.     printf ""
  561.     printf " Deshabilitando Windows Defender usando el registro..."
  562.     wait(1)
  563.         oWSH.Run "sc stop WdNisSvc"
  564.         oWSH.Run "sc stop WinDefend"
  565.         oWSH.Run "sc config WdNisSvc start=disabled"
  566.         oWSH.Run "sc config WinDefend start=disabled"  
  567.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Windows Defender\Windows Defender Cache Maintenance" & chr(34) & " /DISABLE"
  568.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Windows Defender\Windows Defender Cleanup" & chr(34) & " /DISABLE"
  569.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Windows Defender\Windows Defender Scheduled Scan" & chr(34) & " /DISABLE"
  570.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Windows Defender\Windows Defender Verification" & chr(34) & " /DISABLE"
  571.         oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows Defender\DisableAntiSpyware", 1, "REG_DWORD"
  572.         oWSH.RegWrite "HKLM\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows Defender\DisableAntiSpyware", 1, "REG_DWORD"
  573.     printf ""
  574.     printf " INFO: Windows Defender deshabilitado correctamente"
  575.     printf " WARNING: Si no tienes antivirus, te recomiendo 360 Total Security: www.360totalsecurity.com"
  576.     wait(1)
  577.     Call showMenu(2)
  578. End Function
  579.  
  580. Function showActivation()
  581.     printf ""
  582.     printf " En unos segundos aparecera el estado de tu activacion..."
  583.     wait(1)
  584.         oWSH.Run "slmgr.vbs /dlv"
  585.         oWSH.Run "slmgr.vbs /xpr"
  586.     printf ""
  587.     printf " INFO: Script slmgr ejecutado correctamente"
  588.     Call showMenu(2)
  589. End Function
  590.  
  591. Function activate30()
  592.     printf ""
  593.     printf " Esta funcion sirve para forzar la activacion de Windows 10"
  594.     printf " solo se debe utilizar si tienes problemas para validar la licencia"
  595.     printf ""
  596.     printl " El proceso demora varios minutos. Deseas continuar? (s/n) "
  597.    
  598.     If scanf <> "s" Then
  599.         printf ""
  600.         printf " INFO: Proceso cancelado por el usuario"
  601.         wait(1)
  602.         Call showMenu(2)
  603.         Exit Function
  604.     End If
  605.    
  606.     printf " Se va a ejecutar slmgr /ato 30 veces, sea paciente..."
  607.     wait(1)
  608.         For i = 1 To 30
  609.             printf "  > (" & i & ") Ejecutando slmgr.vbs /ato"
  610.             oWSH.Run "slmgr.vbs /ato"
  611.         Next
  612.     printf ""
  613.     printf " INFO: Script slmgr ejecutado correctamente"
  614.     printf " INFO: El resultado tarda unos segundos en aparecer, espere..."
  615.     wait(1)
  616.     Call showMenu(2)
  617. End Function
  618.  
  619. Function cleanApps()
  620.     printf ""
  621.     printf " Este script va a desinstalar el siguiente listado de Apps:"
  622.     printf ""
  623.     printf "  > Bing"
  624.     printf "  > Zune"
  625.     printf "  > Skype"
  626.     printf "  > XboxApp"
  627.     printf "  > OneNote"
  628.     printf "  > 3DBuilder"
  629.     printf "  > Getstarted"
  630.     printf "  > Windows Maps"
  631.     printf "  > Windows Phone"
  632.     printf "  > Windows Camera"
  633.     printf "  > Windows Alarms"
  634.     printf "  > Windows Sound Recorder"
  635.     printf "  > Windows Communications Apps"
  636.     printf "  > Microsoft People"
  637.     printf "  > Microsoft Office Hub"
  638.     printf "  > Microsoft Solitaire Collection"
  639.     printf ""
  640.     printl " La opcion NO es reversible. Deseas continuar? (s/n) "
  641.    
  642.     If scanf = "s" Then
  643.         oWSH.Run "powershell get-appxpackage -Name *Bing* | Remove-AppxPackage", 1, True
  644.         oWSH.Run "powershell get-appxpackage -Name *Zune* | Remove-AppxPackage", 1, True
  645.         oWSH.Run "powershell get-appxpackage -Name *XboxApp* | Remove-AppxPackage", 1, True
  646.         oWSH.Run "powershell get-appxpackage -Name *OneNote* | Remove-AppxPackage", 1, True
  647.         oWSH.Run "powershell get-appxpackage -Name *SkypeApp* | Remove-AppxPackage", 1, True
  648.         oWSH.Run "powershell get-appxpackage -Name *3DBuilder* | Remove-AppxPackage", 1, True
  649.         oWSH.Run "powershell get-appxpackage -Name *Getstarted* | Remove-AppxPackage", 1, True
  650.         oWSH.Run "powershell get-appxpackage -Name *Microsoft.People* | Remove-AppxPackage", 1, True
  651.         oWSH.Run "powershell get-appxpackage -Name *MicrosoftOfficeHub* | Remove-AppxPackage", 1, True
  652.         oWSH.Run "powershell get-appxpackage -Name *MicrosoftSolitaireCollection* | Remove-AppxPackage", 1, True
  653.         oWSH.Run "powershell get-appxpackage -Name *WindowsCamera* | Remove-AppxPackage", 1, True
  654.         oWSH.Run "powershell get-appxpackage -Name *WindowsAlarms* | Remove-AppxPackage", 1, True
  655.         oWSH.Run "powershell get-appxpackage -Name *WindowsMaps* | Remove-AppxPackage", 1, True
  656.         oWSH.Run "powershell get-appxpackage -Name *WindowsPhone* | Remove-AppxPackage", 1, True
  657.         oWSH.Run "powershell get-appxpackage -Name *WindowsSoundRecorder* | Remove-AppxPackage", 1, True
  658.         oWSH.Run "powershell get-appxpackage -Name *windowscommunicationsapps* | Remove-AppxPackage", 1, True
  659.         printf ""
  660.         printf " INFO: Las Apps se han desinstalado correctamente..."
  661.     Else
  662.         printf ""
  663.         printf " INFO: Operacion cancelada por el usuario"
  664.     End If
  665.     wait(1)
  666.     Call showMenu(2)
  667. End Function
  668.  
  669. Function powerSSD()
  670.     printf ""
  671.     printf " Este script va a modificar las siguientes configuraciones:"
  672.     printf ""
  673.     printf "  > Habilitar TRIM"
  674.     printf "  > Deshabilitar VSS (Shadow Copy)"
  675.     printf "  > Deshabilitar Windows Search + Indexing Service"
  676.     printf "  > Deshabilitar defragmentador de discos"
  677.     printf "  > Deshabilitar hibernacion del sistema"
  678.     printf "  > Deshabilitar Prefetcher + Superfetch"
  679.     printf "  > Deshabilitar ClearPageFileAtShutdown + LargeSystemCache"
  680.     printf ""
  681.     printl " Deseas continuar? (s/n) "
  682.    
  683.     If scanf = "s" Then
  684.         printf ""
  685.         oWSH.Run "fsutil behavior set disabledeletenotify 0"
  686.         printf " # TRIM habilitado"
  687.         wait(1)
  688.         oWSH.Run "vssadmin Delete Shadows /All /Quiet"
  689.         oWSH.Run "sc stop VSS"
  690.         oWSH.Run "sc config VSS start=disabled"
  691.         printf " # Shadow Copy eliminada y deshabilitada"
  692.         wait(1)
  693.         oWSH.Run "sc stop WSearch"
  694.         oWSH.Run "sc config WSearch start=disabled"
  695.         printf " # Windows Search + Indexing Service deshabilitados"
  696.         wait(1)
  697.         oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Defrag\ScheduledDefrag" & chr(34) & " /DISABLE"
  698.         printf " # Defragmentador de disco deshabilitado"
  699.         wait(1)
  700.         oWSH.Run "powercfg -h off"
  701.         oWSH.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Power\HiberbootEnabled", 0, "REG_DWORD"
  702.         printf " # Hibernacion deshabilitada"
  703.         wait(1)
  704.         oWSH.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters\EnablePrefetcher", 0, "REG_DWORD"
  705.         oWSH.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters\EnableSuperfetch", 0, "REG_DWORD"
  706.         oWSH.Run "sc stop SysMain"
  707.         oWSH.Run "sc config SysMain start=disabled"
  708.         printf " # Prefetcher + Superfetch deshabilitados"
  709.         wait(1)
  710.         oWSH.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\ClearPageFileAtShutdown", 0, "REG_DWORD"
  711.         oWSH.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\LargeSystemCache", 0, "REG_DWORD"
  712.         printf " # ClearPageFileAtShutdown + LargeSystemCache deshabilitados"
  713.         wait(1)
  714.         printf ""
  715.         printf " INFO: Felicidades, acabas de prolongar la vida y el rendimiento de tu SSD"
  716.     Else
  717.         printf ""
  718.         printf " INFO: Operacion cancelada por el usuario"
  719.     End If
  720.     wait(1)
  721.     Call showMenu(2)
  722. End Function
  723.  
  724. Function regTweaks()
  725.     printf ""
  726.     printl " # Deshabilitar 'Acceso Rapido' como opcion por defecto en Explorer? (s/n) "
  727.     If scanf = "s" Then
  728.         oWSH.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\LaunchTo", 1, "REG_DWORD"
  729.     Else
  730.         oWSH.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\LaunchTo", 2, "REG_DWORD"
  731.     End If
  732.  
  733.     printl " # Crear icono 'Modo Dios' en el Escritorio? (s/n) "
  734.     If scanf = "s" Then
  735.         godFolder = oWSH.SpecialFolders("Desktop") & "\GodMode.{ED7BA470-8E54-465E-825C-99712043E01C}"
  736.         If oFSO.FolderExists(godFolder) = False Then oFSO.CreateFolder(godFolder)
  737.     Else
  738.         godFolder = oWSH.SpecialFolders("Desktop") & "\GodMode.{ED7BA470-8E54-465E-825C-99712043E01C}"
  739.         If oFSO.FolderExists(godFolder) = True Then oFSO.DeleteFolder(godFolder)   
  740.     End If
  741.    
  742.     printl " # Habilitar el tema oscuro de Windows 'Dark Theme'? (s/n) "
  743.     If scanf = "s" Then
  744.         oWSH.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize\AppsUseLightTheme", 0, "REG_DWORD"
  745.         oWSH.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize\AppsUseLightTheme", 0, "REG_DWORD"
  746.     Else
  747.         oWSH.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize\AppsUseLightTheme", 1, "REG_DWORD"
  748.         oWSH.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize\AppsUseLightTheme", 1, "REG_DWORD"    
  749.     End If
  750.    
  751.     printl " # Mostrar icono 'Mi PC' en el Escritorio? (s/n) "
  752.     If scanf = "s" Then
  753.         oWSH.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{20D04FE0-3AEA-1069-A2D8-08002B30309D}", 0, "REG_DWORD"
  754.     Else
  755.         oWSH.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{20D04FE0-3AEA-1069-A2D8-08002B30309D}", 1, "REG_DWORD"
  756.     End If
  757.  
  758.     printl " # Mostrar siempre la extesion para archivos conocidos? (s/n) "
  759.     If scanf = "s" Then
  760.         oWSH.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0, "REG_DWORD"
  761.     Else
  762.         oWSH.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 1, "REG_DWORD"
  763.     End If
  764.    
  765.     printl " # Deshabilitar 'Lock Screen'? (s/n) "
  766.     If scanf = "s" Then
  767.         oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\Personalization\NoLockScreen", 1, "REG_DWORD"
  768.     Else
  769.         oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\Personalization\NoLockScreen", 0, "REG_DWORD"
  770.     End If
  771.    
  772.     printl " # Forzar 'Vista Clasica' en el Panel de Control? (s/n) "
  773.     If scanf = "s" Then
  774.         oWSH.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ForceClassicControlPanel", 1, "REG_DWORD"
  775.     Else
  776.         oWSH.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ForceClassicControlPanel", 0, "REG_DWORD"
  777.     End If
  778.  
  779.     printl " # Deshabilitar 'Windows Update Sharing'? (s/n) "
  780.     If scanf = "s" Then
  781.         oWSH.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\DeliveryOptimization\Config\DownloadMode", 0, "REG_DWORD"
  782.         oWSH.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\DeliveryOptimization\Config\DODownloadMode", 0, "REG_DWORD"
  783.     Else
  784.         oWSH.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\DeliveryOptimization\Config\DownloadMode", 3, "REG_DWORD"
  785.         oWSH.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\DeliveryOptimization\Config\DODownloadMode", 3, "REG_DWORD"
  786.     End If
  787.    
  788.     printl " # Deshabilitar 'Windows Auto Update'? (s/n) "
  789.     If scanf = "s" Then
  790.         oWSH.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\AUOptions", 2, "REG_DWORD"
  791.     Else
  792.         oWSH.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\AUOptions"
  793.     End If
  794.    
  795.     printl " # Deshabilitar Cortana + Bing + Barra busqueda? (s/n) "
  796.     If scanf = "s" Then
  797.         oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\Windows Search\AllowCortana", 0, "REG_DWORD"
  798.         oWSH.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Search\CortanaEnabled", 0, "REG_DWORD"
  799.         oWSH.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Search\SearchboxTaskbarMode", 0, "REG_DWORD"
  800.         oWSH.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Search\BingSearchEnabled", 0, "REG_DWORD"
  801.     Else
  802.         oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\Windows Search\AllowCortana", 1, "REG_DWORD"
  803.         oWSH.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Search\CortanaEnabled", 1, "REG_DWORD"
  804.         oWSH.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Search\SearchboxTaskbarMode", 1, "REG_DWORD"
  805.         oWSH.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Search\BingSearchEnabled", 1, "REG_DWORD"
  806.     End If
  807.  
  808.     printl " # Deshabilitar Reporte de Errores de Windows? (s/n) "
  809.     If scanf = "s" Then
  810.         oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\Windows Error Reporting\Disabled", 1, "REG_DWORD"
  811.     Else
  812.         oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\Windows Error Reporting\Disabled", 0, "REG_DWORD"
  813.     End If
  814.    
  815.     printf ""
  816.     printf " Todos los tweaks se han aplicado correctamente"
  817.     showMenu(2)
  818. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!