[XP] Windows Genuine Advantage (WGA) VBscript

Тема в разделе "Windows", создана пользователем Christmasnet, 31 мар 2009.

Статус темы:
Закрыта.
Модераторы: ADMiNZ
  1. Christmasnet

    Christmasnet

    Регистр.:
    20 окт 2008
    Сообщения:
    151
    Симпатии:
    54
    скрипт для прохождения проверки на сайте Microsoft

    Принцып работы:
    Если уже вышло окно, что у вас не лицензионная винда, скрит удаляет файлик неудачной проверки, чистит реестр, изменяет файл ноsts для прохождения проверки. Копируем код и сохраняем с форматом *.vbs

    Код:
    '====================================================
    ' WGA.vbs
    ' AUTHOR: ChristmasNet
    ' DATE: March 2009 Version 2.0
    ' COMMENT: Script to F**k WGA
    ' SITE: _www.*******.net
    '====================================================
    '******************* F**k WGA  **********************
    '====================================================
    '****************  Delete File   ********************
    '====================================================
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objShell = CreateObject("Wscript.Shell")
    Set oShell = CreateObject("WScript.Shell")
    
    filename = "C:\Documents and Settings\All Users\Application Data\Windows Genuine Advantage\data\data.dat" 
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If fso.FileExists(filename) Then 
    fso.DeleteFile(filename)
    WScript.Echo "File (data.dat) deleted"
    End if
    WScript.Echo "File (data.dat) Not Found"
    
    '====================================================
    '*************  Clean Registry   ******************** 
    '====================================================
    Const HKEY_LOCAL_MACHINE = &H80000002
    strComputer = "."
     
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
        strComputer & "\root\default:StdRegProv")
     
    If strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Notify\WgaLogon" Then
    oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath
    WScript.Echo "Registry Key deleted"
    End if
    WScript.Echo "Registry Key Not Found"
    '====================================================
    '***************  Patch Hosts   ********************* 
    '====================================================
    
    Dim sLGFSpec : sLGFSpec = "c:\WINDOWS\system32\drivers\etc\hosts"
     
     ' need a FSO for pathes and IO
    Dim oFS : Set oFS = CreateObject( "Scripting.FileSystemObject" )
     ' need a WSN for user, computer
    Dim oWSN : Set oWSN = CreateObject( "WScript.Network" )
      
    Dim oTS
     ' Create sLGFSpec with Header if not there
    If Not oFS.FileExists( sLGFSpec ) Then
    Set oTS = oFS.CreateTextFile( sLGFSpec )
    oTS.WriteLine Join( Array( "IP-adress  site" ))
    oTS.Close
    End If
     ' Append Info to sLGFSpec
    Set oTS = oFS.OpenTextFile( sLGFSpec, 8, False )
    oTS.WriteLine Join( Array( "127.0.0.1  mpa.one.microsoft.com" ))
    oTS.WriteLine Join( Array( "127.0.0.1  sls.microsoft.com" ))
    oTS.Close
    WScript.Echo "Successfully patched file"
     
    bost84 нравится это.
  2. konst37

    konst37 Создатель

    Регистр.:
    4 апр 2009
    Сообщения:
    14
    Симпатии:
    4
    Признано лучшими собаководами :)
    И не за таким страшным хайдозабором
    http://antiwpa11.tk
     
  3. Nikulcov

    Nikulcov Создатель

    Регистр.:
    17 мар 2008
    Сообщения:
    10
    Симпатии:
    0
    Вообщем он потом опять случаем не появится, если винду крякнутую продолжать обновлять?
     
  4. abasive

    abasive Постоялец

    Регистр.:
    9 мар 2009
    Сообщения:
    117
    Симпатии:
    39
    уже в сети есть корпоративные версий виндовс не требует активаций
     
  5. Av0id

    Av0id Постоялец

    Регистр.:
    29 апр 2008
    Сообщения:
    51
    Симпатии:
    21
    активаций может и не требуют, а вот проверку на сайте windows update пройти придется, чтобы что-нибудь скачать
     
  6. bost84

    bost84

    Регистр.:
    26 апр 2007
    Сообщения:
    214
    Симпатии:
    27
    работает...
    ещё бы на офис такую же...
     
  7. mxL.inc

    mxL.inc Постоялец

    Регистр.:
    10 май 2009
    Сообщения:
    87
    Симпатии:
    18
    А на офис такая есть! Точно! К сожалению ссылки дать не могу, но по поиску однозначно нашустрить можно! Была даже программа, которая всё в одном крякала.

    ПС: Только они действуют один раз, после обновления надо опять крякать.
     
  8. Christmasnet

    Christmasnet

    Регистр.:
    20 окт 2008
    Сообщения:
    151
    Симпатии:
    54
    Эта строка отвечает за MS Office 2007
    PHP:
    oTS.WriteLine Join( Array( "127.0.0.1  sls.microsoft.com" ))
    после обновления не нужно по второму разу запускать этот скрипт.
     
  9. Дмитрий Кесаев

    Дмитрий Кесаев aka Zlobniy Babko

    Заблокирован
    Регистр.:
    10 май 2007
    Сообщения:
    1.332
    Симпатии:
    1.266
    Может было, может нет, но все - может кому-то пригодится)))
    Запостил в приблизительную тему, если шо снесите пост)))
    Удаление сообщений Windows Genuine Advantage Notification

    1. Нажмите “Пуск” и “Выполнить”
    2. В поле окошка “Запуск программы” введите “regedit” и нажмите “Enter”
    3. Используя левую панель пройдите путь “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Notify\WgaLogon”
    4. Удалите папку “WgaLogon”
    5. Перезапустите компьютер


    Делаем Windows лицензионным.


    1. Если неудачные проверки подлинности уже проводились, то удалите файл data.dat из Documents and Settings\All Users\Application Data\Windows Genuine Advantage\data\ (папка скрытая).
    2. При помощи любого текстового редактора (к примеру, стандартного Блокнота) открываем файл hosts, который находиться по адресу Windows\system32\drivers\etc\ и добавляем вот такую строчку: 127.0.0.1 mpa.one.microsoft.com
    3. Перезагружаем Windows
    4. Проверяем подлинность Вашего Windows и радуемся успешному результату
     
Статус темы:
Закрыта.