Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Thu, 07 Aug 2025 04:23:24 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080420194003 location: https://web.archive.org/web/20080420194003/https://techtasks.com/code/viewbookcode/957 server-timing: captures_list;dur=0.636475, exclusion.robots;dur=0.026332, exclusion.robots.policy;dur=0.012143, esindex;dur=0.012921, cdx.remote;dur=33.157732, LoadShardBlock;dur=630.061381, PetaboxLoader3.datanode;dur=103.079665 x-app-server: wwwb-app223 x-ts: 302 x-tr: 690 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 set-cookie: wb-p-SERVER=wwwb-app223; 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, 07 Aug 2025 04:23:25 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Sun, 20 Apr 2008 19:40:04 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: 10379 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:40:03 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Mon, 15 Oct 2007 21:15:51 GMT", ; rel="prev memento"; datetime="Sat, 09 Feb 2008 23:25:53 GMT", ; rel="memento"; datetime="Sun, 20 Apr 2008 19:40:03 GMT", ; rel="next memento"; datetime="Sat, 11 Oct 2008 01:05:52 GMT", ; rel="last memento"; datetime="Fri, 21 Nov 2008 05:05:30 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_20080420193819_crawl102.arc.gz server-timing: captures_list;dur=0.734787, exclusion.robots;dur=0.045517, exclusion.robots.policy;dur=0.020914, esindex;dur=0.015168, cdx.remote;dur=56.580337, LoadShardBlock;dur=174.467919, PetaboxLoader3.datanode;dur=75.761473, PetaboxLoader3.resolve;dur=149.800198, load_resource;dur=174.799381 x-app-server: wwwb-app223 x-ts: 200 x-tr: 464 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 Modify user - WinNT (Perl) - Active Directory, 3rd Edition

Modify user - WinNT (Perl)

This code can be found in Chapter 23 of Active Directory, 3rd Edition

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.

# From the book "Active Directory, Third Edition" 
# ISBN: 0-596-10173-2
use Win32::OLE qw(in);
use strict;
my ($objDomain, $objUser);
$objDomain = Win32::OLE->GetObject('WinNT://MYCORP');
$objDomain->{Filter} = ['User'];
# **********************************************************************
# Iterate over each user and set the LoginScript 
# Print an error if one occurs
# **********************************************************************
foreach my $objUser (in $objDomain) {
    $objUser->{LoginScript} = 'login-new.vbs';
    $objUser->SetInfo();
    if ((0 + Win32::OLE::LastError()) != 0) {
        print $objUser->Name . ' error occurred', "\n";
        Win32::OLE::LastError(0);
    }
    else {
        print $objUser->Name . ' modified', "\n";
    }
}

This code has been viewed 650 times.

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

Original Source | Taken Source