Disabling DVD Drive
19 April 2002, 07:05 PM
#1
Scooby Regular
Thread Starter
Join Date: Feb 2002
Location: Lurkin Somewhere
Posts: 7,951
Likes: 0
Received 0 Likes
on
0 Posts
How can you prevent someone from using a DVD drive??
But its only 1 user ??? so cant prevent 1 type of user?
I couldnt see security either?
Cheers
Si
But its only 1 user ??? so cant prevent 1 type of user?
I couldnt see security either?
Cheers
Si
19 April 2002, 08:42 PM
#2
Scooby Regular
Join Date: Feb 2000
Posts: 1,082
Likes: 0
Received 0 Likes
on
0 Posts
Glue it shut? 
Seriously though if you have an NT based OS (ie. NT4, 2000 or XP)then you can prevent a user from accessing certain files on the hard disk (such as the DVD player software folder)
Joolz
Seriously though if you have an NT based OS (ie. NT4, 2000 or XP)then you can prevent a user from accessing certain files on the hard disk (such as the DVD player software folder)
Joolz
22 April 2002, 10:42 AM
#6
Scooby Regular
Join Date: Nov 2001
Location: Leeds - It was 562.4bhp@28psi on Optimax, How much closer to 600 with race fuel and a bigger turbo?
Posts: 15,239
Likes: 0
Received 1 Like
on
1 Post
We hide all drive letters apart from s and p... so I wrote the following script to find cd rom drives and make them visible... you could alter it do the opposite...
' ************************************************** *************
' * Enumerate CD-Rom Drive Letter and Change Visible Drive Mask *
' * David Wallis, PC / Server Support, 25/02/2002 *
' ************************************************** *************
On Error Resume Next
Dim FSys, xDrive, xDrives, intTestAsc
Set WShell = CreateObject("Wscript.Shell")
Set FSys = CreateObject("Scripting.FileSystemObject")
Set xDrives = FSys.Drives
intCurrValue = "" ' Set to avoid problems with an empty reg key and using <> 0
For Each xDrive in xDrives
If xDrive.DriveType = 4 Then
intAsciDriveLetter = (Asc(xDrive.DriveLetter))
intTmpValue = intAsciDriveLetter - 64
intDecValue = 2 ^ intTmpValue
intTmpValue = NOT(intDecValue)
intcurrValue = WShell.RegRead("HKCU\Software\Microsoft\Windows\Cu rrentVersion\Policies\Explorer\NoDrives")
If intCurrValue <> "" Then
intNewValue = intTmpValue AND intCurrValue
RetCode = WShell.RegWrite("HKCU\Software\Microsoft\Windows\C urrentVersion\Policies\Explorer\NoDrives", intNewValue,"REG_SZ")
End If
End If
Next
Set xDrive = Nothing
Set xDrives = Nothing
Set FSys = Nothing
Set WShell = Nothing
May have to click edit post for formatting...
David
' ************************************************** *************
' * Enumerate CD-Rom Drive Letter and Change Visible Drive Mask *
' * David Wallis, PC / Server Support, 25/02/2002 *
' ************************************************** *************
On Error Resume Next
Dim FSys, xDrive, xDrives, intTestAsc
Set WShell = CreateObject("Wscript.Shell")
Set FSys = CreateObject("Scripting.FileSystemObject")
Set xDrives = FSys.Drives
intCurrValue = "" ' Set to avoid problems with an empty reg key and using <> 0
For Each xDrive in xDrives
If xDrive.DriveType = 4 Then
intAsciDriveLetter = (Asc(xDrive.DriveLetter))
intTmpValue = intAsciDriveLetter - 64
intDecValue = 2 ^ intTmpValue
intTmpValue = NOT(intDecValue)
intcurrValue = WShell.RegRead("HKCU\Software\Microsoft\Windows\Cu rrentVersion\Policies\Explorer\NoDrives")
If intCurrValue <> "" Then
intNewValue = intTmpValue AND intCurrValue
RetCode = WShell.RegWrite("HKCU\Software\Microsoft\Windows\C urrentVersion\Policies\Explorer\NoDrives", intNewValue,"REG_SZ")
End If
End If
Next
Set xDrive = Nothing
Set xDrives = Nothing
Set FSys = Nothing
Set WShell = Nothing
May have to click edit post for formatting...
David
Thread
Thread Starter
Forum
Replies
Last Post
gazzawrx
Non Car Related Items For sale
13
17 October 2015 06:51 PM