kb892130 삭제 정보

메모장을 열고 다음을 입력하세요:

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY

if Wscript.arguments.count<1 then< / p>

VOL_PROD_KEY=InputBox("IT 자매 기술 포럼"&vbCr&vbCr&" 이 프로그램은 현재 Windows 일련 번호를 자동으로 교체하고 Microsoft 정품 확인을 통과합니다. "&vbCr&vbCr&" 일련 번호(OEM 버전이 유효하지 않으며 기본 버전은 XP VLK입니다. ):","Windows XP 일련 번호 자동 교체기","CM3HY-26VYW-6JRYC-X66GX-JVY2D")

if VOL_PROD_KEY="" then

Wscript.quit< / p>

end if

else

VOL_PROD_KEY = Wscript.arguments.Item(0)

end if

VOL_PROD_KEY = 바꾸기(VOL_PROD_KEY,"-","") '하이픈 제거

GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")의 각 Obj에 대해

result = Obj.SetProductKey (VOL_PROD_KEY)

if err = 0이면

Wscript.echo "확인! Microsoft로 가서 확인하세요."

end if

if err <> 0 then

Wscript.echo "교체에 실패했습니다. 입력한 CD-KEY가 현재 버전과 일치하지 않습니다."

Err .Clear

end if

Next

저장하고 TXT를 VBS로 두 번 클릭하여 가져오면 정품이 됩니다. 해봤어, 알았어