Wsrtjtyk

So I have this code, and am running into some issues that I haven't so far been able to sort out:

Anywhere there are Parameters, i.e. "CreateRestorePoint", or the inParams params, I get the green squiggly underline that says to use (ex.) "NameOf(CreateRestorePoint) instead of specifying the program element name".

However, whether I do so or leave it, I get the same error:

System.ArgumentOutOfRangeException: 'Specified argument was out of the range of valid values. Parameter name: path'

The code:

    Public Function CreateRestorePoint(Description As String, EventType As Integer, RestorePointType As Integer) As Integer



        Try



            Dim classInstance As New ManagementObject("rootDEFAULT", "SystemRestore", Nothing)



            ' Obtain [in] parameters for the method

            Dim inParams As ManagementBaseObject = classInstance.GetMethodParameters("CreateRestorePoint")



            ' Add the input parameters

            inParams("Description") = Description

            inParams("EventType") = EventType

            inParams("RestorePointType") = RestorePointType



            ' Execute the method and obtain the return values

            Dim outParams As ManagementBaseObject = classInstance.InvokeMethod("CreateRestorePoint", inParams, Nothing)



            ' List outParams

            Debug.Print("Out parameters: ")

            Debug.Print("ReturnValue: {0}", outParams("ReturnValue"))



            CreateRestorePoint = 1



        Catch err As ManagementException



            Debug.Print(String.Format("An error occurred while trying to execute the WMI method: {0}", err.Message))



        End Try



        Return CreateRestorePoint



    End Function

Here's how I'm calling the function:

    Dim CRP As New JSEWindowsRestore.WindowsRestoreFunctions



    CRP.CreateRestorePoint(String.Format("Test Restore Point: {0}", DateTime.Now), 100, 12)

Anyone spot the problem?

Everything looks pretty good. The only thing that you need to change is ManagementObject in the first couple lines to ManagementClass.

Dim classInstance As New ManagementClass("rootDEFAULT", "SystemRestore", Nothing)

ManagementObject refers to an instance of a class and ManagementClass refers to the class itself. The path error you were receiving was because the code was expecting a path to an instance and not a class itself.

As for the green squiggly lines, they shouldn't prevent you from compiling but its possible Visual Studio will like this syntax better.

        inParams.Properties("Description").Value = Description

        inParams.Properties("EventType").Value = EventType

        inParams.Properties("RestorePointType").Value = RestorePointType

Also, make sure the application has administrator privileges or you'll get an access denied when you try to invoke this method.