| |
nol
Posts: 5
Score: 0
Joined: 9/2/2008
Status: offline
|
Dear all, This script will disable USB for writing data to mobile devices, on local computer. On Error Resume Next message = "This script will prevent Windows XP from writing to storage devices via USB." + vbcr + vbcr message = message + "Continue?" result = msgBox(message, VBYesNo + vbQuestion + vbDefaultButton2 + vbSystemModal, "Disable Writing to USB Storage Devices") If result = vbCancel Then WScript.Quit End If Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\usbstor\Start", 4, "REG_DWORD" '3=Unlock / 4=Lock message = "Please reboot your computer for changes to take effect." + vbcr + vbcr MsgBox message, vbOKOnly, "Disable Writing to USB Storage Devices" Set WshShell = Nothing Wscript.Quit I have 1.000 computers in an access database that I need to run this script. Can anyone help me make this script read computers from database and run this? Thanks!
|
|