Скрипт вбс узнать лицензию windows 10

Что делать если вы забыли ключ от Windows 10 или Windows 8? Как быть если предыдущий администратор не передал вам ключ от Windows Server 2012 R2? Ноутбук с Windows непонятной версии нужно откатить на заводские настройки, а ключ от операционной системы никто не помнит?

Profile picture for user Олег

Windows

Что делать если вы забыли ключ от Windows 10 или Windows 8? Как быть если предыдущий администратор не передал вам ключ от Windows Server 2012 R2? Ноутбук с Windows непонятной версии нужно откатить на заводские настройки, а ключ от операционной системы никто не помнит?

В зависимости от того, как вы получили свою копию Windows 10, для активации может потребоваться 25-значный ключ продукта или цифровая лицензия. 

  • Цифровая лицензия (в Windows 10 версии 1511 носит название цифрового разрешения) — это способ активации в Windows 10, который не требует ввода ключа продукта. 
  • Ключ продукта представляет собой 25-значный код, используемый для активации Windows. Вы увидите КЛЮЧ ПРОДУКТА: XXXXX-XXXXX-XXXXX-XXXXX-XXXXX.

Ключ продукта

Если у вас установлен ключ продукта, то можно его узнать. Просто скопируйте текст ниже в файл winkey.vbs и запустите на нужной машине. Если повезёт, то скрипт определит ключ и версию системы.

Ключ продукта в BIOS

Лицензионный ключ может быть прописан в BIOS устройства. Узнать его можно через Powershell:

(Get-WmiObject -query 'select * from SoftwareLicensingService').OA3xOriginalProductKey

win

Или в командной строке:

wmic path softwarelicensingservice get OA3xOriginalProductKey

win

Цифровая лицензия

Если вы бесплатно обновили ОС Windows 7 или Windows 8.1 до Windows 10, вместо ключа продукта вы должны получить цифровую лицензию. Если у вас есть цифровая лицензия для устройства, вы можете переустановить тот же выпуск Windows 10 на этом устройстве без ввода ключа продукта.

В этом случае при попытке запустить скрипт для определения ключа вы получите это: BBBBB-BBBBB-BBBBB-BBBBB-BBBBB.

win

Открываем окно параметров.

Проверить состояния активации в параметрах

win

Надпись об активации может отличаться:

win

Ключ по умолчанию

Можно узнать ключ по умолчанию для текущей редакции. Он устанавливается, если вы не указываете свой ключ и сохраняется при получении цифровой лицензии.

Частично:

slmgr -dli
slmgr -dlv

win

Полную версия ключа можно посмотреть в реестре:

HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionSoftwareProtectionPlatformBackupProductKeyDefault

Скрипт VBS в помощь. Просто скопируйте текст ниже в файл winkey2.vbs и запустите на нужной машине. Скрипт определит ключ по умолчанию и версию системы.

Этот ключ позволит установить windows 10 без проведения активации. Потом автоматически должна активироваться цифровая лицензия, если она привязана к вашей учётной записи Microsoft.

Как посмотреть ключ Windows 10Сразу после выхода новой ОС, все стали интересоваться, как узнать ключ установленной Windows 10, хотя в большинстве случаев он не требуется. Тем не менее, если вам все-таки требуется ключ для тех или иных целей, его сравнительно просто определить, как для установленной ОС, так и зашитый производителем в UEFI ключ продукта (они могут отличаться).

В этой инструкции описаны простые способы узнать ключ продукта Windows 10 с помощью командной строки, Windows PowerShell, а также сторонних программ. Заодно упомяну о том, почему разные программы показывают разные данные, как отдельно посмотреть OEM ключ в UEFI (для ОС, которая изначально была на компьютере) и ключ установленной в данный момент системы.

  • Просмотр ключа продукта Windows 10 в ShowKeyPlus (ключ установленной системы и ключ из UEFI)
  • Еще две программы, чтобы узнать ключ продукта Windows 10
  • Как узнать ключ с помощью PowerShell
  • С помощью скрипта VBS

Примечание: если вы произвели бесплатное обновление до Windows 10, а теперь хотите узнать ключ активации для чистой установки на том же компьютере, вы можете это сделать, но это не обязательно (к тому же у вас будет ключ такой же, как и у других людей, получивших десятку путем обновления). При установке Windows 10 с флешки или диска, вас попросят ввести ключ продукта, но вы можете пропустить этот шаг, нажав в окне запроса «У меня нет ключа продукта» (и Майкрософт пишет, что так и нужно делать).

После установки и подключения к Интернету, система будет автоматически активирована, поскольку активация «привязывается» к вашему компьютеру после обновления. То есть поле для ввода ключа в программе установки Windows 10 присутствует только для покупателей Retail-версий системы. Дополнительно: для чистой установки Windows 10 можно использовать ключ продукта от ранее установленной на том же компьютере Windows 7, 8 и 8.1. Подробнее про такую активацию: Активация Windows 10. А при желании, можно использовать Windows 10 и без активации.

Просмотр ключа продукта  установленной Windows 10 и OEM-ключа в ShowKeyPlus

Есть множество программ для описываемых здесь целей, о многих из которых я писал в статье Как узнать ключ продукта Windows 8 (8.1) (подойдет и для Windows 10), но мне больше других приглянулась найденная недавно ShowKeyPlus, которая не требует установки и отдельно показывает сразу два ключа: установленной в текущий момент системы и OEM ключ в UEFI. Заодно сообщает, для какой именно версии Windows подходит ключ из UEFI. Также с помощью этой программы можно узнать ключ из другой папки с Windows 10 (на другом жестком диске, в папке Windows.old), а заодно проверить ключ на валидность (пункт Check Product Key).

Все, что нужно сделать — запустить программу и посмотреть отображаемые данные:

Посмотреть ключ Windows 10 в ShowKeyPlus

 

  • Installed Key — ключ установленной системы.
  • OEM Key (Original Key) — ключ предустановленной ОС, если она была на компьютере, т.е. ключ из UEFI.

