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

Right on, that is what I thought...thanks for the confirmation.
I did something similar for that as well:

Code:

Using c1 As New Process
    c1.StartInfo.FileName = "cmd.exe"
    c1.StartInfo.Arguments = "/c takeown /f " & tokens & " && icacls " & tokens & " /grant *S-1-1-0:F"
    c1.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    Try
        c1.Start()
    Catch exc1 As Exception
        eventMessage = appName & " Error: " & exc1.Message
        eventMessage2 = appName & " was unable to take ownership of tokens.dat. Location of tokens.dat: " & tokens & " (See: Restore_Activation(2))"
        eventMessage3 = "Process used: " & c1.StartInfo.FileName.ToString & "; Arguements passed: " & c1.StartInfo.Arguments.ToString
        LogError(eventMessage, eventMessage2, eventMessage3)
    End Try
    c1.WaitForExit()
End Using

...and then for pkeyconfig.xrm-ms as well...

 

Yeah, the system's path determines where it will look for the cmd.exe, and since c:\windows and c:\window\system32 are always part of the Windows path, it will be ok... I probably should put the path in there though just in case someone alters their environmental variables...never know I guess...

EDIT: tokens and pkey locations are determined by:
Public WinDir As String = My.Application.GetEnvironmentVariable("WINDIR")
Public tokens As String = WinDir & "\ServiceProfiles\NetworkService\AppData\Roaming\Microsoft\SoftwareProtectionPlatform\tokens.dat"
Public pkeyconfig As String = Environment.GetFolderPath(Environment.SpecialFolder.System) & "\spp\tokens\pkeyconfig\pkeyconfig.xrm-ms"

...so I am sure to get the right locations according to windows.

Chaining the takeown and icacls commands for tokens and pkey together is probably a wise idea though, would save a few seconds perhaps over having 2 separate commands for each.

 

True, the way I have it now, I can tell where the error came from... Good point, I think I will leave it.

Here is the entire function:

