Bueno, he decidido ampliar el script para Windows 10, mejorando alguna de las funciones que ya habían y añadiendo nuevas. No creo que saque otra versión, así que la dejamos en v2 final
A continuación explicaré cada una de las funciones del script:
1) Genera un icono llamado God Mode en tu escritorio, desde ese icono podrás acceder a un panel de control "extendido" con muchas opciones para configurar y personalizar tu sistema.
2) Muestra una ventana en la que podrás habilitar o deshabilitar el control de cuentas de usuario (UAC), permitiendo quitar la molesta ventana de confirmación cuando instalamos o ejecutamos algún programa que requiera permisos de Administrador.
3) Ejecuta el limpiador de Windows, permitiendo limpiar y liberar espacio, eliminando ficheros temporales y Windows.old
4) Abre una ventana en la que podrás indicar si deseas utilizar password de acceso al arrancar tu equipo.
5) Permite personalizar las caracteristicas adicionales de Windows, puedes deshabilitar el visor XPS, Internet Explorer o Windows Media Player. Yo lo he configurado así:
6) Muestra un apagina web externa con una recopilación de las combinaciones de teclas de Windows 10
7) Ejecuta una batería de funciones para deshabilitar todos los servicios y tareas programadas encargados de espiar y enviar información a los servidores de Microsoft (Telemtry, DiagTrackLog, servicios, fichero hosts, etc...)
8) Desinstala todos los programas de Microsoft que vienen pre-instalados en Windows 10, os dejo el listado de Apps que se eliminan:
9) Deshabilita OneDrive y su integración con Windows 10
10) Deshabilita Windows Defender y su integración con Windows 10
11) Ejecuta una batería de programas y configuraciones para optimizar y alargar la vida de tu disco duro SSD. Recomendado ejecutar para todos los usuarios que dispongan de un disco duro SSD!
He utilizado las siguientes guías:
https://www.maketecheasier.com/12-things-you-must-do-when-running-a-solid-state-drive-in-windows-7/
http://www.pcworld.com/article/2110095/the-ultimate-guide-to-proper-ssd-management.html
http://www.disk-partition.com/kb/tips-ssd-optimization-windows7-1.html (parte 1, 2 y 3)
12) Muestra el estado de la activación de Windows 10
13) Solo para usuarios con problemas de activación: Ejecuta la activación 30 veces seguidas.
==========================================
Link de descarga: http://www.mediafire.com/download/mddxmqmc7e2emew/Windows_10_by_AikonCWD_v2.rar
Password: aikoncwd
El código fuente, como siempre, disponible para quien quiera revisarlo: http://pastebin.com/3h1ZGViq
Todas las funciones de "spyware" se han agrupado en la opcion (7). Mención especial a las 2 nuevas opciones para mejorar el rendimiento y vida de tu SSD y la posibilidad de desinstalar todas las Apps de Microsoft que vienen pre-instaladas. La opción (7) se ha mejorado añadiendo nuevas entradas de spyware descubiertas ésta semana.
Saludos, espero comentarios y feedback!
Tiene funciones muy interesantes, de las que destaco AUC bypass, detección de la version de NT (Windows 10 check), comprobar permisos y admin, forzar script en modo consola, y he creado unos lias tipo printf y scanf que me facilitan la tarea de escribir código. Todas las funciones son operativas al 100%, a ver que os parece
A continuación explicaré cada una de las funciones del script:
1) Genera un icono llamado God Mode en tu escritorio, desde ese icono podrás acceder a un panel de control "extendido" con muchas opciones para configurar y personalizar tu sistema.
2) Muestra una ventana en la que podrás habilitar o deshabilitar el control de cuentas de usuario (UAC), permitiendo quitar la molesta ventana de confirmación cuando instalamos o ejecutamos algún programa que requiera permisos de Administrador.
3) Ejecuta el limpiador de Windows, permitiendo limpiar y liberar espacio, eliminando ficheros temporales y Windows.old
4) Abre una ventana en la que podrás indicar si deseas utilizar password de acceso al arrancar tu equipo.
5) Permite personalizar las caracteristicas adicionales de Windows, puedes deshabilitar el visor XPS, Internet Explorer o Windows Media Player. Yo lo he configurado así:
6) Muestra un apagina web externa con una recopilación de las combinaciones de teclas de Windows 10
7) Ejecuta una batería de funciones para deshabilitar todos los servicios y tareas programadas encargados de espiar y enviar información a los servidores de Microsoft (Telemtry, DiagTrackLog, servicios, fichero hosts, etc...)
8) Desinstala todos los programas de Microsoft que vienen pre-instalados en Windows 10, os dejo el listado de Apps que se eliminan:
9) Deshabilita OneDrive y su integración con Windows 10
10) Deshabilita Windows Defender y su integración con Windows 10
11) Ejecuta una batería de programas y configuraciones para optimizar y alargar la vida de tu disco duro SSD. Recomendado ejecutar para todos los usuarios que dispongan de un disco duro SSD!
He utilizado las siguientes guías:
https://www.maketecheasier.com/12-things-you-must-do-when-running-a-solid-state-drive-in-windows-7/
http://www.pcworld.com/article/2110095/the-ultimate-guide-to-proper-ssd-management.html
http://www.disk-partition.com/kb/tips-ssd-optimization-windows7-1.html (parte 1, 2 y 3)
12) Muestra el estado de la activación de Windows 10
13) Solo para usuarios con problemas de activación: Ejecuta la activación 30 veces seguidas.
==========================================
Link de descarga: http://www.mediafire.com/download/mddxmqmc7e2emew/Windows_10_by_AikonCWD_v2.rar
Password: aikoncwd
El código fuente, como siempre, disponible para quien quiera revisarlo: http://pastebin.com/3h1ZGViq
Todas las funciones de "spyware" se han agrupado en la opcion (7). Mención especial a las 2 nuevas opciones para mejorar el rendimiento y vida de tu SSD y la posibilidad de desinstalar todas las Apps de Microsoft que vienen pre-instaladas. La opción (7) se ha mejorado añadiendo nuevas entradas de spyware descubiertas ésta semana.
Saludos, espero comentarios y feedback!
Código (vb) [Seleccionar]
Set oWSH = CreateObject("WScript.Shell")
Set oNET = CreateObject("WScript.Network")
Set oAPP = CreateObject("Shell.Application")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWMI = GetObject("winmgmts:\\.\root\CIMV2")
Set oARG = WScript.Arguments
Call ForceConsole()
Call showBanner()
Call checkW10()
Call runElevated()
Call printf(" Requisitos OK...")
Call showMenu()
Function printf(txt)
WScript.StdOut.WriteLine txt
End Function
Function printl(txt)
WScript.StdOut.Write txt
End Function
Function scanf()
scanf = LCase(WScript.StdIn.ReadLine)
End Function
Function Wait(n)
WScript.Sleep Int(n * 1000)
End Function
Function ForceConsole()
If InStr(LCase(WScript.FullName), "cscript.exe") = 0 Then
oWSH.Run "cscript //NoLogo " & Chr(34) & WScript.ScriptFullName & Chr(34)
WScript.Quit
End If
End Function
Function showBanner()
printf ""
printf " #############################"
printf " # #"
printf " # WINDOWS 10 SCRIPT TWEAKER #"
printf " # by AikonCWD #"
printf " # v2.0 #"
printf " #############################"
printf ""
printf " Comprobando requisitos del sistema..."
End Function
Function checkW10()
If getNTversion < 10 Then
printf " ERROR: Necesitas ejecutar este script bajo Windows 10"
printf ""
printf " Press <enter> to quit"
scanf
WScript.Quit
End IF
End Function
Function runElevated()
If isUACRequired Then
If Not isElevated Then RunAsUAC
Else
If Not isAdmin Then
printf " ERROR: Necesitas ejecutar este script como Administrador!"
printf ""
printf " Press <enter> to quit"
scanf
WScript.Quit
End If
End If
End Function
Function isUACRequired()
r = isUAC()
If r Then
intUAC = oWSH.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA")
r = 1 = intUAC
End If
isUACRequired = r
End Function
Function isElevated()
isElevated = CheckCredential("S-1-16-12288")
End Function
Function isAdmin()
isAdmin = CheckCredential("S-1-5-32-544")
End Function
Function CheckCredential(p)
Set oWhoAmI = oWSH.Exec("whoami /groups")
Set WhoAmIO = oWhoAmI.StdOut
WhoAmIO = WhoAmIO.ReadAll
CheckCredential = InStr(WhoAmIO, p) > 0
End Function
Function RunAsUAC()
If isUAC Then
printf ""
printf " El script necesita ejecutarse con permisos elevados..."
printf " acepta el siguiente mensaje:"
Wait(2)
oAPP.ShellExecute "cscript", "//NoLogo " & Chr(34) & WScript.ScriptFullName & Chr(34), "", "runas", 1
WScript.Quit
End If
End Function
Function isUAC()
Set cWin = oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem")
r = False
For Each OS In cWin
If Split(OS.Version,".")(0) > 5 Then
r = True
Else
r = False
End If
Next
isUAC = r
End Function
Function getNTversion()
Set cWin = oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each OS In cWin
getNTversion = Split(OS.Version,".")(0)
Next
End Function
Function cls()
For i = 1 To 100
printf ""
Next
End Function
Function showMenu()
Wait(2)
cls
printf " #############################"
printf " # #"
printf " # WINDOWS 10 SCRIPT TWEAKER #"
printf " # by AikonCWD #"
printf " # v2.0 #"
printf " #############################"
printf ""
printf ""
printf " Selecciona una opcion:"
printf ""
printf " 1 = Habilitar icono en escritorio: Modo Dios"
printf " 2 = Deshabilitar Control de Cuentas de Usuario (UAC)"
printf " 3 = Ejecutar limpiador de Windows. Libera espacio y borrar Windows.old"
printf " 4 = Habilitar/Deshabilitar inicio de sesion sin password"
printf " 5 = Mostrar web con combinacion de teclas utiles en Win10"
printf " 6 = Instalar/Desinstalar caracteristicas de Windows"
printf ""
printf " 7 = Impedir que Microsoft recopile informacion de este equipo"
printf " 8 = Desinstalar Metro Apps pre-instaladas en Windows 10"
printf " 9 = Deshabilitar OneDrive"
printf " 10 = Deshabilitar Windows Defender"
printf ""
printf " 11 = Optimizar y prolongar la vida de tu disco duro SSD"
printf ""
printf " 12 = Mostrar estado de la activacion de Windows 10"
printf " 13 = Activar Windows 10: Ejecutar slmgr /ato 30 veces seguidas"
printf ""
printf " 0 = Salir"
printf ""
printl " > "
RP = scanf
If Not isNumeric(RP) = True Then
printf ""
printf " ERROR: Opcion invalida, solo se permiten numero..."
Call showMenu()
Exit Function
End If
Select Case RP
Case 1
Call createGodMode()
Case 2
Call disableUAC()
Case 3
Call cleanSO()
Case 4
Call noPWD()
Case 5
Call showKeyboardTips()
Case 6
Call optionalFeatures()
Case 7
Call disableSpyware()
Case 8
Call cleanApps()
Case 9
Call disableOneDrive()
Case 10
Call disableDefender()
Case 11
Call powerSSD()
Case 12
Call showActivation()
Case 13
Call activate30()
Case 0
printf ""
printf " Gracias por utilizar mi script"
printf " AikonCWD dice adios!! ;D"
wait(2)
WScript.Quit
Case Else
printf ""
printf " INFO: Opcion invalida, ese numero no esta disponible"
Call showMenu()
Exit Function
End Select
End Function
Function createGodMode()
godFolder = oWSH.SpecialFolders("Desktop") & "\GodMode.{ED7BA470-8E54-465E-825C-99712043E01C}"
If oFSO.FolderExists(godFolder) = False Then
oFSO.CreateFolder(godFolder)
printf ""
printf " INFO: Se ha creado un acceso directo en tu escritorio"
Call showMenu
Else
printf ""
printf " INFO: Ya existe el modo dios, ejecutalo desde tu Escritorio"
call showMenu
End If
End Function
Function disableUAC()
printf ""
printf " Ahora se ejecutara una ventana..."
printf " Mueve la barra vertical hasta el nivel mas bajo"
printf " Acepta los cambios y reinicia el ordenador"
wait(2)
printf ""
printf " INFO: Executing UserAccountControlSettings.exe"
oWSH.Run "UserAccountControlSettings.exe"
Call showMenu
End Function
Function cleanSO()
printf ""
printf " Ahora se ejecutara una ventana..."
printf " Marca las opciones deseadas de limpieza"
printf " Acepta los cambios y reinicia el ordenador"
wait(2)
printf ""
printf " INFO: Executing cleanmgr.exe"
oWSH.Run "cleanmgr.exe"
Call showMenu
End Function
Function noPWD()
printf ""
printf " Ahora se ejecutara una ventana..."
printf " Desmarca la opcion: Los usuarios deben escribir su nombre y password para usar el equipo"
printf " Acepta los cambios y reinicia el ordenador"
wait(2)
printf ""
printf " INFO: Executing control userpasswords2"
oWSH.Run "control userpasswords2"
Call showMenu
End Function
Function optionalFeatures()
printf ""
printf " Ahora se ejecutara una ventana..."
printf " Marca/Desmarca las opciones deseadas"
printf " Acepta los cambios y reinicia el ordenador"
wait(2)
printf ""
printf " INFO: Executing optionalfeatures.exe"
oWSH.Run "optionalfeatures.exe"
Call showMenu
End Function
Function showKeyboardTips()
printf ""
printf " Ahora se ejecutara una pagina web..."
printf " En ella encontraras todas las combinaciones de teclas utiles en Win10"
wait(2)
printf ""
printf " INFO: Executing web-browser"
oWSH.Run "http://reviews.gizmodo.com/the-ultimate-guide-to-windows-10-keyboard-shortcuts-1720656591"
Call showMenu
End Function
Function disableSpyware()
printf ""
printf " Deshabilitando Telemetry usando el registro..."
wait(1)
oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\DataCollection\AllowTelemetry", 0, "REG_DWORD"
oWSH.RegWrite "HKLM\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\DataCollection\AllowTelemetry", 0, "REG_DWORD"
printf ""
printf " INFO: Telemetry deshabilitado correctamente"
pathLOG = oWSH.ExpandEnvironmentStrings("ProgramData") & "\Microsoft\Diagnosis\ETLLogs\AutoLogger\AutoLogger-Diagtrack-Listener.etl"
printf ""
printf " Borrando DiagTrack Log..."
wait(1)
If oFSO.FileExists(pathLOG) Then oFSO.DeleteFile(pathLOG)
printf ""
printf " INFO: DiagTrack Log borrado correctamente"
printf ""
printf " Deshabilitando servicios de seguimiento..."
wait(1)
oWSH.Run "sc stop DiagTrack"
oWSH.Run "sc stop RetailDemo"
oWSH.Run "sc stop dmwappushservice"
oWSH.Run "sc config DiagTrack start=disabled"
oWSH.Run "sc config RetailDemo start=disabled"
oWSH.Run "sc config dmwappushservice start=disabled"
printf ""
printf " INFO: Servicios de seguimiento deshabilitados"
printf ""
printf " Deshabilitando tareas programadas que envian datos a Microsoft..."
oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Application Experience\Microsoft Compatibility Appraiser" & chr(34) & " /DISABLE"
oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Application Experience\ProgramDataUpdater" & chr(34) & " /DISABLE"
oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Customer Experience Improvement Program\Consolidator" & chr(34) & " /DISABLE"
oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Customer Experience Improvement Program\KernelCeipTask" & chr(34) & " /DISABLE"
oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Customer Experience Improvement Program\Uploader" & chr(34) & " /DISABLE"
oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Customer Experience Improvement Program\UsbCeip" & chr(34) & " /DISABLE"
printf ""
printf " INFO: Tareas programadas de seguimiento deshabilitadas"
printf ""
printf " Deshabilitando acceso a los servidores de publicidad de Microsoft..."
wait(1)
Set F = oFSO.CreateTextFIle("C:\Windows\System32\drivers\etc\hosts", True)
F.WriteLine "127.0.0.1 localhost"
F.WriteLine "127.0.0.1 localhost.localdomain"
F.WriteLine "255.255.255.255 broadcasthost"
F.WriteLine "::1 localhost"
F.WriteLine "127.0.0.1 local"
F.WriteLine "0.0.0.0 vortex.data.microsoft.com"
F.WriteLine "0.0.0.0 vortex-win.data.microsoft.com"
F.WriteLine "0.0.0.0 telecommand.telemetry.microsoft.com"
F.WriteLine "0.0.0.0 telecommand.telemetry.microsoft.com.nsatc.net"
F.WriteLine "0.0.0.0 oca.telemetry.microsoft.com"
F.WriteLine "0.0.0.0 oca.telemetry.microsoft.com.nsatc.net"
F.WriteLine "0.0.0.0 sqm.telemetry.microsoft.com"
F.WriteLine "0.0.0.0 sqm.telemetry.microsoft.com.nsatc.net"
F.WriteLine "0.0.0.0 watson.telemetry.microsoft.com"
F.WriteLine "0.0.0.0 watson.telemetry.microsoft.com.nsatc.net"
F.WriteLine "0.0.0.0 redir.metaservices.microsoft.com"
F.WriteLine "0.0.0.0 choice.microsoft.com"
F.WriteLine "0.0.0.0 choice.microsoft.com.nsatc.net"
F.WriteLine "0.0.0.0 df.telemetry.microsoft.com"
F.WriteLine "0.0.0.0 reports.wes.df.telemetry.microsoft.com"
F.WriteLine "0.0.0.0 wes.df.telemetry.microsoft.com"
F.WriteLine "0.0.0.0 services.wes.df.telemetry.microsoft.com"
F.WriteLine "0.0.0.0 sqm.df.telemetry.microsoft.com"
F.WriteLine "0.0.0.0 telemetry.microsoft.com"
F.WriteLine "0.0.0.0 watson.ppe.telemetry.microsoft.com"
F.WriteLine "0.0.0.0 telemetry.appex.bing.net"
F.WriteLine "0.0.0.0 telemetry.urs.microsoft.com"
F.WriteLine "0.0.0.0 telemetry.appex.bing.net:443"
F.WriteLine "0.0.0.0 settings-sandbox.data.microsoft.com"
F.WriteLine "0.0.0.0 vortex-sandbox.data.microsoft.com"
F.WriteLine "0.0.0.0 survey.watson.microsoft.com"
F.WriteLine "0.0.0.0 watson.live.com"
F.WriteLine "0.0.0.0 watson.microsoft.com"
F.WriteLine "0.0.0.0 statsfe2.ws.microsoft.com"
F.WriteLine "0.0.0.0 corpext.msitadfs.glbdns2.microsoft.com"
F.WriteLine "0.0.0.0 compatexchange.cloudapp.net"
F.WriteLine "0.0.0.0 cs1.wpc.v0cdn.net"
F.WriteLine "0.0.0.0 a-0001.a-msedge.net"
F.WriteLine "0.0.0.0 statsfe2.update.microsoft.com.akadns.net"
F.WriteLine "0.0.0.0 sls.update.microsoft.com.akadns.net"
F.WriteLine "0.0.0.0 fe2.update.microsoft.com.akadns.net"
F.WriteLine "0.0.0.0 65.55.108.23 "
F.WriteLine "0.0.0.0 65.39.117.230"
F.WriteLine "0.0.0.0 23.218.212.69 "
F.WriteLine "0.0.0.0 134.170.30.202"
F.WriteLine "0.0.0.0 137.116.81.24"
F.WriteLine "0.0.0.0 diagnostics.support.microsoft.com"
F.WriteLine "0.0.0.0 corp.sts.microsoft.com"
F.WriteLine "0.0.0.0 statsfe1.ws.microsoft.com"
F.WriteLine "0.0.0.0 pre.footprintpredict.com"
F.WriteLine "0.0.0.0 204.79.197.200"
F.WriteLine "0.0.0.0 23.218.212.69"
F.WriteLine "0.0.0.0 i1.services.social.microsoft.com"
F.WriteLine "0.0.0.0 i1.services.social.microsoft.com.nsatc.net"
F.WriteLine "0.0.0.0 feedback.windows.com"
F.WriteLine "0.0.0.0 feedback.microsoft-hohm.com"
F.WriteLine "0.0.0.0 feedback.search.microsoft.com"
F.Close
printf ""
printf " INFO: Fichero HOSTS escrito correctamente"
Call showMenu
End Function
Function disableOneDrive()
printf ""
printf " Deshabilitando OneDrive usando el registro..."
wait(1)
oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\OneDrive\DisableFileSyncNGSC", 1, "REG_DWORD"
oWSH.RegWrite "HKLM\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\OneDrive\DisableFileSyncNGSC", 1, "REG_DWORD"
printf ""
printf " INFO: OneDrive deshabilitado correctamente"
Call showMenu
End Function
Function disableDefender()
printf ""
printf " Deshabilitando Windows Defender usando el registro..."
wait(1)
oWSH.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows Defender\DisableAntiSpyware", 1, "REG_DWORD"
oWSH.RegWrite "HKLM\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows Defender\DisableAntiSpyware", 1, "REG_DWORD"
printf ""
printf " INFO: Windows Defender deshabilitado correctamente"
printf " WARNING: Si no tienes antivirus, te recomiendo 360 Total Security: www.360totalsecurity.com"
wait(1)
Call showMenu
End Function
Function showActivation()
printf ""
printf " En unos segundos aparecera el estado de tu activacion..."
wait(1)
oWSH.Run "slmgr.vbs /dlv"
oWSH.Run "slmgr.vbs /xpr"
printf ""
printf " INFO: Script slmgr ejecutado correctamente"
Call showMenu
End Function
Function activate30()
printf ""
printf " Esta funcion sirve para forzar la activacion de Windows 10"
printf " solo se debe utilizar si tienes problemas para validar la licencia"
printf ""
printl " El proceso demora varios minutos. Deseas continuar? (s/n) "
If scanf <> "s" Then
printf ""
printf " INFO: Proceso cancelado por el usuario"
wait(1)
Call showMenu
Exit Function
End If
printf " Se va a ejecutar slmgr /ato 30 veces, sea paciente..."
wait(1)
For i = 1 To 30
printf " > (" & i & ") Ejecutando slmgr.vbs /ato"
oWSH.Run "slmgr.vbs /ato"
Next
printf ""
printf " INFO: Script slmgr ejecutado correctamente"
printf " INFO: El resultado tarda unos segundos en aparecer, espere..."
wait(1)
Call showMenu
End Function
Function cleanApps()
printf ""
printf " Este script va a desinstalar el siguiente listado de Apps:"
printf ""
printf " > Bing"
printf " > Zune"
printf " > Skype"
printf " > XboxApp"
printf " > OneNote"
printf " > 3DBuilder"
printf " > Getstarted"
printf " > Windows Maps"
printf " > Windows Phone"
printf " > Windows Camera"
printf " > Windows Alarms"
printf " > Windows Sound Recorder"
printf " > Windows Communications Apps"
printf " > Microsoft People"
printf " > Microsoft Office Hub"
printf " > Microsoft Solitaire Collection"
printf ""
printl " La opcion no es reversible. Deseas continuar? (s/n) "
If scanf = "s" Then
oWSH.Run "powershell get-appxpackage -Name *Bing* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *Zune* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *XboxApp* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *OneNote* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *SkypeApp* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *3DBuilder* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *Getstarted* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *Microsoft.People* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *MicrosoftOfficeHub* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *MicrosoftSolitaireCollection* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *WindowsCamera* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *WindowsAlarms* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *WindowsMaps* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *WindowsPhone* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *WindowsSoundRecorder* | Remove-AppxPackage", 1, True
oWSH.Run "powershell get-appxpackage -Name *windowscommunicationsapps* | Remove-AppxPackage", 1, True
printf ""
printf " INFO: Las Apps se han desinstalado correctamente..."
Else
printf ""
printf " INFO: Operacion cancelada por el usuario"
End If
wait(1)
Call showMenu
End Function
Function powerSSD()
printf ""
printf " Este script va a modificar las siguientes configuraciones:"
printf ""
printf " > Habilitar TRIM"
printf " > Deshabilitar VSS (Shadow Copy)"
printf " > Deshabilitar Windows Search + Indexing Service"
printf " > Deshabilitar defragmentador de discos"
printf " > Deshabilitar hibernacion del sistema"
printf " > Deshabilitar Prefetcher + Superfetch"
printf " > Deshabilitar ClearPageFileAtShutdown + LargeSystemCache"
printf ""
printl " Deseas continuar? (s/n) "
If scanf = "s" Then
printf ""
oWSH.Run "fsutil behavior set disabledeletenotify 0"
printf " # TRIM habilitado"
wait(1)
oWSH.Run "vssadmin Delete Shadows /All /Quiet"
oWSH.Run "sc stop VSS"
oWSH.Run "sc config VSS start=disabled"
printf " # Shadow Copy eliminada y deshabilitada"
wait(1)
oWSH.Run "sc stop WSearch"
oWSH.Run "sc config WSearch start=disabled"
printf " # Windows Search + Indexing Service deshabilitados"
wait(1)
oWSH.Run "schtasks /change /TN " & chr(34) & "\Microsoft\Windows\Defrag\ScheduledDefrag" & chr(34) & " /DISABLE"
printf " # Defragmentador de disco deshabilitado"
wait(1)
oWSH.Run "powercfg -h off"
printf " # Hibernacion deshabilitada"
wait(1)
oWSH.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters\EnablePrefetcher", 0, "REG_DWORD"
oWSH.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters\EnableSuperfetch", 0, "REG_DWORD"
oWSH.Run "sc stop SysMain"
oWSH.Run "sc config SysMain start=disabled"
printf " # Prefetcher + Superfetch deshabilitados"
wait(1)
oWSH.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\ClearPageFileAtShutdown", 0, "REG_DWORD"
oWSH.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\LargeSystemCache", 0, "REG_DWORD"
printf " # ClearPageFileAtShutdown + LargeSystemCache deshabilitados"
wait(1)
printf ""
printf " INFO: Felicidades, acabas de prolongar la vida y el rendimiento de tu SSD"
Else
printf ""
printf " INFO: Operacion cancelada por el usuario"
End If
wait(1)
Call showMenu
End Function
Tiene funciones muy interesantes, de las que destaco AUC bypass, detección de la version de NT (Windows 10 check), comprobar permisos y admin, forzar script en modo consola, y he creado unos lias tipo printf y scanf que me facilitan la tarea de escribir código. Todas las funciones son operativas al 100%, a ver que os parece
