Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] Можно ли этот (.vbs) скрипт интегрировать в (.bat) скрипт?

Ответить
Настройки темы
CMD/BAT - [решено] Можно ли этот (.vbs) скрипт интегрировать в (.bat) скрипт?

Новый участник


Сообщения: 49
Благодарности: 0

Профиль | Отправить PM | Цитировать

Изменения
Автор: ufooo000
Дата: 31-12-2016
Код: Выделить весь код
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
WinProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
WinProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
WinProductKey = ConvertToKey(DigitalProductId)
strProductKey ="Windows Key: " & WinProductKey
WinProductID = Win8ProductName & WinProductID & strProductKey
MsgBox(WinProductKey)
MsgBox(WinProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin8 = (regKey(66) \ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin8 And 2) * 4)
j = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
y = 14
Do
Cur = Cur * 256
Cur = regKey(y + KeyOffset) + Cur
regKey(y + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
y = y -1
Loop While y >= 0
j = j -1
winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput
Last = Cur
Loop While j >= 0
If (isWin = 1) Then
keypart1 = Mid(winKeyOutput, 2, Last)
insert = "N"
winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then winKeyOutput = insert & winKeyOutput
End If
a = Mid(winKeyOutput, 1, 5)
b = Mid(winKeyOutput, 6, 5)
c = Mid(winKeyOutput, 11, 5)
d = Mid(winKeyOutput, 16, 5)
e = Mid(winKeyOutput, 21, 5)
ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function

Отправлено: 21:12, 30-12-2016

 

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать

Какой «bat», и зачем «интегрировать»?

Отправлено: 08:05, 31-12-2016 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 49
Благодарности: 0

Профиль | Отправить PM | Цитировать

( ProductKey.bat ) - вот какой!
Цитата Iska:
зачем «интегрировать »
Ради интереса.

Отправлено: 18:54, 31-12-2016 | #3


Забанен


Сообщения: 793
Благодарности: 260

Профиль | Цитировать

Цитата ufooo000:
Ради интереса.
Конечно можно, вот только смысл это делать, когда можно на одном командном языке написать декодор ProductKey.

Отправлено: 20:57, 31-12-2016 | #4


Новый участник


Сообщения: 49
Благодарности: 0

Профиль | Отправить PM | Цитировать

Цитата greg zakharov:
когда можно на одном командном языке написать декодор ProductKey »
Можно и так- но я сам на бат не напишу.

Отправлено: 23:11, 31-12-2016 | #5


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать

ufooo000, всё сделано уже до нас.

CMD/BAT: получение ProductKey установленной Windows — CMD/BAT — Коллекция скриптов и идей — Серый форум
CMD/BAT - [решено] как узнать и сменить серийник XP из cmd ?
Это сообщение посчитали полезным следующие участники:

Отправлено: 09:32, 01-01-2017 | #6


Новый участник


Сообщения: 49
Благодарности: 0

Профиль | Отправить PM | Цитировать

Годится!

Последний раз редактировалось ufooo000, 02-01-2017 в 22:46.

Отправлено: 10:23, 01-01-2017 | #7



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] Можно ли этот (.vbs) скрипт интегрировать в (.bat) скрипт?

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - [решено] Можно ли интегрировать, (.Vbs) скрипт в, (.bat) скрипт, и запустить его как "батник" turbolover Скриптовые языки администрирования Windows 1 29-07-2015 00:46
HDD - можно ли использовать этот жесткий диск shmel_sv@vk Накопители (SSD, HDD, USB Flash) 11 17-11-2014 16:02
VBS/WSH/JS - Скрипт VBS для запуска .bat-файла при выключении компьютера(сценарий) W1nn1ep00h Скриптовые языки администрирования Windows 2 16-05-2013 16:31
Любой язык - [решено] Передать данные из bat-файла в vbs-скрипт Hector Скриптовые языки администрирования Windows 2 21-06-2011 15:43
CMD/BAT - [решено] Отключение/включение служб с помощью bat/vbs возможно ли ? dark-------13 Скриптовые языки администрирования Windows 1 05-05-2011 09:54


« Предыдущая тема | Следующая тема »


 
Переход