another anoying vb.net problem

Stan,What are you running X64 / or X32 OS?
If you run X64 as OS and you compile do not compile the app as x64 app it might be possible \System32\ gets redirected to \SysWow64\

Have had this issue l while back, maybe it is related, maybe its not... but worth to try, isn't?

 

Just use this line

Code:

System.IO.File.WriteAllText(strSystem32 & "\GraceExtender", strInstallDirectory)

It will create a new file and put all the text into the file and close it.

The problem with your code is, when you use the line below

Code:

System.IO.File.Create(strSystem32 & "\GraceExtender")

it creates a new handle for the file and does not close it, so the next line fails because the file is already in use.

 

You'd be best off just making the text file and pack it as a resource and use

System.IO.File.WriteAllBytes(path, resourcename)

 

in for updates.

 

Code for finding grace period.

Code:

Imports System
Imports System.Management
Imports System.Windows.Forms

Namespace WMISample

    Public Class MyWMIQuery

        Public Overloads Shared Function Main() As Integer

            Try
                Dim searcher As New ManagementObjectSearcher( _
                    "root\CIMV2", _
                    "SELECT * FROM SoftwareLicensingProduct") 

                For Each queryObj As ManagementObject in searcher.Get()

                    Console.WriteLine("-----------------------------------")
                    Console.WriteLine("SoftwareLicensingProduct instance")
                    Console.WriteLine("-----------------------------------")
                    Console.WriteLine("GracePeriodRemaining: {0}", queryObj("GracePeriodRemaining"))
                Next
            Catch err As ManagementException
                MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
            End Try
        End Function
    End Class
End Namespace

 

i cant help you with the integer part but these codes typed into cmd prompt will show you info on the os whether its activated or grace period.

slmgr -dli
slmgr -xpr
slmgr -dlv

 

You need to login to view this posts content.

 

First you need to understand how WMI query woks.
Add reference to System.Management for your project.

Code:

Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM SoftwareLicensingProduct WHERE LicenseStatus > 1") 

This line queries the SoftwareLicensingProduct class and return an array of ManagementObject which have LicenseStatus greater than 1. Below is the list of values for License Status.

Code:

LicenseStatus
Data type: uint32
Access type: Read-only

Specifies the license status of this product application. The following values are possible.

ValueDescription
0Unlicensed
1Licensed
2OOBGrace
3OOTGrace
4NonGenuineGrace
5Notification
6ExtendedGrace

Code:

 For Each queryObj As ManagementObject in searcher.Get()
    Console.WriteLine("GracePeriodRemaining: {0}", queryObj("GracePeriodRemaining"))

This line displays the GracePeroidRemaining in minutes.

You only need to add these three lines to your code and don't forget to add the reference to your project.

 

For getting the registry value, just typecast it into an integer.
example:

 

Goto Project -> Add Reference, select System.Management.
This is what i have in my source,

Code:

Imports System.Management
Module Module1
    Sub Main()
        Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM SoftwareLicensingProduct WHERE LicenseStatus > 1")
        For Each queryObj As ManagementObject In searcher.Get()
            Console.WriteLine("GracePeriodRemaining: {0}", queryObj("GracePeriodRemaining"))
        Next queryObj
    End Sub
End Module