информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
За кого нас держат?Где водятся OGRыАтака на Internet
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 На GitHub пугают ложными предупреждениями... 
 Атака на пользователей больших... 
 Notepad++ полгода раздавал зараженные... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / operating systems
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
ChangeVLKeySP1.vbs 13.04.04 10:58  Число просмотров: 3430
Автор: MAO Статус: Незарегистрированный пользователь
<"чистая" ссылка>
ChangeVLKeySP1.vbs
________________________
'
' WMI Script - ChangeVLKey.vbs
'
' This script changes the product key on the computer
'
*************************************************************************

ON ERROR RESUME NEXT


if Wscript.arguments.count<1 then
Wscript.echo "Script can't run without VolumeProductKey argument"
Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

result = Obj.SetProductKey (VOL_PROD_KEY)

if err <> 0 then
WScript.Echo Err.Description, "0x" & Hex(Err.Number)
Err.Clear
end if

Next
_______________________________

Example
The following example describes how to use the ChangeVLKeySP1.vbs script from a command line:

Click Start, and then click Run.

In the Open box, type the following command, where AB123-123AB-AB123-123AB-AB123 is the new product key that you want to use, and then click OK:
c:\changevlkeysp1.vbs ab123-123ab-ab123-123ab-ab123
<operating systems>
[NT] [добавлено] Принудительная реактивация WinXP+SP1? 05.04.04 17:26   [vaborg, HandleX]
Автор: Garick <Yuriy> Статус: Elderman
Отредактировано 06.04.04 13:09  Количество правок: 2
<"чистая" ссылка>
Мы устанавливаем ЛИЦЕНЗИОННУЮ Вынь на один комп+драйвера+софт, а потом разливаем на другие с помощью имиджа. Изменяем на клонированных имена и продукт номер Вынь, после этого все активируем. Но была ошибка отклонировали уже активированную Вынь и было необходимо переактивировать на другие продукт номера. Без СП1 ХР легко переактивируется, но в СП1 изменена внутренняя процедура активации и манипуляции с реестром (те которые описанны в Инет) не помогают.

ЗЫ 2 Ваборг: Штраф за что?
STFW 06.04.04 15:21  
Автор: ZaDNiCa <indeed ZaDNiCa> Статус: Elderman
<"чистая" ссылка>
http://astalavista.box.sk
windows XP reactivation
[NT] Сенкс, нашел и получилось... 09.04.04 17:26  
Автор: Garick <Yuriy> Статус: Elderman
<"чистая" ссылка>
Пакет называется Windows_XP_Activation_and_Reactivation

Подскажите еще про смену продукт кея для В2К без переинсталяции
ЗЫ: Ситуация похожая корневому посту, есть лицензия, но нет самой ориг. инсталяции (В2К англ. у майкрософта долго заказывать кит диск)
ChangeVLKeySP1.vbs 13.04.04 10:58  
Автор: MAO Статус: Незарегистрированный пользователь
<"чистая" ссылка>
ChangeVLKeySP1.vbs
________________________
'
' WMI Script - ChangeVLKey.vbs
'
' This script changes the product key on the computer
'
*************************************************************************

ON ERROR RESUME NEXT


if Wscript.arguments.count<1 then
Wscript.echo "Script can't run without VolumeProductKey argument"
Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

result = Obj.SetProductKey (VOL_PROD_KEY)

if err <> 0 then
WScript.Echo Err.Description, "0x" & Hex(Err.Number)
Err.Clear
end if

Next
_______________________________

Example
The following example describes how to use the ChangeVLKeySP1.vbs script from a command line:

Click Start, and then click Run.

In the Open box, type the following command, where AB123-123AB-AB123-123AB-AB123 is the new product key that you want to use, and then click OK:
c:\changevlkeysp1.vbs ab123-123ab-ab123-123ab-ab123
1




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2026 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach