Enable anonymous-only access in IIS (Perl)

This code can be found in Chapter 15 of Windows Server 2003 Security 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 enables anonymous-only access to a web site
# and configures the default user account and password.
# ------ SCRIPT CONFIGURATION ------

use Win32::OLE;

$strComputer = '<ServerName>';
$strSiteID = '<SiteID>';
# ------ END CONFIGURATION ---------
$objWebSite = Win32::OLE->GetObject('IIS://' . $strComputer . '/W3SVC/' . $strSiteID);

$objWebSite->{AllowAnonymous} = 1;
$objWebSite->{AnonymousOnly} = 1;
$objWebSite->{AnonymousUserName} = 'DOMAIN\\iisuser';
$objWebSite->{AnonymousUserPass} = '!!sUser';
$objWebSite->SetInfo();

print 'Successfully modified Anonymous settings for: ' . $objWebSite->ServerComment, "\n";

This code has been viewed 924 times.

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