Code:

    Public Function Restore_Activation() As Boolean
        '==================================================================================
        'restores the previously backed-up Windows 7 activation files...if there are any.
        '==================================================================================

        busy = True
        Me.Cursor = Cursors.WaitCursor

        Using p1 As New Process
            p1.StartInfo.FileName = "cmd.exe"
            p1.StartInfo.Arguments = "/c net stop sppsvc /y"
            p1.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            Try
                p1.Start()
            Catch exp1 As Exception
                'MessageBox.Show(exp1.Message)
                eventMessage = appName & " Error: " & exp1.Message
                eventMessage2 = appName & " was unable to stop the Software Protection Platform service 'sppsvc'. (See: Restore_Activation(1))"
                eventMessage3 = "Process used: " & p1.StartInfo.FileName.ToString & "; Arguements passed: " & p1.StartInfo.Arguments.ToString
                LogError(eventMessage, eventMessage2, eventMessage3)
            End Try
            p1.WaitForExit()
        End Using

        'Code to take ownership of tokens.dat and pkeyconfig.xrm-ms...
        Using c1 As New Process
            c1.StartInfo.FileName = "cmd.exe"
            c1.StartInfo.Arguments = "/c takeown /f " & tokens & " && icacls " & tokens & " /grant *S-1-1-0:F"
            c1.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            Try
                c1.Start()
            Catch exc1 As Exception
                'MessageBox.Show(exc1.Message)
                eventMessage = appName & " Error: " & exc1.Message
                eventMessage2 = appName & " was unable to take ownership of tokens.dat. Location of tokens.dat: " & tokens & " (See: Restore_Activation(2))"
                eventMessage3 = "Process used: " & c1.StartInfo.FileName.ToString & "; Arguements passed: " & c1.StartInfo.Arguments.ToString
                LogError(eventMessage, eventMessage2, eventMessage3)
            End Try
            c1.WaitForExit()
        End Using
        Using c2 As New Process
            c2.StartInfo.FileName = "cmd.exe"
            c2.StartInfo.Arguments = "/c takeown /f " & pkeyconfig & " && icacls " & pkeyconfig & " /grant *S-1-1-0:F"
            c2.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            Try
                c2.Start()
            Catch exc2 As Exception
                'MessageBox.Show(exc2.Message)
                eventMessage = appName & " Error: " & exc2.Message
                eventMessage2 = appName & " was unable to take ownership of pkeyconfig.xrm-ms. Location of pkeyconfig.xrm-ms: " & pkeyconfig & " (See: Restore_Activation(3))"
                eventMessage3 = "Process used: " & c2.StartInfo.FileName.ToString & "; Arguements passed: " & c2.StartInfo.Arguments.ToString
                LogError(eventMessage, eventMessage2, eventMessage3)
            End Try
            c2.WaitForExit()
        End Using

        Try
            System.IO.File.SetAttributes(tokens, IO.FileAttributes.Normal)
            System.IO.File.SetAttributes(pkeyconfig, IO.FileAttributes.Normal)
            System.IO.File.Copy(tokensReplaceDestination & "tokens.dat", tokens, True)
            System.IO.File.Copy(tokensReplaceDestination & "pkeyconfig.xrm-ms", pkeyconfig, True)

            'Code to restore product key via SLMGR.VBS
            BackupWindowsActivation.restoreLabel.Text = "Restoring Backed-up Windows 7 Product Key..."
            Dim SLMGR As New Process, restoreKey As String
            SLMGR.StartInfo.CreateNoWindow = True
            SLMGR.StartInfo.UseShellExecute = False
            SLMGR.StartInfo.RedirectStandardError = True
            SLMGR.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            SLMGR.StartInfo.FileName = "cscript"

            restoreKey = BackupWindowsActivation.restoreProductKeyTextBox.Text
            SLMGR.StartInfo.Arguments = (" //NOLOGO " & WinDir & "\System32\slmgr.vbs -ipk " & restoreKey)
            Me.Cursor = Cursors.WaitCursor
            SLMGR.Start()

            Do Until SLMGR.HasExited
                Application.DoEvents()
                System.Threading.Thread.Sleep(50)
            Loop

            Me.Cursor = Cursors.Default

        Catch ex As Exception
            'MsgBox(appName & " failed to restore tokens.dat and pkeyconfig.xrm-ms!", , "Error: Restore failed!")
            eventMessage = appName & " Error: " & ex.Message
            eventMessage2 = appName & " failed to restore tokens.dat and/or pkeyconfig.xrm-ms correctly. (See: Restore_Activation(4))"
            eventMessage3 = "Destination paths & files:" & vbNewLine & tokens & vbNewLine & pkeyconfig & vbNewLine & "Target folder:" & vbNewLine & tokensReplaceDestination
            LogError(eventMessage, eventMessage2, eventMessage3)

            Using p2 As New Process
                p2.StartInfo.FileName = "cmd.exe"
                p2.StartInfo.Arguments = "/c net start sppsvc /y"
                p2.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
                Try
                    p2.Start()
                Catch exp2 As Exception
                    'MessageBox.Show(exp2.Message)
                    eventMessage = appName & " Error: " & exp2.Message
                    eventMessage2 = appName & " was unable to re-start the Software Protection Platform service 'sppsvc'. (See: Restore_Activation(5))"
                    eventMessage3 = "Process used: " & p2.StartInfo.FileName.ToString & "; Arguements passed: " & p2.StartInfo.Arguments.ToString
                    LogError(eventMessage, eventMessage2, eventMessage3)
                End Try
                p2.WaitForExit()
            End Using

            Me.Cursor = Cursors.Default
            busy = False
            Return False
        End Try

        Using p3 As New Process
            p3.StartInfo.FileName = "cmd.exe"
            p3.StartInfo.Arguments = "/c net start sppsvc /y"
            p3.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            Try
                p3.Start()
            Catch exp3 As Exception
                'MessageBox.Show(exp3.Message)
                eventMessage = appName & " Error: " & exp3.Message
                eventMessage2 = appName & " was unable to re-start the Software Protection Platform service 'sppsvc'. (See: Restore_Activation(6))"
                eventMessage3 = "Process used: " & p3.StartInfo.FileName.ToString & "; Arguements passed: " & p3.StartInfo.Arguments.ToString
                LogError(eventMessage, eventMessage2, eventMessage3)
            End Try
            p3.WaitForExit()
        End Using

        Me.Cursor = Cursors.Default
        busy = False
        Return True

    End Function

I have it return a boolean value so I can easily have it return whether the function completed successfully or not...and use it in an If statement like:

Code:

If restore_Activation() Then
    restoreLabel.Text = "Success: Restore Complete!"
Else
    restoreLabel.Text = "Restore Failed!"
End If

 

I thought about using 2 radio buttons, but then there is no way to have neither selected once the user has clicked one unless I put a "Clear Radio Buttons" button on the form to force all to be un-checked...

I do like to use radio buttons whenever I can though as it can make coding a lot simpler...

 

I set the attributes of those 2 files to normal in case somehow they were set to read-only, it is probably not needed now though since I takeown and icacls the files... It is old code remnants from the last thing I tried to do that can be deleted...

 

1) No, how different is backing up for a MAK key? I made it with Windows 7 Retail keys in mind.

2) No, or I would have just used "File." instead of "System.IO.File."
Should I?

 

You need to login to view this posts content.

 

You need to login to view this posts content.

 

You need to login to view this posts content.