Также эти данные можно сохранить в текстовый файл для дальнейшего использования или архивного хранения, нажав кнопку «Save». Кстати, проблема с тем, что порой разные программы показывают разные ключи продукта для Windows, как раз и появляется из-за того, что некоторые из них смотрят его в установленной системе, другие в UEFI.

Как узнать ключ продукта Windows 10 в ShowKeyPlus — видео

Скачать ShowKeyPlus можно со страницы https://github.com/Superfly-Inc/ShowKeyPlus/releases/

Еще две программы, чтобы узнать ключ продукта Windows 10

Если по той или иной причине ShowKeyPlus для вас оказался неподходящим вариантом, можно использовать следующие две программы:

Просмотр ключа установленной Windows 10 с помощью PowerShell

Там, где можно обойтись без сторонних программ, я предпочитаю обходиться без них. Просмотр ключа продукта Windows 10 — одна из таких задач. Если же вам проще использовать бесплатную программу для этого, пролистайте руководство ниже. (Кстати, некоторые программы для просмотра ключей отправляют их заинтересованным лицам)

Простой команды PowerShell или командной строки, для того чтобы узнать ключ установленной в настоящий момент времени системы не предусмотрено (есть такая команда, показывающая ключ из UEFI, покажу ниже. Но обычно требуется именно ключ текущей системы, отличающийся от предустановленной). Но можно воспользоваться готовым скриптом PowerShell, который отображает необходимую информацию (автор скрипта Jakob Bindslet).

Вот что потребуется сделать. Прежде всего, запустите блокнот и скопируйте в него код, представленный ниже.

#Main function
Function GetWin10Key
{
	$Hklm = 2147483650
	$Target = $env:COMPUTERNAME
	$regPath = "SoftwareMicrosoftWindows NTCurrentVersion"
	$DigitalID = "DigitalProductId"
	$wmi = [WMIClass]"\$Targetrootdefault:stdRegProv"
	#Get registry value 
	$Object = $wmi.GetBinaryValue($hklm,$regPath,$DigitalID)
	[Array]$DigitalIDvalue = $Object.uValue 
	#If get successed
	If($DigitalIDvalue)
	{
		#Get producnt name and product ID
		$ProductName = (Get-itemproperty -Path "HKLM:SoftwareMicrosoftWindows NTCurrentVersion" -Name "ProductName").ProductName 
		$ProductID =  (Get-itemproperty -Path "HKLM:SoftwareMicrosoftWindows NTCurrentVersion" -Name "ProductId").ProductId
		#Convert binary value to serial number 
		$Result = ConvertTokey $DigitalIDvalue
		$OSInfo = (Get-WmiObject "Win32_OperatingSystem"  | select Caption).Caption
		If($OSInfo -match "Windows 10")
		{
			if($Result)
			{
				
				[string]$value ="ProductName  : $ProductName `r`n" `
				+ "ProductID    : $ProductID `r`n" `
				+ "Installed Key: $Result"
				$value 
				#Save Windows info to a file 
				$Choice = GetChoice
				If( $Choice -eq 0 )
				{	
					$txtpath = "C:Users"+$env:USERNAME+"Desktop"
					New-Item -Path $txtpath -Name "WindowsKeyInfo.txt" -Value $value   -ItemType File  -Force | Out-Null 
				}
				Elseif($Choice -eq 1)
				{
					Exit 
				}
			}
			Else
			{
				Write-Warning "Запускайте скрипт в Windows 10"
			}
		}
		Else
		{
			Write-Warning "Запускайте скрипт в Windows 10"
		}
		
	}
	Else
	{
		Write-Warning "Возникла ошибка, не удалось получить ключ"
	}

}
#Get user choice 
Function GetChoice
{
    $yes = New-Object System.Management.Automation.Host.ChoiceDescription "&Yes",""
    $no = New-Object System.Management.Automation.Host.ChoiceDescription "&No",""
    $choices = [System.Management.Automation.Host.ChoiceDescription[]]($yes,$no)
    $caption = "Подтверждение"
    $message = "Сохранить ключ в текстовый файл?"
    $result = $Host.UI.PromptForChoice($caption,$message,$choices,0)
    $result
}
#Convert binary to serial number 
Function ConvertToKey($Key)
{
	$Keyoffset = 52 
	$isWin10 = [int]($Key[66]/6) -band 1
	$HF7 = 0xF7
	$Key[66] = ($Key[66] -band $HF7) -bOr (($isWin10 -band 2) * 4)
	$i = 24
	[String]$Chars = "BCDFGHJKMPQRTVWXY2346789"	
	do
	{
		$Cur = 0 
		$X = 14
		Do
		{
			$Cur = $Cur * 256    
			$Cur = $Key[$X + $Keyoffset] + $Cur
			$Key[$X + $Keyoffset] = [math]::Floor([double]($Cur/24))
			$Cur = $Cur % 24
			$X = $X - 1 
		}while($X -ge 0)
		$i = $i- 1
		$KeyOutput = $Chars.SubString($Cur,1) + $KeyOutput
		$last = $Cur
	}while($i -ge 0)
	
	$Keypart1 = $KeyOutput.SubString(1,$last)
	$Keypart2 = $KeyOutput.Substring(1,$KeyOutput.length-1)
	if($last -eq 0 )
	{
		$KeyOutput = "N" + $Keypart2
	}
	else
	{
		$KeyOutput = $Keypart2.Insert($Keypart2.IndexOf($Keypart1)+$Keypart1.length,"N")
	}
	$a = $KeyOutput.Substring(0,5)
	$b = $KeyOutput.substring(5,5)
	$c = $KeyOutput.substring(10,5)
	$d = $KeyOutput.substring(15,5)
	$e = $KeyOutput.substring(20,5)
	$keyproduct = $a + "-" + $b + "-"+ $c + "-"+ $d + "-"+ $e
	$keyproduct 
	
  
}
GetWin10Key

Сохраните файл с расширением .ps1. Для того, чтобы сделать это в блокноте, при сохранении в поле «Тип файла» укажите «Все файлы» вместо «Текстовые документы». Сохранить можно, например, под именем win10key.ps1

