Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Tue, 05 Aug 2025 08:58:39 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080420194714 location: https://web.archive.org/web/20080420194714/https://techtasks.com/code/viewbookcode/501 server-timing: captures_list;dur=0.549814, exclusion.robots;dur=0.023333, exclusion.robots.policy;dur=0.010725, esindex;dur=0.013785, cdx.remote;dur=27.714061, LoadShardBlock;dur=243.346984, PetaboxLoader3.datanode;dur=103.681907, PetaboxLoader3.resolve;dur=72.402034 x-app-server: wwwb-app203 x-ts: 302 x-tr: 294 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 set-cookie: wb-p-SERVER=wwwb-app203; 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: Tue, 05 Aug 2025 08:58:42 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Sun, 20 Apr 2008 19:47:14 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=52c056d0d29783da3f54df9bc16e7d9b; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 10930 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Sun, 20 Apr 2008 19:47:14 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Sat, 13 Oct 2007 15:54:03 GMT", ; rel="prev memento"; datetime="Tue, 12 Feb 2008 11:14:14 GMT", ; rel="memento"; datetime="Sun, 20 Apr 2008 19:47:14 GMT", ; rel="last memento"; datetime="Sun, 20 Apr 2008 19:47:14 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_3_20080420170708_crawl108-c/52_3_20080420194351_crawl102.arc.gz server-timing: captures_list;dur=0.704547, exclusion.robots;dur=0.031404, exclusion.robots.policy;dur=0.014238, esindex;dur=0.013564, cdx.remote;dur=35.635410, LoadShardBlock;dur=2374.754909, PetaboxLoader3.datanode;dur=659.712883, PetaboxLoader3.resolve;dur=1820.838654, load_resource;dur=197.727157 x-app-server: wwwb-app203 x-ts: 200 x-tr: 2671 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 Configure user quota (Perl) - Windows Server Cookbook

Configure user quota (Perl)

This code can be found in Chapter 3 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 Perl code from this site.

# This code configures a quota for a particular user.
# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Windows Server Cookbook" by Robbie Allen
# ISBN: 0-596-00633-0
# ---------------------------------------------------------------
use Win32::OLE;
$Win32::OLE::Warn = 3;
# ------ SCRIPT CONFIGURATION ------
$strComputer = '.';
$strUser = '<User>'; # e.g. rallen
$strUserDomain = '<Domain>'; # e.g. AMER
$strDrive = '<Drive>'; # e.g. D:
$intLimit = 1024 * 1024 * 600; # = 600 MB
$intWarning = 1024 * 1024 * 350; # = 350 MB
# ------ END CONFIGURATION ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$objDisk = $objWMI->Get('Win32_LogicalDisk.DeviceID=\'' . $strDrive . '\'');
print 'Found disk ' . $objDisk->Caption, "\n";
$objUser = $objWMI->Get('Win32_Account.Domain=\'' . $strUserDomain . '\',Name=\'' . $strUser . '\'');
print 'Found user ' . $objUser->Name, "\n";
$objQuota = $objWMI->Get('Win32_DiskQuota.QuotaVolume=' . '\'Win32_LogicalDisk.DeviceID="' . $strDrive . '"\',' . 'User=\'Win32_Account.Domain="' . $strUserDomain . '",Name="' . $strUser . '"\'');
$objQuota->{Limit} = $intLimit;
$objQuota->{WarningLimit} = $intWarning;
$objQuota->Put_;
print 'Set quota for user ', $objUser->Name, "\n";

This code has been viewed 620 times.

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

Original Source | Taken Source