Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Wed, 06 Aug 2025 00:04:43 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080404204729 location: https://web.archive.org/web/20080404204729/https://techtasks.com/code/viewbookcode/524 server-timing: captures_list;dur=0.665024, exclusion.robots;dur=0.024216, exclusion.robots.policy;dur=0.010550, esindex;dur=0.013517, cdx.remote;dur=6.150056, LoadShardBlock;dur=525.129456, PetaboxLoader3.datanode;dur=90.826606, PetaboxLoader3.resolve;dur=306.335596 x-app-server: wwwb-app218 x-ts: 302 x-tr: 558 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 set-cookie: wb-p-SERVER=wwwb-app218; 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 00:04:44 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Fri, 04 Apr 2008 20:47:29 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=10e0a02959cb3e253d8df3658413ecdf; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 11350 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Fri, 04 Apr 2008 20:47:29 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Wed, 27 Jun 2007 04:37:05 GMT", ; rel="prev memento"; datetime="Sat, 02 Feb 2008 02:19:31 GMT", ; rel="memento"; datetime="Fri, 04 Apr 2008 20:47:29 GMT", ; rel="next memento"; datetime="Sat, 31 May 2008 02:01:34 GMT", ; rel="last memento"; datetime="Sat, 07 Feb 2009 06:42:10 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_20080404195322_crawl103-c/52_2_20080404204634_crawl102.arc.gz server-timing: captures_list;dur=0.723138, exclusion.robots;dur=0.029985, exclusion.robots.policy;dur=0.013284, esindex;dur=0.015073, cdx.remote;dur=8.964892, LoadShardBlock;dur=134.292008, PetaboxLoader3.datanode;dur=66.244770, PetaboxLoader3.resolve;dur=156.392999, load_resource;dur=136.873735 x-app-server: wwwb-app218 x-ts: 200 x-tr: 333 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 Rename or copy a file (VBScript) - Windows Server Cookbook

Rename or copy a file (VBScript)

This code can be found in Chapter 4 of Windows Server 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.

' This code shows how to rename (same as move in WMI) and copy a file
' or folder. 
' ---------------------------------------------------------------
' From the book "Windows Server Cookbook" by Robbie Allen
' ISBN: 0-596-00633-0
' ---------------------------------------------------------------
' ------ SCRIPT CONFIGURATION ------
strComputer = "."
strCurrentFile = "<CurrentFilePath>"  ' Path to existing file or folder
strNewFile     = "<NewFilePath>"      ' New path of file or folder
' ------ END CONFIGURATION ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set objFile = objWMI.Get("Cim_Datafile='" & strCurrentFile & "'")
WScript.Echo "Renaming " & strCurrentFile & " to " & strNewFile
intRC = objFile.Rename(strNewFile)
if intRC <> 0 then
   WScript.Echo "There was an error renaming the file: " & intRC
else
   WScript.Echo "File rename successful"
end if
' ---------------------------------------------------------------
' From the book "Windows Server Cookbook" by Robbie Allen
' ISBN: 0-596-00633-0
' ---------------------------------------------------------------
' ------ SCRIPT CONFIGURATION ------
strComputer = "."
strCurrentFile = "<CurrentFilePath>" ' Path to existing file or folder
strNewFile     = "<NewFilePath>"     ' Path to copy file or folder
' ------ END CONFIGURATION ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set objFile = objWMI.Get("Cim_Datafile='" & strCurrentFile & "'")
WScript.Echo "Copying " & strCurrentFile & " to " & strNewFile
intRC = objFile.Copy(strNewFile)
if intRC <> 0 then
   WScript.Echo "There was an error copying the file: " & intRC
else
   WScript.Echo "File copy successful"
end if

This code has been viewed 6753 times.

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

Original Source | Taken Source