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

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

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

Все ответы

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

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

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

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

    ' 
    ' Сценарий 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
  • Уважаемый пользователь!

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


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