Vista - How to isable floppy disk (drive A:)?

Hi!

I was wondering how to disable a floppy disk from vbscript or command line.
Devcon is not what i want because i need to disable all floppys with a click
or just disable drive A.

Thank you in advance!

only way I know is to go to device manager and disable floppy disk drives.

Hi Luka1993,

May I ask why you want to do that? May be there is a way around it such as most people intend to minimize boot time such will skip checking all drives before hit the HDD. They simply can change boot sequence so the booting go directly to the HDD. Press F8, I believe, when booting to go to menu where to make change.

Hope this helps.

Bruce

Hi!

Thank you for replying. I don't want to do this manually.

I want to disable the floppy because i have a script that causes a no disk
errorbox if the floppy is enabled. (the disk checks all drives for a file).

Do you know a way to skip the floppy and search from drive C to X instead of
all? Because im not a programmed or a coder :S...

Here is the code:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
Set colDrives = objFSO.Drives
Set objEnv = objShell.Environment("PROCESS")

For Each objDrive in objFSO.Drives
If objFSO.FileExists(objDrive.DriveLetter & ":\flashdrive.txt") Then
strPath = objDrive.Driveletter & ":"
sPathSpec = strPath & "\SYSTEM\LOGS"
CreateObject("Wscript.Shell").CurrentDirectory = sPathSpec
objShell.Run strPath &
"\SYSTEM\PROGRAM\USB\DISK\INFO\PROGRAM\something.exe"
End If
Next

"Luka1993" <Luka1993@xxxxxx> wrote in message
news:79C4A575-674B-4B45-9FC3-78EE8C553DC7@xxxxxxBruce, use the 'IsReady' property. Modified code below. What exactly are you
trying to do on line 11?

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
Set colDrives = objFSO.Drives
Set objEnv = objShell.Environment("PROCESS")

For Each objDrive in objFSO.Drives
If objDrive.IsReady Then
If objFSO.FileExists(objDrive.DriveLetter & ":\flashdrive.txt") Then
strPath = objDrive.Driveletter & ":"
sPathSpec = strPath & "\SYSTEM\LOGS"
CreateObject("Wscript.Shell").CurrentDirectory = sPathSpec
objShell.Run strPath &
"\SYSTEM\PROGRAM\USB\DISK\INFO\PROGRAM\something.exe"
End If
End If
Next

Thank you James!!!!

The line 11 is for changing the directory. But i am not sure if it is
necesary, Your code worked and the error was gone too !

Right on James !!!!!!!