Acceso Web controlado por Llaves USB !!!

[gapegito]

Buenas noches

Si mal no entinedo necesitas que mediante una llave (tubito) USB se identifique univocamente el usuario. Estoy trabajando en lo mismo, te adjunto un script que puede ayudarte :
'-------------------------------------------------------------------
Sub subllave()
On Error Resume Next
Set objfso = CreateObject("Scripting.FileSystemObject")
Set colDrives = objfso.Drives
For Each objdrive In colDrives
If objdrive.DriveType = 1 Then
Debug.Print "Available space: " & objdrive.AvailableSpace
Debug.Print "Drive letter: " & objdrive.DriveLetter
Debug.Print "Drive type: " & objdrive.DriveType
Debug.Print "File system: " & objdrive.FileSystem
Debug.Print "Free space: " & objdrive.FreeSpace
Debug.Print "Is ready: " & objdrive.IsReady
Debug.Print "Path: " & objdrive.Path
Debug.Print "Root folder: " & objdrive.RootFolder
Debug.Print "Serial number: " & objdrive.SerialNumber
Debug.Print "Share name: " & objdrive.ShareName
Debug.Print "Total size: " & objdrive.TotalSize
Debug.Print "Volume name: " & objdrive.VolumeName
End If
Next
End Sub

Tene en cuenta :
- Los removibles son tipo 1 (los filtra el IF)
- Deberias preguntar previamente la letra de la unidad o fijarla para evitar barrer lectoras de Diskette.
- El Serial Number es unico para cada tubito (llave)

Lo demas corre por tu cuenta.

Saludos

GABRIEL