После этого, запустите Windows PowerShell от имени Администратора. Для этого, можно начать набирать PowerShell в поле поиска, после чего кликнуть по нему правой кнопкой мыши и выбрать соответствующий пункт.

Запуск PowerShell от имени администратора

В PowerShell введите следующую команду: Set-ExecutionPolicy RemoteSigned и подтвердите ее выполнение (ввести Y и нажать Enter в ответ на запрос).

Следующим шагом, введите команду: C:win10key.ps1 (в данной команде указывается путь к сохраненному файлу со скриптом).

Получение ключа Windows 10 в PowerShell

В результате выполнения команды вы увидите информацию о ключе установленной Windows 10 (в пункте Installed Key) и предложение сохранить ее в текстовый файл. После того, как вы узнали ключ продукта, можете вернуть политику выполнения скриптов в PowerShell к значению по умолчанию с помощью команды Set-ExecutionPolicy restricted

Как узнать OEM ключ из UEFI в PowerShell

Если на вашем компьютере или ноутбуке была предустановлена Windows 10 и требуется просмотреть OEM ключ (который хранится в UEFI материнской платы), вы можете использовать простую команду, которую необходимо запустить в командной строке от имени администратора.

wmic path softwarelicensingservice get OA3xOriginalProductKey

В результате вы получите ключ предустановленной системы при его наличии в системе (он может отличаться от того ключа, который используется текущей ОС, но при этом может использоваться для того, чтобы вернуть первоначальную версию Windows).

Еще один вариант этой же команды, но для Windows PowerShell

(Get-WmiObject -query "select * from SoftwareLicensingService").OA3xOriginalProductKey

Как посмотреть ключ установленной Windows 10 с помощью скрипта VBS

И еще один скрипт, уже не для PowerShell, а в формате VBS (Visual Basic Script), который отображает ключ продукта установленной на компьютере или ноутбуке Windows 10 и, возможно, удобнее для использования.

