Ejecutar comando cmd a unidad lógica seleccionada de un checkboxlist
Publicado por Yusniel abreu (1 intervención) el 09/04/2020 18:50:23
Estoy creando un programa que me proteja de algunos grupos de usuarios las unidades seleccionadas en un checkboxlist, alguien podría ayudarme? soy algo nuevo en visual basic y les agradecería mucho su ayuda, de ser posible cerrar la consola de Windows al terminar de ejecutar.
Aqui les dejo mi codigo:
Aqui les dejo mi codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each i In System.IO.DriveInfo.GetDrives
If i.IsReady = True Then
Dim t As String = i.Name
If i.VolumeLabel <> "" Then t &= "[" & i.VolumeLabel & "]"
CheckedListBox1.Items.Add(t)
End If
Next
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If (CheckedListBox1.SelectedItem <> "") Then
Dim Entry As Object
Dim comando1 As String
Dim comando2 As String
comando1 = "icalcs "LETRA DE UNIDAD": remove:g *s-1-
5-11 /t /c"comando2 = "icalcs "LETRA DE UNIDAD": remove:g *s-1-
5-11 /t /c" For Each Entry In CheckedListBox1.CheckedItemsShell("cmd.exe /k" & comando1 + comando2)
Next
Else
MessageBox.Show("Necesitas seleccionar una casilla")
End If
End Sub
End Class
Valora esta pregunta
0