[UNSUPPORTED] Open 7 act*vator by Nononsence [revised by HotCarl] ;-)

@HotCarl

i sent one back and i hope it works

 

its all good really i just stated how i would do it and i really hope it helped you in anyway.

im still learning vb.net thats why my code is somewhat random but it always seems to work out

 

in my tool i did it to give the user more options really

i didnt want to force something that didnt need to be forced

 

thats true but what if the user would like to install the key with the way he/she knows how to do it

anyways wmi might fail if sppsvc is off

 

if RemoveWAT was used it could cause that.

 

that wont start sppsvc but this will after a restart

sc config sppsvc start= demand

 

i dont have tampered files lol maybe other ppl do

 

slmgr.vbs uses wmi to do its job, at one point I copied and pasted the functions in to new scripts to see how they work

slmgr -ipk

Code:

Key = ""


strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    On Error Resume Next  
    Set colServices = objWMIService.ExecQuery("SELECT Version FROM SoftwareLicensingService")
    QuitIfError()
    For each objService in colServices
        QuitIfError()
        Exit For
    Next

objService.InstallProductKey(Key)
objService.RefreshLicenseStatus()

Wscript.Quit

slmgr -ilc

Code:

cert = "cert.xrm-ms"

LicenceData = ReadAllTextFile(cert)

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")


    Dim objService
    Dim colServices

    On Error Resume Next
       
    Set colServices = objWMIService.ExecQuery("SELECT Version FROM SoftwareLicensingService")
    QuitIfError()

    For each objService in colServices
        QuitIfError()
        Exit For
    Next

    set GetServiceObject = objService    


objService.InstallLicense(LicenceData)
objService.RefreshLicenseStatus()

Wscript.Quit


'==================================================
'function ReadAllTextFile
'==================================================

Function ReadAllTextFile(strFileName)
    Dim strData
    Dim oStream
    
    Set oStream = CreateObject("ADODB.Stream")

    oStream.Type = 2 'adTypeText
    oStream.Open
    oStream.Charset = GetFileEncoding(strFileName)
    oStream.LoadFromFile(strFileName)

    strData = oStream.ReadText(-1) 'adReadAll

    oStream.Close

    ReadAllTextFile = strData
End Function


'==================================================
'function GetFileEncoding
'==================================================

Function GetFileEncoding(strFileName)
    Dim strData
    Dim strEncoding
    Dim oStream

    Set oStream = CreateObject("ADODB.Stream")

    oStream.Type = 1 'adTypeBinary
    oStream.Open
    oStream.LoadFromFile(strFileName)

    ' Default encoding is ascii
    strEncoding =  "ascii"

    strData = BinaryToString(oStream.Read(2))

    ' Check for little endian (x86) unicode preamble
    If (Len(strData) = 2) and strData = (Chr(255) + Chr(254)) Then
        strEncoding = "unicode"
    Else
        oStream.Position = 0
        strData = BinaryToString(oStream.Read(3))

        ' Check for utf-8 preamble
        If (Len(strData) >= 3) and strData = (Chr(239) + Chr(187) + Chr(191)) Then
            strEncoding = "utf-8"
        End If
    End If

    oStream.Close

    GetFileEncoding = strEncoding
End Function


'==================================================
'Function BinaryToString
'==================================================

Function BinaryToString(dataBinary)
  Dim i
  Dim str

  For i = 1 To LenB(dataBinary)
    str = str & Chr(AscB(MidB(dataBinary, i, 1)))
  Next

  BinaryToString = str
End Function


' Returns string containing the whole text file data.
' Supports ascii, unicode (little-endian) and utf-8 encoding.
Function ReadAllTextFile(strFileName)
    Dim strData
    Dim oStream
    
    Set oStream = CreateObject("ADODB.Stream")

    oStream.Type = 2 'adTypeText
    oStream.Open
    oStream.Charset = GetFileEncoding(strFileName)
    oStream.LoadFromFile(strFileName)

    strData = oStream.ReadText(-1) 'adReadAll

    oStream.Close

    ReadAllTextFile = strData
End Function

 

lol i forgot you use cmd /c

i just use the sc commands and leave cmd out of it

 

thats so true lol