Win8 永久试用补丁 VBS脚本

保存为扩展名为VBS的文件,如win8.vbs,双击运行.

该脚本会申请UAC权限,无需自行使用管理员权限启动.

If WScript.Arguments.length=0 Then  
  Set objShell=CreateObject("Shell.Application")
  objShell.ShellExecute "wscript.exe", Chr(34) & _
  WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else  
  Set wshell=createobject("Wscript.Shell")
  Sub c(s)
    wshell.run s,0
  End Sub
  c "takeown /F %WINDIR%\System32\sppsvc.exe"
  c "takeown /F %WINDIR%\System32\sppcomapi.dll"
  c "takeown /F %WINDIR%\System32\sppcommdlg.dll"
  c "icacls %WINDIR%\System32\sppsvc.exe /deny *S-1-1-0:F"
  c "icacls %WINDIR%\System32\sppcomapi.dll /deny *S-1-1-0:F"
  c "icacls %WINDIR%\System32\sppcommdlg.dll /deny *S-1-1-0:F"
  WScript.echo "永久试用补丁执行完毕"
End If