Creatre a Dword via vb script

Experts,
I create the dword manualy and it works perfect, the question is? can it be done with a vb script and also can it bo done from my computer to a remote computer over the lan ( I have the administrator rigts)

Thank you

Yes it can be done via VB script and yes it can be done remotely. All you have to do is change sComputer = "." variable to and instead of the "." put "REMOTECOMPUTERNAME".

Also "StorageDevicePolicies" key has to be created since the script assumes that computer you want to add the value to, already has it.
If that is not the case it can be modified to create that key as well, so let me know.

Here is the script:

Const HKEY_LOCAL_MACHINE = &H80000002
 
sComputer = "."
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    sComputer & "\root\default:StdRegProv")
 
 
' This part will create the value
sKeyPath = "SYSTEM\CurrentControlSet\Control\StorageDevicePolicies"
sValueName = "WriteProtect"
dwValue = 1
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,sKeyPath,sValueName,dwValue
 
'This part will delete that value
 
oReg.DeleteValue HKEY_LOCAL_MACHINE,sKeyPath,sValueName

Select allOpen in new window

Hubasan,

U r fantastic it worked perfect, only 2 questions.

1- can you please show me how to create also the "StorageDevicePolicies" key ?
2- There is an issue with the process, I pluged on a external HD to my pc and create the "StorageDevicePolicies" manualy then run the script and certainly it created the dword but when I tried to compy a file to the hd id didn't stop me, than I unpluged the HD and plug it back and it work then I unpluged back then it alow me to copy ? it seems that if you have a usb device already attached to the computer and you run the script it does not block the usb any suggestions?

Thank you very much. the idea is that the users can plug their usb devices and download data in to the pc but not upload any.

No Problem man,

For creating your "StorageDevicePolicies" key you need the following code:

sKeyPath = "SYSTEM\CurrentControlSet\Control\StorageDevicePolicies"
oReg.CreateKey HKEY_LOCAL_MACHINE,sKeyPath

Just insert that to the script and that should be it.

As for the issue with the USB refresh, I'm pretty sure that is exactly how USB works. If the HD is already plugged in and you apply this policy it's not going to be affected until next time USB does the refresh, which can be a restart of the PC or unplugging the HD and plugging it back in.