CFi ShellToys XP试用天数复位

● CFi ShellToys XP 简介

ShellToys XP 是27款功能各异的Windows扩展工具合集，全面扩充Windows系统功能，为你的系统加入更多强大特性！当鼠标右键点击一个或多个选中的文件、文件夹或桌面时，其附加功能菜单就会罗列在弹出菜单中供您选用。

● 脚本

2006年写的东西，一直用到现在。适用于 CFi ShellToys XP 5.0 以后的所有版本。粘贴到记事本，保存为.vbs运行即可。

' 重置 CFi ShellToys XP 5.x 试用天数
Const HKEY_CURRENT_USER = &H80000001
ret = 0
strComputer = "."
strKeyPath = "SOFTWARE\Classes\CLSID\{C2676017-3505-4602-9605-1B93F98EDE30}"

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer &_
    "\root\default:StdRegProv")

ret = objReg.EnumKey(HKEY_CURRENT_USER, strKeyPath, sNames)

If Not IsNull(sNames) Then
 For Each sKeys In sNames
 ret = objReg.DeleteKey(HKEY_CURRENT_USER, strKeyPath & "\" & sKeys)
 Next
End If

ret = objReg.DeleteKey(HKEY_CURRENT_USER, strKeyPath)

If ret = 0 Then
 MsgBox "试用天数复位成功！", 64, "提示"
Else
 MsgBox "操作失败，返回代码：" & Cstr(ret), 16, "提示"
End If

补充：对于64位的操作系统，将第05行改为：strKeyPath = “SOFTWARE\Classes\Wow6432Node\CLSID\{C2676017-3505-4602-9605-1B93F98EDE30}”