Um VBScript simples para verificar a presença de dispositivos removíveis ficaria assim:
boolDeviceFound = False
strComputer = InputBox("Enter the name of the computer to search for USB devices:")
strComputer = Trim(strComputer)
If LenB(strComputer) = 0 Then
strComputer = "."
End If
'Query the WMI service for the computer name
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
'Display the connected computer
WScript.Echo "You have successfully connected to computer " & strComputer
Set colItems = objWMIService.ExecQuery("SELECT * from Win32_LogicalDisk WHERE Description = 'Removable Disk'")
For Each objItem in colItems
WScript.Echo "The computer " & strComputer & " has a removable USB drive connected with drive letter: " & objItem.Name
WScript.Echo "Please remove this device from " & strComputer & " to comply with Lab policies!"
boolDeviceFound = True
Next
If boolDeviceFound = False Then
WScript.Echo "No USB devices found!"
End If
Se você salvá-lo como algo como DetectUSB.vbs , ele poderá ser executado a partir da linha de comando ou de um arquivo em lote usando wscript DetectUSB.vbs
. Algo parecido pode ser escrito usando o PowerShell também, e o arquivo de lote / script PS pode ser definido como um script de logoff . O único problema é, você ainda tem direitos suficientes no (s) PC (s) do laboratório para instalar scripts de logoff?