Imports System
Imports System.Management
Imports System.Windows.Forms
 
Namespace WMISample
 
    Public Class CallWMIMethod
 
        Public Overloads Shared Function Main() As Integer
 
            Try
 
                Dim classInstance As New ManagementObject( _
                    "root\CIMV2\Security\MicrosoftVolumeEncryption", _
                    "Win32_EncryptableVolume.DeviceID='\\?\Volume{6d3f1e2e-dd9" & _
                    "-11de-853d-00248c55282c}\'", _
                    Nothing)
 
                ' Obtain [in] parameters for the method
                Dim inParams As ManagementBaseObject = _
                    classInstance.GetMethodParameters( _
                    "UnlockWithNumericalPassword")
 
                ' Add the input parameters.
                inParams("NumericalPassword") =  _
                  "023373-193402-455343-160215-175847-714195-016565-871399"
 
                ' Execute the method and obtain the return values.
                Dim outParams As ManagementBaseObject = _
                    classInstance.InvokeMethod("UnlockWithNumericalPassword", _
                    inParams, Nothing)
 
                ' List outParams
                Console.WriteLine("Out parameters:")
                Console.WriteLine("ReturnValue: {0}", outParams("ReturnValue"))
 
            Catch err As ManagementException
 
                MessageBox.Show("An error occurred while trying to execute the" & _
                  "WMI method: " & err.Message)
            End Try
        End Function
    End Class
End Namespace