none
Изменение ключа продукта для корпоративного лицензирования на компьютере с Windows XP или Windows Server 2003 дополнительные опции RRS feed

 > 

  • Общие обсуждения

  • Discussion
    Нужно войти
    0
    Нужно войти
    Есть замечательный скрипт для смены ключей у VLK версий операционных систем. Меня интересует задача в выполнении скрипта ChangeVLKeySP1.vbs , через групповые политики. Но, в этом скрипте необходимо сделать отчетность, о том, что он выполнился. Как, мне видно, что бы создавал текстовые фалы с именем компьютера, и записывал туда результат своего выполнения.
    iPro
    13 июля 2010 г. 10:11
    |

Все ответы

  • Discussion
    Нужно войти
    0
    Нужно войти

    и в чем проблема?

    создайте файлик в общей шаре с именем компа и и поправьте значения if'а на вывод все результатов (как положительных так и отрицательных) в этот файлик...

    можно дозасунуть скрипт который вытаскивает значения этого ключа из каждой машины и также пишет тудаже

    13 июля 2010 г. 10:35
    |
  • Discussion
    Нужно войти
    0
    Нужно войти
    Спасибо конечно, но Я не программист. Нужна конкретика.
    iPro
    13 июля 2010 г. 11:08
    |
  • Discussion
    Нужно войти
    0
    Нужно войти
    Администраторы должны уметь писать скрипты, тем более данную задачу можно реализовать даже на командной строке Windows (cmd). Не сомневаюсь, что кто-либо из отвечающих напишет вам такой скрипт, но придется подождать.
    13 июля 2010 г. 11:55
    |
    Модератор
  • Discussion
    Нужно войти
    0
    Нужно войти

    На всякий случай оригинальный скрипт, для тех, кто не ходил по ссылке

    ' 
' Сценарий WMI — ChangeVLKey.vbs
'
' Этот сценарий изменяет на компьютере ключ программного продукта.
'
'***************************************************************************

ON ERROR RESUME NEXT


if Wscript.arguments.count<1 then
  Wscript.echo "Нельзя запустить сценарий без аргумента VolumeProductKey"
  Wscript.echo "Правильное использование: 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,"-","") 'удалить дефисы, если они есть

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

    iPro
    14 июля 2010 г. 13:58
    |
  • Discussion
    Нужно войти
    0
    Нужно войти

    Уважаемый пользователь!

    В вашей теме отсутствует активность в течение последних 5 дней. При отсутствии каких-либо действий в течение 2 последующих дней, тема будет переведена в разряд обсуждений. Вы можете возобновить дискуссию, просто оставив сообщение в данной теме.

    Сазонов Илья http://www.itcommunity.ru/blogs/sie-wl/
    23 июля 2010 г. 3:16
    |
    Модератор