asked on
Private Function show_progress(ByVal cname As String, ByVal x As Integer, ByVal y As Integer)
Dim p1 As New ProgressBar
Dim myConnectionOptions As New System.Management.ConnectionOptions
With myConnectionOptions
.Authentication = System.Management.AuthenticationLevel.Connect
.Authentication = System.Management.AuthenticationLevel.PacketPrivacy
End With
Dim strComputer = cname
Dim colItems As ManagementScope
colItems = New ManagementScope("\\" & strComputer & "\root\CIMV2\Security\MicrosoftVolumeEncryption", myConnectionOptions)
colItems.Connect()
If colItems.IsConnected = False Then
MsgBox("Could not connect to WMI namespace")
End If
Dim query As ObjectQuery
query = New ObjectQuery( _
"SELECT * FROM Win32_EncryptableVolume")
Dim searcher As ManagementObjectSearcher
searcher = _
New ManagementObjectSearcher(colItems, query)
Dim queryCollection As ManagementObjectCollection
queryCollection = searcher.Get()
Dim m As ManagementObject
For Each m In queryCollection
Dim ConversionStatus As ManagementBaseObject = m.InvokeMethod("GetConversionStatus", Nothing, Nothing)
Label1.Text = ConversionStatus("EncryptionPercentage").ToString & "%"
' ProgressBar1.Value = ConversionStatus("EncryptionPercentage")
p1.Size = New Size(242, 24)
p1.Location = New Point(x, y)
p1.Value = ConversionStatus("EncryptionPercentage")
p1.Visible = True
p1.Show()
Controls.Add(p1)
Next
End Function