uint32 ChangePIN(
  [in]   string VolumeKeyProtectorID,
  [in]   string NewPIN,
  [out]  string NewVolumeKeyProtectorID
);

    Function testwmi()
 
        Dim processClass As New ManagementClass( _
          "\\.\root\cimv2\Security\MicrosoftVolumeEncryption", _
          "Win32_EncryptableVolume", Nothing)
 
        ' Obtain [in] parameters for the method
        Dim inParams As ManagementBaseObject = processClass.GetMethodParameters( _
          "ChangePIN")
 
        ' Add the input parameters.
        inParams("VolumeKeyProtectorID") = "{01234-567...}" ' Hier gebe ich die 
        ' korrekte VolumeKeyProtectorID für C: an
        inParams("NewPIN") = "12345678"
 
        Dim outParams As ManagementBaseObject
        outParams = processClass.InvokeMethod("ChangePIN", inParams, Nothing)
 
        ' outParams lass ich mal außen vor.
 
        Return 0
    End Function