Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Wed, 06 Aug 2025 00:27:52 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080328130950 location: https://web.archive.org/web/20080328130950/https://techtasks.com/code/viewbookcode/1266 server-timing: captures_list;dur=0.750324, exclusion.robots;dur=0.027094, exclusion.robots.policy;dur=0.012750, esindex;dur=0.012225, cdx.remote;dur=38.244655, LoadShardBlock;dur=554.261697, PetaboxLoader3.resolve;dur=424.070716, PetaboxLoader3.datanode;dur=82.526682 x-app-server: wwwb-app210 x-ts: 302 x-tr: 632 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 set-cookie: wb-p-SERVER=wwwb-app210; 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:27:53 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Fri, 28 Mar 2008 13:09:48 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=228eb1cc082bb3746c0d500e5770066c; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 10921 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Fri, 28 Mar 2008 13:09:50 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Mon, 15 Oct 2007 09:33:21 GMT", ; rel="prev memento"; datetime="Mon, 15 Oct 2007 09:33:21 GMT", ; rel="memento"; datetime="Fri, 28 Mar 2008 13:09:50 GMT", ; rel="next memento"; datetime="Tue, 14 Oct 2008 06:56:21 GMT", ; rel="last memento"; datetime="Thu, 20 Nov 2008 07:30:53 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_20080328121138_crawl100-c/52_2_20080328130933_crawl102.arc.gz server-timing: captures_list;dur=0.480046, exclusion.robots;dur=0.017893, exclusion.robots.policy;dur=0.008453, esindex;dur=0.009332, cdx.remote;dur=103.064310, LoadShardBlock;dur=460.021138, PetaboxLoader3.resolve;dur=765.419528, PetaboxLoader3.datanode;dur=76.042762, load_resource;dur=736.698313 x-app-server: wwwb-app210 x-ts: 200 x-tr: 1338 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 Move Databases (Perl) - Exchange Server Cookbook

Move Databases (Perl)

This code can be found in Chapter 6 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 Perl 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 script dismounts the selected database and moves it to the
# designated path.
# ------ SCRIPT CONFIGURATION ------
use Win32::OLE;
$strServerName = '<serverName>';
# e.g. "BATMAN"	
$strMDBName = '<mdbName>';
$strNewPath = 'c:\\temp\\';
# ------ END CONFIGURATION ---------
$theServer = Win32::OLE->new('CDOEXM.ExchangeServer');
$theMDB = Win32::OLE->new('CDOEXM.MailboxStoreDB');
$theServer->DataSource->Open($strServerName);
# Get the array list of StorageGroups, then coerce it to get the first
# SG name
$theSGArr = $theServer->StorageGroups;
$theFirstSG = theSGArr(0);
$strURL = 'LDAP://' . $theServer->DirectoryServer . '/cn=' . $strMDBName . ',' . $theFirstSG;
$theMDB->DataSource->Open($strURL);
# dismount the database before attempting to move it
if (($theMDB->Status == 0)) {
    $theMDB->Dismount();
}
# move the DB to the specified path, then remount it
$theMDB->MoveDataFiles($strNewPath . $strMDBName . '.edb', $strNewPath . $strMDBName . '.stm');
print "Moved data files for $strMDBName to $strNewPath\n";
$theMDB->Mount();
print "Mounted $strMDBName\n";

This code has been viewed 398 times.

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

Original Source | Taken Source