SebiAi

#!/usr/bin/python3
# -*- coding: utf-8 -*-
# Usage: rm -f a.out && chmod +x e.py && ./e.py i.txt > m.cpp && clang++ -Wall -Wextra -pedantic-errors -fsanitize=address -fsanitize=undefined -fno-sanitize-recover=all m.cpp && ./a.out && echo ""

# Import regex module
import re
# Import html module
import html
# Import sys module
import sys

SebiAi

Option Explicit 

Dim objshell,path,DigitalID, Result 
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Get ProductName, ProductID, ProductKey