Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1421221
  • 博文数量: 234
  • 博客积分: 4966
  • 博客等级: 上校
  • 技术积分: 3322
  • 用 户 组: 普通用户
  • 注册时间: 2006-11-13 01:03
文章分类

全部博文(234)

文章存档

2017年(2)

2016年(1)

2015年(8)

2014年(11)

2013年(44)

2012年(27)

2011年(22)

2010年(30)

2009年(37)

2008年(6)

2007年(45)

2006年(1)

分类: WINDOWS

2012-05-04 15:55:29

微软盗版提示(Windows Genuine Advantage)清除工具——RemoveWGA.vbs

打击盗版无可厚非,但这毕竟是个长远的问题。盗版的提示也确实烦了点。

已经安装了WGA的电脑可以使用以下方法清除。方法如下。

复制以下代码到记事本,并保存为RemoveWGA.vbs,双击运行即可。

'RemoveWGA.vbs
'Created by Ligy
'2008-1-21 MON

On Error Resume Next
If MsgBox("清除 “Windows Genuine Advantage” 需要使用管理员权限,请确认当前用户是否为管理员。" _
& vbCrLf & "是否继续?" _
& vbCrLf & "是,继续操作,清除“Windows Genuine Advantage”。" _
& vbCrLf & "否,结束操作。",vbQuestion+vbYesNo,"询问")=vbNo Then
Wscript.Quit
End If

Set Pros = GetObject("winmgmts:\\.\root\cimv2").ExecQuery ("Select * from Win32_Process Where Name = 'WgaTray.exe'")
For Each Pro in Pros
Pro.Terminate
Next
Set Pros = Nothing

Set WS = CreateObject("wscript.shell")
WS.Run "Regsvr32 /s /u LegitCheckControl.dll",0,True
WS.RegDelete "HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Notify\WgaLogon\"
WS.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\WgaNotify\"
Set WS = Nothing

Set FSO = CreateObject("Scripting.FileSystemObject")
SysDir=FSO.GetSpecialFolder(0) & "\system32\"
FSO.DeleteFile(SysDir & "WgaTray.exe")
FSO.DeleteFile(SysDir & "wgalogon.dll")
FSO.DeleteFile(SysDir & "LegitCheckControl.dll")
FSO.DeleteFile(SysDir & "dllcache\WgaTray.exe")
Set FSO = Nothing

MsgBox "操作已完成。",vbInformation,"提示"

代码根据网上方法所写,因本机未安装WGA,所以代码未做测试,仅做为参考。

阅读(1234) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~