Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Wed, 06 Aug 2025 09:36:53 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080402121008 location: https://web.archive.org/web/20080402121008/https://techtasks.com/code/viewbookcode/348 server-timing: captures_list;dur=0.664644, exclusion.robots;dur=0.024868, exclusion.robots.policy;dur=0.010392, esindex;dur=0.014601, cdx.remote;dur=61.767189, LoadShardBlock;dur=523.730585, PetaboxLoader3.datanode;dur=404.238146, PetaboxLoader3.resolve;dur=86.947408 x-app-server: wwwb-app220 x-ts: 302 x-tr: 617 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 set-cookie: wb-p-SERVER=wwwb-app220; path=/ x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() HTTP/2 200 server: nginx date: Wed, 06 Aug 2025 09:36:54 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Wed, 02 Apr 2008 12:10:09 GMT x-archive-orig-server: Apache/2.0.61 (Unix) PHP/4.4.7 mod_ssl/2.0.61 OpenSSL/0.9.7e mod_fastcgi/2.4.2 DAV/2 SVN/1.4.2 x-archive-orig-set-cookie: _session_id=d3ca6f210f6a4c84879f32fc2e5bcaa8; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 10456 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Wed, 02 Apr 2008 12:10:08 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Fri, 12 Oct 2007 02:42:42 GMT", ; rel="prev memento"; datetime="Sat, 02 Feb 2008 02:18:00 GMT", ; rel="memento"; datetime="Wed, 02 Apr 2008 12:10:08 GMT", ; rel="next memento"; datetime="Sun, 01 Jun 2008 19:26:06 GMT", ; rel="last memento"; datetime="Mon, 16 Feb 2009 03:09:17 GMT" content-security-policy: default-src 'self' 'unsafe-eval' 'unsafe-inline' data: blob: archive.org web.archive.org web-static.archive.org wayback-api.archive.org athena.archive.org analytics.archive.org pragma.archivelab.org wwwb-events.archive.org x-archive-src: 52_2_20080402105608_crawl103-c/52_2_20080402120939_crawl102.arc.gz server-timing: captures_list;dur=0.773642, exclusion.robots;dur=0.028562, exclusion.robots.policy;dur=0.011835, esindex;dur=0.013346, cdx.remote;dur=36.116274, LoadShardBlock;dur=299.488552, PetaboxLoader3.datanode;dur=132.290594, PetaboxLoader3.resolve;dur=264.531739, load_resource;dur=135.316273 x-app-server: wwwb-app220 x-ts: 200 x-tr: 524 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() content-encoding: gzip Enable the read-only attribute of a file (VBScript) - Windows XP Cookbook

Enable the read-only attribute of a file (VBScript)

This code can be found in Chapter 8 of Windows XP Cookbook

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the VBScript code from this site.

' From the book "Windows XP Cookbook"
' ISBN: 0596007256
' ------ SCRIPT CONFIGURATION ------
strFile = "<FilePath>" ' e.g. d:\mysecretscript.vbs
boolReadOnly = True ' True = read-only, False = not read-only
' ------ END CONFIGURATION ---------
set objFSO = CreateObject("Scripting.FileSystemObject")
' Change this to GetFolder to hide/unhide a folder
set objFile = objFSO.GetFile(strFile)
if boolReadOnly = True then
 if objFile.Attributes AND 1 then
   WScript.Echo "File already read-only" 
 else
   objFile.Attributes = objFile.Attributes + 1
   WScript.Echo "File is now read-only"
 end if 
else
 if objFile.Attributes AND 1 then
   objFile.Attributes = objFile.Attributes - 1
   WScript.Echo "File is not read-only"
 else
   WScript.Echo "File is already not read-only" 
 end if 
end if

This code has been viewed 2551 times.

New from the creators of TechTasks.com: StatSheet.com

Original Source | Taken Source