'fileattributes.vbs - Enables File Attributes in Windows Explorer
'© Doug Knox - rev 09/28/2001

'Declare variables
Dim WshShell, p1, q1, itemtype

'Set variables and create Scripting Object
Set WshShell = WScript.CreateObject("WScript.Shell")
p1 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowAttribCol"
q1 = 1
itemtype = "REG_DWORD"

'Write the value to the Registry
WshShell.RegWrite p1, q1, itemtype

'Inform User that the task is done.
Mybox = MsgBox("File Attributes will now show in Explorer",vbOkOnly,"Finished")