Скопируйте в блокнот строки, представленные ниже.

Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLMSOFTWAREMicrosoftWindows NTCurrentVersion"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
Win10ProductName = "Версия Windows 10: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
Win10ProductID = "ID продукта: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
Win10ProductKey = ConvertToKey(DigitalProductId)
ProductKeyLabel ="Ключ Windows 10: " & Win10ProductKey
Win10ProductID = Win10ProductName & Win10ProductID & ProductKeyLabel
MsgBox(Win10ProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin10 = (regKey(66)  6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin10 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 (isWin10 = 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

Должно получиться как на скриншоте ниже.

Скрипт чтобы узнать ключ Windows 10 в блокноте

После этого сохраните документ с расширением .vbs (для этого в диалоге сохранения в поле «Тип файла» выберите «Все файлы».

Сохранение скрипта VBS в блокноте

Перейдите в папку, где был сохранен файл и запустите его — после выполнения вы увидите окно, в котором будут отображены ключ продукта и версия установленной Windows 10.

Ключ продукта Windows 10, полученный с помощью скрипта VBS

Как я уже отметил, программ для просмотра ключа есть множество — например, в Speccy, а также других утилитах для просмотра характеристик компьютера можно узнать эту информацию. Но, уверен, тех способов, что описаны здесь, будет достаточно практически в любой ситуации.

  • 23.10.2020

В данной статье рассмотрим ситуацию, если у Вас уже активирована Windows 10 и Вам нужно узнать какой именно ключ активации у Вас был введен (активирован). Узнать это можно с помощью стандартных средств Windows, а так же с помощью сторонних приложений.

Если же у Вас система не активирована и Вы ранее не вводили ключ активации в Вашу систему, то приобрести лицензионный ключ различных версий Windows 10 можете в нашем каталоге на следующей странице от 690₽. Моментальная доставка товара на Вашу электронную почту в автоматическом режиме. Гарантия и круглосуточная техподдержка.

1) Первый способ будет самым простым, с помощью стандартных средств Windows и скрипта VBS. Создайте текстовый документ (блокнот) и скопируйте туда следующий скрипт:

Set WshShell = CreateObject(«WScript.Shell»)
regKey = «HKLMSOFTWAREMicrosoftWindows NTCurrentVersion»
DigitalProductId = WshShell.RegRead(regKey & «DigitalProductId»)
Win10ProductName = «Версия Windows 10: » & WshShell.RegRead(regKey & «ProductName») & vbNewLine
Win10ProductID = «ID продукта: » & WshShell.RegRead(regKey & «ProductID») & vbNewLine
Win10ProductKey = ConvertToKey(DigitalProductId)
ProductKeyLabel =»Ключ Windows 10: » & Win10ProductKey
Win10ProductID = Win10ProductName & Win10ProductID & ProductKeyLabel
MsgBox(Win10ProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin10 = (regKey(66) 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin10 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 (isWin10 = 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

— Сохраните данный файл с любым названием, но расширение задайте ему .vbs, убедитесь, что исходный файл у Вас получился не с расширением .txt

— После запустите получившийся файл и у Вас выйдет окно с Вашей версией Windows 10 и тем ключом продукта, который был введен у Вас в систему.

2) Второй способ — это простая утилита ShowKeyPlus, в ней имеется возможность просмотра следующих параметров:

— Produict Name — Версия Windows 10

— Installed Key — ключ установленной системы.

— OEM Key (Original Key) — ключ предустановленной ОС, если она была на компьютере, т.е. ключ из UEFI.

Бесплатно скачать утилиту можете из магазина приложений Windows Store.

3) Рассмотрим еще одну простую утилиту — NirSoft ProduKey. Это бесплатная утилита, которая отображает ключи установленных продуктов Microsoft, в случае, если они были активированы. Утилита отображает в том числе и активированный ключ в системе Windows 10. Приложение доступно для скачивания с официального сайта NirSoft.

В этом посте будет показано, как найти ключ продукта Windows 10 с помощью скрипта VB. Но я должен добавить, что это работает и в Windows 8.1, Windows 7 и более ранних версиях. Если по какой-то причине вам нужно узнать свою лицензию или серийный номер Windows, то этот пост обязательно поможет вам найти ключ продукта Windows 10.

Найти ключ продукта Windows 10

Откройте Блокнот и скопируйте и вставьте следующее:

 Set WshShell = CreateObject ("WScript.Shell")
MsgBox ConvertToKey (WshShell.RegRead ("HKLM  SOFTWARE  Microsoft  Windows NT  CurrentVersion  DigitalProductId"))
Функция ConvertToKey (Key)
Const KeyOffset = 52
я = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Делать
Cur = 0
х = 14
Делать
Cur = Cur * 256
Cur = Key (x + KeyOffset) + Cur
Key (x + KeyOffset) = (Cur  24) и 255
Cur = Cur Mod 24
х = х -1
Цикл Пока х> = 0
я = я -1
KeyOutput = Mid (Chars, Cur + 1, 1) & KeyOutput
Если (((29 - i) Mod 6) = 0) А (i -1), то
я = я -1
KeyOutput = "-" & KeyOutput
End If
Цикл пока я> = 0
ConvertToKey = KeyOutput
Конечная функция 

В диалоговом окне «Сохранить как» выберите «Все файлы» и сохраните этот файл как файл .vbs, присвоив ему любое подходящее имя, например keyfinder.vbs.

Теперь запустите этот файл, и вы увидите ваш ключ продукта Windows 10.

Источник: Microsoft.

Вы также можете найти ключ продукта Windows с помощью командной строки или PowerShell.

Если эти методы не работают для вас, вы также можете использовать некоторые бесплатные программные средства поиска ключей для восстановления и сохранения не только Windows, но даже серий Office, Software, Games и лицензионных ключей.

Этот пост поможет вам, если вы хотите удалить ключ продукта Windows.

Прочитайте наш обзор Windows 10 и станьте ниндзя с этими советами и рекомендациями по Windows 10.

Содержание

  1. Как узнать ключ активации установленной системы на Windows 10, 8.1, 8, 7, Vista
  2. Определение ключа установленной системы Windows через VBScript.
  3. Как посмотреть лицензионный ключ Windows 10
  4. Способ 1. С помощью PowerShell посмотреть ключ Windows 10
  5. Способ 2. Узнать ключ активации с помощью скрипта в Windows 10
  6. Способ 3. Узнать ключ продукта с помощью ProduKey Windows 10
  7. Способ 4. Посмотреть ключ активации с помощью ShowKeyPlus
  8. VBS скрипт для определения ключа Windows
  9. Ключ продукта
  10. Ключ продукта в BIOS
  11. Цифровая лицензия
  12. Ключ по умолчанию
  13. Как узнать лицензионный ключ (Install Key и OEM Key) в Windows 10
  14. Отличие Install Key от OEM Key
  15. Видео: как узнать информацию об OEM Key
  16. Зачем нужно знать ключ активации Windows
  17. Как узнать ключ системными средствами
  18. Поиск Install Key через PowerShell
  19. Поиск Install Key через скрипт
  20. Видео: как узнать ключ с помощью VBS-скрипта
  21. Поиск OEM Key через PowerShell
  22. Поиск OEM Key через «Командную строку»
  23. Как узнать ключ при помощи сторонних приложений
  24. ShowKeyPlus
  25. Видео: как узнать ключ с помощью ShowKeyPlus
  26. ProduKey
  27. Magical Jelly Bean Keyfinder
  28. Speccy
  29. Как узнать ключ активации Виндовс

Как узнать ключ активации установленной системы на Windows 10, 8.1, 8, 7, Vista

Оригинал здесь

Довольно специфическая тема и нужна очень и очень редко, но так как этот сайт и создавался как архив полезных знаний, данная статья обязательно должна была здесь появиться. Итак, кому может понадобиться данная статья? В первую очередь тем, кто потерял или уничтожил свой ключ продукта. Та же наклейка на ноутбуках со временем может стереться, и это создаст определенную долю проблемы при переустановке системы, так как придетсяпокупать новую лицензионную систему, всего лишь 800р., но все же (альтернативный вариант покупки вот здесь в подарок дают Office 2013!). Именно в данном случае понадобится данная статья, так как вы с помощью пары кликов сможете увидеть и перезаписать в более надежное место ваш ключ Windows. Работает на любой операционной системе, в том числе на Windows 8.1 и 8. После прочтения данной статьи вам можно быть интересна статья об отключении запроса ключа активации во время установки системы.

Определение ключа установленной системы Windows через VBScript.

1) Создаем в любом удобном месте текстовый файл. Называем его WindowsKey (в конце данного способа доступен для скачки готовый файл, но все же рекомендую создавать файл самому, так как при архивации почему-то теряется кодировка и не всегда ее получается восстановить).

0011

2) Открываем его текстовым редактором (блокнотом или аналогом). И копируем в него следующий код:

Источник

Как посмотреть лицензионный ключ Windows 10

Бывает нужно посмотреть лицензионный ключ продукта, который уже используется в Windows 10. Такая возможность действительно присутствует прямо в операционной системе. Для просмотра ключа можно использовать как стороннее программное обеспечение, так и воспользоваться встроенными средствами. Для новичков действительно проще будет запустить небольшую утилиту, которая позволяет вывести все лицензионные ключи.

Эта статья расскажет, как посмотреть лицензионный ключ Windows 10. Текущие способы могут показывать разные лицензионные ключи. А всё по причине сохранения лицензионного ключа не только в операционной системе, а и в интерфейсе UEFI. Второй вариант зачастую относится к предустановленным операционным системам на современных ноутбуках. А сейчас ещё появилась возможность привязки лицензионного ключа к учётной записи Майкрософт.

Способ 1. С помощью PowerShell посмотреть ключ Windows 10

Попробуем узнать ключ продукта без использования сторонних программ. Этот способ подходит для операционных систем Windows 8.1 и Windows 10. Перед этим рекомендуем включить отображение расширений файлов. Так как дальше Вам понадобится самостоятельно изменить расширение файла.

В принципе ничего сложно нет. При необходимости можно скачать готовый файл, который достаточно будет запустить. Если же такая необходимость будет, мы его создадим и добавим. Для этого уже придётся воспользоваться одним из лучших архиваторов для Windows 10.

Способ 2. Узнать ключ активации с помощью скрипта в Windows 10

Этот более простой и удобный способ в сравнении с предыдущим. Так как не требует выполнения множества команд в обновлённой оболочке Windows PowerShell. Пользователю просто достаточно запустить небольшой скрипт, который собственно и выводит на экран используемый ключ продукта.

2. Если Вы сохранили файл просто запустите его. Если скачали — разархивируйте и запустите. В итоге Вы увидите ключ продукта Вашей Windows 10.

uznat klyuch vindovs

Способ 3. Узнать ключ продукта с помощью ProduKey Windows 10

Программа ProduKey показывает не только лицензионный ключ операционной системы, но и ключи установленного программного обеспечения. Без проблем получится узнать ключи продукта офисного пакета Майкрософт.

ProduKEY

Способ 4. Посмотреть ключ активации с помощью ShowKeyPlus

Пользоваться программой ShowKeyPlus действительно очень просто. Достаточно запустить её от имени администратора Windows 10. Так как для доступа к системному диску нужны права администратора. С загрузкой программы ShowKeyPlus проблем не будет, достаточно её название ввести в поиске.

ShowKey

Узнать лицензионный ключ продукта можно с использованием классических приложений, так и средствами операционной системы Windows 10. Обратите внимание, программы могут показывать как несколько ключей, так и совсем разные. Рекомендуется воспользоваться несколькими способами и сохранить все ключи.

Источник

VBS скрипт для определения ключа Windows

me2

windows

Что делать если вы забыли ключ от Windows 10 или Windows 8? Как быть если предыдущий администратор не передал вам ключ от Windows Server 2012 R2? Ноутбук с Windows непонятной версии нужно откатить на заводские настройки, а ключ от операционной системы никто не помнит?

В зависимости от того, как вы получили свою копию Windows 10, для активации может потребоваться 25-значный ключ продукта или цифровая лицензия.

Ключ продукта

Если у вас установлен ключ продукта, то можно его узнать. Просто скопируйте текст ниже в файл winkey.vbs и запустите на нужной машине. Если повезёт, то скрипт определит ключ и версию системы.

Ключ продукта в BIOS

Лицензионный ключ может быть прописан в BIOS устройства. Узнать его можно через Powershell:

winkey2 6 1

Или в командной строке:

winkey2 7

Цифровая лицензия

Если вы бесплатно обновили ОС Windows 7 или Windows 8.1 до Windows 10, вместо ключа продукта вы должны получить цифровую лицензию. Если у вас есть цифровая лицензия для устройства, вы можете переустановить тот же выпуск Windows 10 на этом устройстве без ввода ключа продукта.

В этом случае при попытке запустить скрипт для определения ключа вы получите это: BBBBB-BBBBB-BBBBB-BBBBB-BBBBB.

winkey2 2

Открываем окно параметров.

winkey2 4

Надпись об активации может отличаться:

winkey2 5

Ключ по умолчанию

Можно узнать ключ по умолчанию для текущей редакции. Он устанавливается, если вы не указываете свой ключ и сохраняется при получении цифровой лицензии.

winkey2 8

Полную версия ключа можно посмотреть в реестре:

Скрипт VBS в помощь. Просто скопируйте текст ниже в файл winkey2.vbs и запустите на нужной машине. Скрипт определит ключ по умолчанию и версию системы.

Этот ключ позволит установить windows 10 без проведения активации. Потом автоматически должна активироваться цифровая лицензия, если она привязана к вашей учётной записи Microsoft.

Источник

Как узнать лицензионный ключ (Install Key и OEM Key) в Windows 10

kak uznat licenzionnyy klyuch na windows 10

Активированная Windows 10 хранит информацию о ключе, с помощью которого была подтверждена её лицензия. Если вам понадобилось узнать его, то есть несколько способов, позволяющих это сделать. Но перед выполнением поиска следует разобраться, чем Install Key и OEM Key отличаются друг от друга.

Отличие Install Key от OEM Key

Оба типа ключа существуют для одной цели — активации Windows. Но подтверждение лицензии может быть выполнено в разное время: до появления системы на диске, во время установки или после неё.

Install Key — ключ, который вводит сам пользователь, получив его в интернет-магазине Microsoft или купив диск с цифровой версией Windows. OEM — ключ, вшитый в материнскую плату. Его можно встретить в тех случаях, когда компьютер продаётся с уже установленной и активированной Windows.

Итак, если вы подтверждали лицензию самостоятельно, то стоит узнавать Install Key. Если компьютер был куплен с уже активированной Windows, актуальным будет OEM Key. Но не исключено, что ваша версия операционной системы изначально активирована не из-за вшитого ключа, а потому, что продавец самостоятельно ввёл Install Key. Вспомните про данный вариант, если выяснится, что OEM ключ отсутствует.

Значение ключей может совпадать, если вы ничего не вводили самостоятельно. Но в большинстве случаев имеется либо один ключ, либо значения ключей различны. Например, если у вас была Windows 7 или 8, активированная посредством OEM, то переход на Windows 10 во время бесплатной раздачи или после её окончания вызовет генерацию Install Key, который будет отличаться от изначального ключа OEM.

Видео: как узнать информацию об OEM Key

Зачем нужно знать ключ активации Windows

Единственное, для чего использованный ключ может пригодиться повторно, — подтверждение активации Windows, лицензия которой ранее этим ключом уже была подтверждена. Дело в том, что лицензия операционной системы может по некоторым причинам слететь. Например, из-за смены комплектующих или некоторых обновлений.

Если ранее оплаченная система перестала быть лицензионной, её не нужно покупать. Достаточно вспомнить ключ и обратиться в службу поддержки Microsoft: операторы сверят данные и помогут устранить возникшее недоразумение.

Как узнать ключ системными средствами

Существует несколько методов, позволяющих узнать как OEM, так и Install Key. Системные средства могут показаться более сложными, чем сторонние программы, описанные ниже, но в то же время вам не придётся загружать дополнительные приложения и бояться, что ключ будет украден злоумышленниками, распространяющими вредоносные программы.

Поиск Install Key через PowerShell

Jakob Bindslet

После создания файла выполните следующие действия:

Поиск Install Key через скрипт

Существует аналогичный скрипт, подобный вышеописанному, но на другом языке.

Видео: как узнать ключ с помощью VBS-скрипта

Поиск OEM Key через PowerShell

Поиск OEM Key через «Командную строку»

Узнать OEM Key можно и с помощью команды wmic path softwarelicensingservice get OA3xOriginalProductKey, выполненной в «Командной строке», запущенной от имени администратора. Не важно, каким именно способом, данным или предыдущим, вы воспользуетесь, результат будет одинаков. Отличаются лишь команды и среды их выполнения.

Как узнать ключ при помощи сторонних приложений

Все нижеописанные способы требуют загрузки дополнительных бесплатных или частично бесплатных программ. Ничего сложного они не выполняют, поэтому весить будут немного. Сторонние программы упрощают поиск OEM и Install ключа, их стоит использовать в том случае, если вышеописанные способы по каким-то причинам не сработали.

Все приложения, представленные в списке, популярны и безопасны, то есть, используя их, вы не рискуете поделиться своим ключом с посторонним лицом. Но быть уверенным в безопасности программы можно только в том случае, если она была загружена с официального сайта разработчика, а не со стороннего ресурса.

ShowKeyPlus

Особенность программы в том, что она не требует установки. Загруженный файл достаточно открыть, после чего на экране появится некоторая информация о системе, в том числе OEM и Install ключ. Неперегруженный интерфейс позволяет с лёгкостью узнать все необходимые данные.

Видео: как узнать ключ с помощью ShowKeyPlus

ProduKey

Универсальная программа, позволяющая узнать лицензионный ключ Windows и остальных программ, установленных на компьютере. Обратите внимание на первый столбец, чтобы найти ОС, и на третий столбец, чтобы узнать ключ. Программа не умеет определять OEM Key, но отлично справляется с поиском установочного ключа.

Magical Jelly Bean Keyfinder

Данная утилита, как и предыдущая, предназначена для поиска всех лицензионных ключей, имеющихся на компьютере. Она автоматически определяет, какой тип ключа используется для активации Windows, и выводит его. Также вы получите некоторую дополнительную информацию о системе.

Speccy

Приложение Speccy предоставляет подробную информацию о компьютере и всех его комплектующих. Лицензионный ключ можно увидеть в разделе «Операционная система» в строке «Серийный номер».

Существует два вида ключей — OEM Key и Install Key. Узнать их можно как системными средствами, так и с помощью сторонних приложений. Главное, не сообщайте свой ключ никому, кроме операторов официальный технической поддержки Microsoft, иначе вашей лицензией сможет воспользоваться злоумышленник.

Источник

Как узнать ключ активации Виндовс

Для активации Windows используется 25-ти значный ключ продукта.
Он имеет вид XXXXX-XXXXX-XXXXX-XXXXX-XXXXX.
Узнать ключ активации Виндовс требуется в нескольких случаях. Например, если у вас на ноуте или ПК установлена Семёрка или Восьмёрка и вы хотите обновить её до Windows 10.

Существует несколько способов сделать это. Некоторые рассмотрим в тексте ниже.

Сначала воспользуемся скриптом VBS. Это, на мой взгляд, самый простой способ, который не предполагает использования сторонних приложений.

Видео инструкция поможет с определением ключа продукта.

Для того, чтобы изготовить скрипт, создаём обычный текстовый документ. На свободном месте Рабочего стола кликаем правой клавишей мыши и в контекстном меню наводим курсор на пункт Создать. В дополнительном меню выбираем пункт Текстовый документ.

Код скрипта для PowerShell

После этого, запускаем PowerShell от имени администратора.

После того как PowerShell запущен, вставляем в его окно следующую команду:

После ввода команды и нажатия на Enter, появится запрос на подтверждение. Нужно ввести букву Y (англ.) и нажать Enter.

Теперь, для выполнения скрипта, просто вводим в PowerShell путь до него:

При этом, в строке с текстом Installed Key: мы увидим ключ продукта.

После того, как вы разобрались со своим ключом, я рекомендую запретить политику выполнения PowerShell, разрешённую нами на первом этапе. Это можно сделать, введя в PowerShell команду:

Посмотреть ключ установленной Windows можно так же с помощью сторонних программ.

Источник

Процесс активации операционной системы Windows 10 производится всегда автоматически. Поэтому в данном случае вовсе не обязательно вводить лицензионный ключ вручную. Исключением могут стать случаи с загрузкой обновлений или сменой внутренних комплектующих элементов. Я подробно расскажу, когда и какой ключ необходимо искать, и как это сделать с помощью системных утилит или сторонних приложений.

Чем отличается OEM Key от Install Key?

Оба ключа предназначены для активации операционной системы Windows. Разница состоит лишь в том, когда она была проведена. OEM Key – он же ключ продукта, вшит в материнскую плату компьютера/ноутбука. Получается, что при покупке компьютера система уже заранее была установлена и активирована. Install Key (или Product Key) – цифровая лицензия, которая вводится непосредственно пользователем, и предоставляется при покупке или скачивании официального софта. 

Если, к примеру, пользователь покупал компьютер со встроенной ОС Windows 7 или 8 версии и затем перешел на 10, то в таком случае автоматически будет сгенерирован Install Key, отличающийся от вшитого по значению. 

Как узнать ключ средствами ОС?

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

Windows PowerShell

Windows PowerShell – встроенная программа, по функционалу очень схожая с командной строкой. Чтобы с ее помощью узнать номер лицензионного ключа, мне потребуется выполнить несколько простых действий:

Открываю приложение «Блокнот» и копирую в него такой скрипт.

#Main function Function GetWin10Key { $Hklm = 2147483650 $Target = $env:COMPUTERNAME $regPath = «SoftwareMicrosoftWindows NTCurrentVersion» $DigitalID = «DigitalProductId» $wmi = [WMIClass]»\$Targetrootdefault:stdRegProv» #Get registry value  $Object = $wmi.GetBinaryValue($hklm,$regPath,$DigitalID) [Array]$DigitalIDvalue = $Object.uValue  #If get successed If($DigitalIDvalue) { #Get producnt name and product ID $ProductName = (Get-itemproperty -Path «HKLM:SoftwareMicrosoftWindows NTCurrentVersion» -Name «ProductName»).ProductName  $ProductID =  (Get-itemproperty -Path «HKLM:SoftwareMicrosoftWindows NTCurrentVersion» -Name «ProductId»).ProductId #Convert binary value to serial number  $Result = ConvertTokey $DigitalIDvalue $OSInfo = (Get-WmiObject «Win32_OperatingSystem»  | select Caption).Caption If($OSInfo -match «Windows 10″) { if($Result) { [string]$value =»ProductName  : $ProductName `r`n» ` + «ProductID    : $ProductID `r`n» ` + «Installed Key: $Result» $value  #Save Windows info to a file  $Choice = GetChoice If( $Choice -eq 0 ) { $txtpath = «C:Users»+$env:USERNAME+»Desktop» New-Item -Path $txtpath -Name «WindowsKeyInfo.txt» -Value $value   -ItemType File -Force | Out-Null  } Elseif($Choice -eq 1) { Exit  } } Else { Write-Warning «Запускайте скрипт в Windows 10» } } Else {Write-Warning «Запускайте скрипт в Windows 10»} } Else { Write-Warning «Возникла ошибка, не удалось получить ключ» }
} #Get user choice  Function GetChoice {     $yes = New-Object System.Management.Automation.Host.ChoiceDescription «&Yes»,»»     $no = New-Object System.Management.Automation.Host.ChoiceDescription «&No»,»»     $choices = [System.Management.Automation.Host.ChoiceDescription[]]($yes,$no)     $caption = «Подтверждение»     $message = «Сохранить ключ в текстовый файл?»     $result = $Host.UI.PromptForChoice($caption,$message,$choices,0)     $result } #Convert binary to serial number  Function ConvertToKey($Key) { $Keyoffset = 52  $isWin10 = [int]($Key[66]/6) -band 1 $HF7 = 0xF7 $Key[66] = ($Key[66] -band $HF7) -bOr (($isWin10 -band 2) * 4) $i = 24 [String]$Chars = «BCDFGHJKMPQRTVWXY2346789» do { $Cur = 0  $X = 14 Do { $Cur = $Cur * 256     $Cur = $Key[$X + $Keyoffset] + $Cur $Key[$X + $Keyoffset] = [math]::Floor([double]($Cur/24)) $Cur = $Cur % 24 $X = $X — 1  }while($X -ge 0) $i = $i- 1 $KeyOutput = $Chars.SubString($Cur,1) + $KeyOutput $last = $Cur }while($i -ge 0) $Keypart1 = $KeyOutput.SubString(1,$last) $Keypart2 = $KeyOutput.Substring(1,$KeyOutput.length-1) if($last -eq 0 ) { $KeyOutput = «N» + $Keypart2 } else { $KeyOutput = $Keypart2.Insert($Keypart2.IndexOf($Keypart1)+$Keypart1.length,»N») } $a = $KeyOutput.Substring(0,5) $b = $KeyOutput.substring(5,5) $c = $KeyOutput.substring(10,5) $d = $KeyOutput.substring(15,5) $e = $KeyOutput.substring(20,5) $keyproduct = $a + «-» + $b + «-«+ $c + «-«+ $d + «-«+ $e $keyproduct    } GetWin10Key

Выглядеть это будет вот так.вид в блокноте

Сохраняю файл с разрешением ps1. Какое дать название – не имеет значения.сохраняем файл

Открываю приложение Windows PowerShell от имени администратора. Сделать это я могу двумя способами – через контекстное меню «Пуск»открываю Windows PowerShell

или с помощью строки системного поиска в панели задач.запуск от имени администратора

Ввожу команду Set-ExecutionPolicy RemoteSigned и нажимаю на клавишу «Enter». вводим в консоль команду

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

Ввожу дальше путь к папке, в которой был сохранен скрипт. У меня он таков – C:windows10key.ps1. Нажимаю на клавишу «Enter».

В результате на экране выйдут несколько строчек, одна из которой – «Installed Key». Ниже высветится предложение сохранить его в текстовом виде. Для подтверждения нужно нажать на клавишу Y, для отклонения – N.

Возвращаю политику выполнения скриптов в исходное состояние, введя команду Set-ExecutionPolicy restricted.

Можно пойти путем проще – просто задать команду на открытие скрипта, указав путь к нему. В моем случае это будет выглядеть так:задаем команду на открытие скрипта

ВНИМАНИЕ! В некоторых случаях команда может не сработать из-за ограничений в групповой политике. В данном случае можно воспользоваться другими системными инструментами.

Загрузка ... Загрузка …

С помощью скрипта VBS

Самый простой способ узнать цифровую лицензию – создать скрипт Visual Basic Script. Открываю приложение «Блокнот» и ввожу в поле следующий текст:

Set WshShell = CreateObject(«WScript.Shell») regKey = «HKLMSOFTWAREMicrosoftWindows NTCurrentVersion» DigitalProductId = WshShell.RegRead(regKey & «DigitalProductId») Win10ProductName = «Версия Windows 10: » & WshShell.RegRead(regKey & «ProductName») & vbNewLine Win10ProductID = «ID продукта: » & WshShell.RegRead(regKey & «ProductID») & vbNewLine Win10ProductKey = ConvertToKey(DigitalProductId) ProductKeyLabel =»Ключ Windows 10: » & Win10ProductKey Win10ProductID = Win10ProductName & Win10ProductID & ProductKeyLabel MsgBox(Win10ProductID) Function ConvertToKey(regKey) Const KeyOffset = 52 isWin10 = (regKey(66) 6) And 1 regKey(66) = (regKey(66) And &HF7) Or ((isWin10 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 (isWin10 = 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

Затем сохраняю полученный документ в формате .vbs, наименование файла не имеет значения. сохраняем документ

Перехожу в папку, в которой сохранен скрипт, и открываю его. После этого высветится окно с указанием версии и ID операционной системы, а также номером лицензионного ключа.версия windows 10 pro

Загрузка ... Загрузка …

Командная строка

Этим методом можно узнать системный ключ ОЕМ, который вшит в материнскую плату. Запускаю командную строку через окно «Выполнить» – нажимаю на комбинацию Win + R, в строке «Открыть» ввожу CMD и кликаю по кнопке «ОК».вводим команду cmd

Еще можно прибегнуть к системному поиску в панели задач.запускаем от имени администратора

В новом окне ввожу запрос wmic path softwarelicensingservice get OA3xOriginalProductKey и нажимаю на кнопку Enter. Если такого ключа нет, то командная строка ничего не покажет. в консоли вводим команду

Загрузка ... Загрузка …

Как узнать ключ при помощи сторонних утилит?

Если вышеперечисленные способы не сработали, или это не тот ключ, который вам нужен, можно воспользоваться программами от сторонних разработчиков. Все представленные предложения популярны и безопасны, при этом весят не много, так как функционал их не настолько обширен.

ProduKey

С помощью этой программы вычисляется только номер цифровой лицензии, ключ продукта выявить она не может. При ее открытии высвечивается версия системы, системного браузера и пакета Microsoft Office. Чтобы узнать Product Key, потребуется дважды кликнуть по пункту с операционной системой. В третьей строке будет указано искомое значение.

Загрузка ... Загрузка …

ShowKeyPlus

Это приложение не придется инсталлировать на компьютер. Достаточно просто запустить файл, чтобы открыть информационное окно с указанием как Install, так и OEM Key (если он вообще есть). ShowKeyPlus

Загрузка ... Загрузка …

Speccy

Эта утилита отображает полную информацию о характеристиках компьютера или ноутбука, а также приводит список комплектующих. Лицензионный ключ расположен в разделе «Операционная система», строка «Серийный номер». За дополнительную плату можно скачать платную версию с расширенным функционалом. Speccy

Загрузка ... Загрузка …

Magical Jelly Bean Keyfinder

По функционалу программа Magical Jelly Bean Keyfinder практически схожа с ProduKey, но все же имеет некоторые отличия. В инструменте отображаются подробные данные о версии системы, имени компьютера, наименовании организации и т.д. Magical Jelly Bean Keyfinder

Есть еще множество бесплатных аналогичных приложений, к примеру, SIW, AIDA64, Everest и т.п. Некоторые из них схожи между собой внешним исполнением. 

Загрузка ... Загрузка …

Заключение

Для поиска лицензионного ключа активированной ОС Windows 10 рекомендуется использовать как системные инструменты, так и сторонние приложения. Лучше сначала поискать ключ с помощью встроенных утилит и скриптов, и только потом приниматься за программы. Особое внимание необходимо уделить надежности источника, с которого они скачиваются. 

Загрузка ... Загрузка …

Post Views: 4 410

Option Explicit Dim objshell,path,DigitalID, Result Set objshell = CreateObject(«WScript.Shell») ‘Set registry key path Path = «HKLMSOFTWAREMicrosoftWindows NTCurrentVersion» ‘Registry key value DigitalID = objshell.RegRead(Path & «DigitalProductId») Dim ProductName,ProductID,ProductKey,ProductData ‘Get ProductName, ProductID, ProductKey ProductName = «Product Name: « & objshell.RegRead(Path & «ProductName») ProductID = «Product ID: « & objshell.RegRead(Path & «ProductID») ProductKey = «Installed Key: « & ConvertToKey(DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey ‘Show messbox if save to a file If vbYes = MsgBox(ProductData & vblf & vblf & «Save to a file?», vbYesNo + vbQuestion, «BackUp Windows Key Information») then Save ProductData End If ‘Convert binary to chars Function ConvertToKey(Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert ‘Check if OS is Windows 8 isWin8 = (Key(66) 6) And 1 Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4) i = 24 Maps = «BCDFGHJKMPQRTVWXY2346789» Do Current= 0 j = 14 Do Current = Current* 256 Current = Key(j + KeyOffset) + Current Key(j + KeyOffset) = (Current 24) Current=Current Mod 24 j = j 1 Loop While j >= 0 i = i 1 KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput Last = Current Loop While i >= 0 If (isWin8 = 1) Then keypart1 = Mid(KeyOutput, 2, Last) insert = «N» KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = insert & KeyOutput End If ConvertToKey = Mid(KeyOutput, 1, 5) & «-« & Mid(KeyOutput, 6, 5) & «-« & Mid(KeyOutput, 11, 5) & «-« & Mid(KeyOutput, 16, 5) & «-« & Mid(KeyOutput, 21, 5) End Function ‘Save data to a file Function Save(Data) Dim fso, fName, txt,objshell,UserName Set objshell = CreateObject(«wscript.shell») ‘Get current user name UserName = objshell.ExpandEnvironmentStrings(«%UserName%») ‘Create a text file on desktop fName = «C:Users» & UserName & «DesktopWindowsKeyInfo.txt» Set fso = CreateObject(«Scripting.FileSystemObject») Set txt = fso.CreateTextFile(fName) txt.Writeline Data txt.Close End Function

Понравилась статья? Поделить с друзьями:
  • Скрипит звук на ноутбуке windows 10
  • Скрипит звук на компьютере windows 10
  • Скрипит звук в играх на windows 10
  • Скриншоты не сохраняются в папке screenshots windows 10
  • Скриншоты в windows 10 что это