Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Thu, 17 Jul 2025 07:53:32 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080405040954 location: https://web.archive.org/web/20080405040954/https://techtasks.com/code/viewbookcode/1294 server-timing: captures_list;dur=0.516003, exclusion.robots;dur=0.019059, exclusion.robots.policy;dur=0.008896, esindex;dur=0.011453, cdx.remote;dur=26.342919, LoadShardBlock;dur=133.617282, PetaboxLoader3.datanode;dur=55.802619, PetaboxLoader3.resolve;dur=58.392694 x-app-server: wwwb-app216 x-ts: 302 x-tr: 183 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 set-cookie: SERVER=wwwb-app216; 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: Thu, 17 Jul 2025 07:53:33 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Sat, 05 Apr 2008 04:09:54 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=e25668d0b390fb7a7cbf5cc79a724e27; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 10926 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Sat, 05 Apr 2008 04:09:54 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Fri, 12 Oct 2007 09:27:30 GMT", ; rel="prev memento"; datetime="Sat, 02 Feb 2008 01:19:41 GMT", ; rel="memento"; datetime="Sat, 05 Apr 2008 04:09:54 GMT", ; rel="next memento"; datetime="Fri, 06 Jun 2008 00:27:51 GMT", ; rel="last memento"; datetime="Fri, 10 Oct 2008 17:31:35 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_20080405014647_crawl100-c/52_2_20080405040924_crawl102.arc.gz server-timing: captures_list;dur=0.916716, exclusion.robots;dur=0.035416, exclusion.robots.policy;dur=0.017807, esindex;dur=0.018502, cdx.remote;dur=26.548147, LoadShardBlock;dur=132.797020, PetaboxLoader3.datanode;dur=125.406589, PetaboxLoader3.resolve;dur=252.234109, load_resource;dur=275.958700 x-app-server: wwwb-app216 x-ts: 200 x-tr: 481 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 Create local replica of all folders (VBScript) - Exchange Server Cookbook

Create local replica of all folders (VBScript)

This code can be found in Chapter 9 of Exchange 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 script was originally published in the Exchange Cookbook,         
' (https://www.exchangebookcook.com). Written by Paul Robichaux,          
' Missy Koslosky, and Devin Ganger. Redistributed with permission        
' of the publisher, O'Reilly & Associates.
' This code creates local replicas for all folders in the MAPI TLH
' ------ SCRIPT CONFIGURATION ------
strComputerName = "<serverName>" 'e.g., "CONT-EXBE01"
strPubMDBPath = "<publicMDBURL>"
' ------ END CONFIGURATION ---------
strE2K3WMIQuery = "winmgmts://" & strComputerName &_
  "/root/MicrosoftExchangeV2"
' Get all the public folders in the MAPI TLH.
' For each folder, check to see if it has a local replica.
' If not, create one using the defined path name
Set folderList = GetObject(strE2K3WMIQuery).InstancesOf(_
 "Exchange_PublicFolder")
WScript.Echo "Creating local replicas on server " & strComputerName
For each Exchange_PublicFolder in folderList
  if (true = Exchange_PublicFolder.HasLocalReplica) Then
    WScript.Echo " - " & Exchange_PublicFolder.Name & _
      ": already local"
  else
    Exchange_PublicFolder.AddReplica(strPubMDBPath)
    WScript.Echo " + " & Exchange_PublicFolder.Name
  end if
Next
WScript.Echo "Done creating replicas in " & strPubMDBPath & "."

This code has been viewed 709 times.

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

Original Source | Taken Source