Muy buenas,

He encontrado un script que te da la licencia de windows ejecutándolo, pero me gustaría que el documento que se genera al final, se pudiera enviar directamente a un correo, como lo podria haceR?

Option Explicit 
 
Dim objshell,path,DigitalID, Result, strComputerName, strUserName
Set objshell = CreateObject("WScript.Shell")
strComputerName = objshell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
strUserName = objshell.ExpandEnvironmentStrings( "%USERNAME%" )
'WScript.Echo "Computer Name: " & strComputerName
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData, ComputerName, USERNAME
'Get ProductName, ProductID, ProductKey
USERNAME= "User Name: " & strUserName
ComputerName= "Computer Name: " & strComputerName
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 & vblf &  ComputerName & vblf & username
'Show messbox if save to a file 
If vbYes = MsgBox(ProductData & vblf & 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 
    keypart1 = Mid(KeyOutput, 2, Last)
    insert = "N"
    KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
    If Last = 0 Then KeyOutput = insert & KeyOutput
    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 & "\Desktop\WindowsKeyInfo.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txt = fso.CreateTextFile(fName)
    txt.Writeline Data
    txt.Close
End Function
 
 

Muchas GRacias

Pensaba que al tener un numero determinado de codigos seguidos, se podría descifrar fácilmente 

Buenas, antes de todo, soy muy novato en todo esto y si este post no va aquí. lo siento, pero.. me gustaría poder generar mis propios códigos para un juego, son unas tarjetas con un código que rascas, la cosa es que cada código es un numero + letras aleatorias.
Hasta allí, es algo difícil de adivinar cual seria la secuencia para saber el siguiente código, pero.. tengo algo que puede facilitar.
Cada tarjeta que tengo tiene un numero de serie eso quiere decir, que si relacionamos un código con otro, al final llegaremos a encontrar el cifrado que utilizan para generar estos códigos.
Para que lo entendáis:
-nº de serie : 2690
-código del juego: BCT9KCS68PWGIAQ

-nº de serie : 2691
-código del juego: WGIAR59VPT3RRG4

-nº de serie : 2692
-código del juego: 2UAPU4V8B13BCQR

-nº de serie : 2693
-código del juego: MUHTP37Q6H2NEV9

-nº de serie : 2694
-código del juego: LCT8HW4PABMDT4X

Como veis es una secuencia de 15 cifras.

Mi pregunta es: Se podría crear un generador de códigos, con esta información? Con que cantidad de secuencias, podríamos sacar el siguiente código?

PD:
También tengo estos códigos que siguiente el siguiente orden, lo único que no son los mismos, son de 11 cifras:

1-AUNI6VG6QU7
2-7RJ1HHX69CT
3-H6QUU6BFM9J
4-8QIX4HGLUK1
5-7CHP3TDNCCS
6-XW94Q8R8RUU
7-RQX2E1I8892
8-QR3IT8FBDTL
9-2XXW94ELKQE
10-N4JKR49P5W8
11-C9LBBPF7679
12-LGVNS6BGC42
13-WHH1H75SBVQ
14-IFUM6NFSVIA
15-LFHPNJ28CTA