unattended-cvs Mailing List for Unattended, A Windows deployment system (Page 144)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Update of /cvsroot/unattended/unattended/install/bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5343

Modified Files:
	auconfig.pl 
Log Message:
Nearly complete rewrite to add "--policy" switch and all the settings
it allows.  Contributed by Nils Østbjerg.


Index: auconfig.pl
===================================================================
RCS file: /cvsroot/unattended/unattended/install/bin/auconfig.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5

--- auconfig.pl	13 Sep 2003 20:26:39 -0000	1.4
+++ auconfig.pl	24 Mar 2004 23:51:57 -0000	1.5
@@ -1,5 +1,6 @@
 # Script to configure Automatic Updates from a command prompt.
 # Part of <http://unattended.sourceforge.net/>.
+# 2004-02-15 Nils Østbjerg <no...@bu...>
 
 use warnings;
 use strict;
@@ -7,71 +8,236 @@
 use Pod::Usage;
 
 my %opts;
-GetOptions (\%opts, 'help|h|?', 'day=i', 'time=i', 'remote=s')
-    or pod2usage (2);
+GetOptions (\%opts, 'help|h|?', 'day=i', 'time=i', 'remote=s', 'wait=i',
+            'sus=s', 'status=s', 'noautoreboot', 'policy')
+  or pod2usage (2);
 
 (exists $opts{'help'})
-    and pod2usage ('-exitstatus' => 0, '-verbose' => 2);
+  and pod2usage ('-exitstatus' => 0, '-verbose' => 2);
 
 # Ensure exactly one argument after options.
 scalar @ARGV == 1
-    or pod2usage (2);
+  or pod2usage (2);
 
 my ($au_options) = @ARGV;
 
+
+## Initialize the hashes 
+
+my %au_values = ('ScheduledInstallDay' => 255, 
+		 'ScheduledInstallTime' => 255,
+                 'RescheduleWaitTime' => 255,
+                 'AUOptions' => 255,
+		 'NoAutoRebootWithLoggedOnUsers' => 255,
+		 'NoAutoUpdate' => 255,
+		 'UseWUServer' => 255
+		);
+
+my %wu_values = ('WUServer' => '',
+                 'WUStatusServer' => '',
+                );
+
+my %old_values = ('AUOptions' => 254, 
+		  'AUState' => 254,
+		  'ScheduledInstallDay' => 255,
+		  'ScheduledInstallTime' => 255
+		 );
+
 ## Validate all options.
 
-# Main argument must be 1, 2, 3, or 4.
-$au_options =~ /^[1234]$/
-    or die "Argument must be 1, 2, 3, or 4.\n";
+  
+if ($opts{'policy'}) { 
+# Use policy settings.
+  if ($au_options eq "off" || $au_options eq "1") {
+      (exists $opts{'day'} || exists $opts{'time'}
+       || exists $opts{'wait'} || exists $opts{'sus'}
+       || exists $opts{'status'} || exists $opts{'noautoreboot'})
+          and die ("only the --remote option is allowed for this mode\n");
+    
+    $au_values{'NoAutoUpdate'} = 1;
+    
+  } elsif ($au_options eq "notify" || $au_options eq "2") {
+    (exists $opts{'day'} || exists $opts{'time'} || exists $opts{'wait'})
+      and die ("--day, --time and --wait options is not allowed for this mode\n");
+    
+    $au_values{'AUOptions'} = 2;
+    
+  } elsif ($au_options eq "download"|| $au_options eq "3" ) {
+    (exists $opts{'day'} || exists $opts{'time'} || exists $opts{'wait'}) 
+      and die ("--day, --time and --wait options is not allowed for this mode\n");
+    
+    $au_values{'AUOptions'} = 3;
+    
+  } elsif ($au_options eq "install"|| $au_options eq "4" ) {
+    (exists $opts{'day'} && exists $opts{'time'} && exists $opts{'wait'})
+      or die "--day, --time and --wait options required for this mode\n";
+    
+    if ($opts{'day'} =~ /^[01234567]$/) {
+      $au_values{'ScheduledInstallDay'} = $opts{'day'};
+    } else {
+      die "--day must be between 0 and 7\n";
+    }
+    
+    if ($opts{'time'} =~ /^\d+$/ && $opts{'time'} >= 0 && $opts{'time'} <= 23) {
+      $au_values{'ScheduledInstallTime'} = $opts{'time'};
+    } else {
+      die "--time must be between 0 and 23\n";
+    }
+    
+    if ($opts{'wait'} =~ /^\d+$/ && $opts{'time'} >= 1 && $opts{'time'} <= 60) {
+      $au_values{'RescheduleWaitTime'} = $opts{'wait'};
+    } else {
+      die "--wait must be between 1 and 60\n";
+    }
+    
+    $au_values{'AUOptions'} = 4;
+    
+  } else {
+    die "Argument must be 1, off, 2, notify, 3, download, 4, or install.\n";
+  }
 
-if ($au_options == 4) {
-    # 4 means automatically install, so require a day and time.
+  if (exists $opts{'noautoreboot'}) {
+    $au_values{'NoAutoRebootWithLoggedOnUsers'} = 1;
+  }
+  
+  if (exists $opts{'sus'}) {
+    if ($opts{'sus'} =~ /^http\:\/\/.+$/ ) {
+      $wu_values{'WUServer'} = $opts{'sus'}; 
+      $au_values{'UseWUServer'} = 1; 
+    } else {
+      die ("syntax is : --sus http://susserver.example.com");
+    }
+  }
+  
+  if (exists $opts{'status'}) {
+    if ($opts{'status'} =~ /^http\:\/\/.+$/ ) {
+      $wu_values{'WUStatusServer'} = $opts{'status'}; 
+    } else {
+      die ("syntax is : --status http://susserver.example.com");
+    }
+  }
+} else {
+# Use old settings, and allow admins to configure it.
+
+  if ($au_options eq "off" || $au_options eq "1") {
+    (exists $opts{'day'} || exists $opts{'time'} )
+      and die ("only the --remote option is allowed for this mode\n");
+    
+    $old_values{'AUOptions'} = 1;
+    $old_values{'AUState'} = 7;
+        
+  } elsif ($au_options eq "notify" || $au_options eq "2") {
+    (exists $opts{'day'} || exists $opts{'time'})
+      and die ("--day and --time options is not allowed for this mode\n");
+    
+    $old_values{'AUOptions'} = 2;
+    $old_values{'AUState'} = 2;
+    
+  } elsif ($au_options eq "download"|| $au_options eq "3" ) {
+    (exists $opts{'day'} || exists $opts{'time'})
+      and die ("--day and --time options is not allowed for this mode\n");
+    
+    $old_values{'AUOptions'} = 3;
+    $old_values{'AUState'} = 2;
+    
+  } elsif ($au_options eq "install"|| $au_options eq "4" ) {
     (exists $opts{'day'} && exists $opts{'time'})
-        or die "--day and --time options required for mode 4\n";
+      or die "--day and --time options required for this mode\n";
+    
+    if ($opts{'day'} =~ /^[01234567]$/) {
+      $old_values{'ScheduledInstallDay'} = $opts{'day'};
+    } else {
+      die "--day must be between 0 and 7\n";
+    }
+    
+    if ($opts{'time'} =~ /^\d+$/ && $opts{'time'} >= 0 && $opts{'time'} <= 23) {
+      $old_values{'ScheduledInstallTime'} = $opts{'time'};
+    } else {
+      die "--time must be between 0 and 23\n";
+    }
 
-    $opts{'day'} =~ /^[01234567]$/
-        or die "--day must be between 0 and 7\n";
+    $old_values{'AUOptions'} = 4;
+    $old_values{'AUState'} = 2;
+  } else {
+    die "Argument must be 1, off, 2, notify, 3, download, 4, or install.\n";
+  }
 
-    $opts{'time'} =~ /^\d+$/
-        && $opts{'time'} >= 0
-        && $opts{'time'} <= 23
-        or die "--time must be between 0 and 23\n";
-}
-else {
-    # Forbid day and time.
-    (exists $opts{'day'} || exists $opts{'time'})
-        and die "--day and --time forbidden except for mode 4\n";
+  if (exists $opts{'noautoreboot'} || exists $opts{'sus'} || exists $opts{'status'}) {
+    die ("The --policy option is required for the use of this option.\n");
+  }
+  
 }
 
-## Now do the actual work.
+
+## Change the registry settings.
 
 my %reg;
-use Win32::TieRegistry (Delimiter => '/', TiedHash => \%reg, qw (REG_DWORD));
+use Win32::TieRegistry (Delimiter => '/', TiedHash => \%reg);
 
-my $au_key_name = ('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/'
-                   . 'CurrentVersion/WindowsUpdate/Auto Update/');
+my $key_name = ('HKEY_LOCAL_MACHINE/SOFTWARE/Policies/Microsoft/Windows/');
+my $wu_key_name = ('WindowsUpdate/');
+my $au_key_name = ('AU/');
 
 ($opts{'remote'})
-    and $au_key_name = "//$opts{'remote'}/$au_key_name";
+  and $key_name = "//$opts{'remote'}/$key_name";
 
-my $au_key = $reg{$au_key_name};
-defined $au_key
-    or die "Unable to open $au_key_name: $^E";
+my $key = $reg{$key_name};
 
-$au_key->{'/AUOptions'} = [ pack('L', $au_options), REG_DWORD ]
-    or die "Unable to set AUOptions key: $^E";
-$au_key->{'/AUState'} = [ pack('L', ($au_options == 1 ? 7 : 2)),
-                          REG_DWORD ]
-    or die "Unable to set AUState key: $^E";
+defined $key 
+  or die "Unable to open $key_name";
 
-if ($au_options == 4) {
-    ($au_key->{'/ScheduledInstallDay'} = [ pack('L', $opts{'day'}),
-                                          REG_DWORD ])
-        or die "Unable to set ScheduledInstallDay key: $^E";
-    ($au_key->{'/ScheduledInstallTime'} = [ pack('L', $opts{'time'}),
-                                           REG_DWORD ])
-        or die "Unable to set ScheduledInstallTime key: $^E";
+foreach my $name (sort keys %wu_values) {
+  my $val = $wu_values{$name};
+  if ($val eq '') {   
+    if (exists $key->{"$wu_key_name$name"}) {
+      (delete $key->{"$wu_key_name$name"})
+	or die "Unable to delete $key_name$wu_key_name$name: $^E";
+    }
+  } else {
+    $key->{"$wu_key_name"}= { "/$name" => $val}
+      or die "Unable to set $key_name$wu_key_name$name to $val: $^E";
+  }
+}
+
+foreach my $name (sort keys %au_values) {
+  my $val = $au_values{$name};
+  if ($val == 255 ) {
+    if (exists $key->{"$wu_key_name$au_key_name$name"}) {
+      (delete $key->{"$wu_key_name$au_key_name$name"})
+	or die "Unable to delete $key_name$wu_key_name$au_key_name$name: $^E";
+    }
+  } else {
+    $key->{"$wu_key_name"}= { "$au_key_name" => 
+			      {
+			       "/$name" =>  [ pack("L", $val), "REG_DWORD" ] 
+			      }
+			    }
+      or die "Unable to set $key_name$au_key_name$name to $val: $^E";
+  }
+}
+
+my $old_key_name = ('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/'
+		    . 'CurrentVersion/WindowsUpdate/Auto Update/');
+
+($opts{'remote'})
+  and $old_key_name = "//$opts{'remote'}/$old_key_name";
+
+my $old_key = $reg{$old_key_name};
+
+defined $old_key 
+  or die "Unable to open $old_key_name";
+
+foreach my $name (sort keys %old_values) {
+  my $val = $old_values{$name};
+  if ($val == 255 ) {
+    if (exists $old_key->{"$name"}) {
+      delete $old_key->{"$name"} 
+	or die "Unable to delete $old_key_name$name: $^E";
+    }
+  } elsif ($val != 254) {
+    $old_key->{"/$name"} =  [ pack("L", $val), "REG_DWORD" ]
+      or die "Unable to set $old_key_name$name to $val: $^E";
+  }
 }
 
 __END__
@@ -82,40 +248,72 @@
 
 =head1 SYNOPSIS
 
-auconfig.pl [ options ] 1/2/3/4
+auconfig.pl [ options ] <command>
+
+Commands:
+
+ 1 | off         Disable automatic updates
+ 2 | notify      Notify user before download
+ 3 | download    Download automatically; notify user before install
+ 4 | install     Download and install automatically 
 
 Options:
 
  --help           Display verbose help and exit (RECOMMENDED)
+ --policy         Use system policy settings
  --remote <host>  Operate on <host> instead of local machine     
- --day            Day of week for auto update (1 == Sunday; 0 == every day)
- --time           Time for auto update (0 == midnight, 23 == 11 P.M.)
-
+ --day <day>      Day of week for autoupdate (1 == Sunday; 0 == every day)
+ --time <hour>    Time for auto update (0 == midnight, 23 == 11 P.M.)
+ --wait <min>     How long after a restart a rescheduled install starts  
+ --sus <url>      Specifies the URL address of the SUS server to be used
+ --status <url>   Specifies the URL address of the SUS stastistics server
+ --noautoreboot   Turns off automatic reboots while users are logged on
 
 =head1 DESCRIPTION
 
 auconfig.pl configures the Windows 2000 and XP "Auto Updates"
-facility.  The main argument is a number which has the following
-meaning:
+facility. 
 
-  1 - Disable automatic updates
-  2 - Notify user before download
-  3 - Download automatically; notify user before install
-  4 - Download and install automatically
+The off command allows no options, except --policy and --remote.
 
-(These values are based on the registry settings.  I tried to think of
-nice names, but would they be any easier to remember than the
-numbers?)
+The notify and download commands requires no options, but allows all 
+excepts the --day, --time and --wait options.   
 
-The --day and --time options are required if the main argument is 4;
-otherwise, they are forbidden.
+All options are allowed with the install command, and the --day,
+and --time are required. If the --policy option is used the --wait
+option is required as well.
 
-The --day option, if provided, must be between 0 and 7.  1 means
-Sunday, 2 means Monday, and 7 means Saturday.  0 means every day.
+The --policy option is required for all options except --remote, 
+--day and --time. When the --policy option is use the settings is 
+a system policy, which cant be changed from the GUI.
+
+The --day option specifies which weekday the automatic installation 
+runs. The value must be between 0 and 7.  1 means Sunday, 2 
+means Monday, and 7 means Saturday.  0 means every day.
+
+The --time option specifies at which time the automatic installation
+runs. The value must be between 0 and 23.  0 mean midnight, 1 means 
+1 A.M., 12 means noon, and 23 means 11 P.M.
+
+With the --wait you specify the amount of minutes a computer waits
+before preforming installations which was scheduled to take place while
+the computer was off. The range is from 1 to 60 minutes.
+
+The --sus option enables Automatic Updates to use the Software Update 
+Services server specified. 
+The format of the url is http://susserver.example.com
+
+The --status allows you to specify the SUS statistics server. The format of
+the url is the same as with --sus.
+
+The --noautoreboot option makes Automatic Update present the user 
+with a request for a system reboot if one is required, instead of the
+default behavior where the system will reboot if required, something
+that may result in loss of data.
 
-The --time option, if provided, must be between 0 and 23.  0 means
-midnight, 1 means 1 A.M., 12 means noon, and 23 means 11 P.M.
 
 =head1 SEE ALSO
 
 C<http://windows2000faq.com/articles/?articleid=26221>
+C<http://support.microsoft.com/?id=328010>
+C<http://www.microsoft.com/resources/documentation/WindowsServ/2003/all/deployguide/en-us/dmebh_sus_wviy.asp>





2003	Jan	Feb	Mar	Apr	May	Jun	Jul (32)	Aug (32)	Sep (147)	Oct (126)	Nov (179)	Dec (29)
2004	Jan (27)	Feb (159)	Mar (171)	Apr (181)	May (116)	Jun (50)	Jul (99)	Aug (150)	Sep (19)	Oct (180)	Nov (16)	Dec (80)
2005	Jan (34)	Feb (24)	Mar (42)	Apr (62)	May (33)	Jun (22)	Jul (14)	Aug (17)	Sep (14)	Oct (10)	Nov (7)	Dec (13)
2006	Jan (15)	Feb (12)	Mar (15)	Apr (8)	May (7)	Jun (44)	Jul (18)	Aug (18)	Sep (20)	Oct (19)	Nov (7)	Dec (6)
2007	Jan (6)	Feb (12)	Mar (26)	Apr (15)	May (6)	Jun (17)	Jul (4)	Aug (16)	Sep (27)	Oct (31)	Nov (10)	Dec (32)
2008	Jan (17)	Feb (8)	Mar (18)	Apr (49)	May (16)	Jun (18)	Jul (23)	Aug (6)	Sep (8)	Oct (9)	Nov (17)	Dec (13)
2009	Jan (6)	Feb (39)	Mar (28)	Apr (13)	May	Jun (11)	Jul (21)	Aug (21)	Sep (4)	Oct (15)	Nov (7)	Dec (15)
2010	Jan (57)	Feb (38)	Mar (12)	Apr (11)	May (10)	Jun (16)	Jul (10)	Aug (12)	Sep (14)	Oct (11)	Nov (6)	Dec (8)
2011	Jan (38)	Feb (6)	Mar (16)	Apr (4)	May (23)	Jun (15)	Jul (5)	Aug (7)	Sep (6)	Oct (11)	Nov (7)	Dec (7)
2012	Jan (2)	Feb (17)	Mar (9)	Apr (7)	May (4)	Jun (17)	Jul (6)	Aug (2)	Sep (6)	Oct (14)	Nov (7)	Dec (14)
2013	Jan (20)	Feb (15)	Mar (11)	Apr (22)	May (18)	Jun (12)	Jul (8)	Aug (13)	Sep (25)	Oct (19)	Nov (12)	Dec (11)
2014	Jan (8)	Feb (18)	Mar (6)	Apr (17)	May (17)	Jun (12)	Jul (5)	Aug (8)	Sep (41)	Oct (13)	Nov (5)	Dec (7)
2015	Jan (7)	Feb (18)	Mar (6)	Apr (10)	May (14)	Jun (8)	Jul (4)	Aug	Sep (25)	Oct (7)	Nov (14)	Dec (10)
2016	Jan (7)	Feb (17)	Mar (23)	Apr (11)	May (14)	Jun (10)	Jul (8)	Aug (9)	Sep (4)	Oct (2)	Nov (10)	Dec
2017	Jan (15)	Feb (1)	Mar (16)	Apr (1)	May (17)	Jun (9)	Jul (3)	Aug (11)	Sep (4)	Oct (13)	Nov (6)	Dec (10)
2018	Jan (12)	Feb (7)	Mar (34)	Apr	May (11)	Jun (2)	Jul (12)	Aug (6)	Sep (6)	Oct (14)	Nov (9)	Dec (7)
2019	Jan (13)	Feb (5)	Mar (13)	Apr (8)	May (5)	Jun (9)	Jul (9)	Aug (4)	Sep (8)	Oct (2)	Nov (7)	Dec (5)
2020	Jan (9)	Feb (2)	Mar (3)	Apr (4)	May (14)	Jun (6)	Jul (4)	Aug (5)	Sep (5)	Oct (6)	Nov (7)	Dec (11)
2021	Jan (3)	Feb (4)	Mar (2)	Apr (6)	May (6)	Jun (6)	Jul (7)	Aug (1)	Sep (11)	Oct (10)	Nov (4)	Dec (4)
2022	Jan (6)	Feb (5)	Mar (5)	Apr (2)	May (7)	Jun (10)	Jul (9)	Aug (2)	Sep (5)	Oct (2)	Nov (9)	Dec (6)
2023	Jan (8)	Feb (2)	Mar (5)	Apr (3)	May (4)	Jun (4)	Jul (7)	Aug (2)	Sep (7)	Oct (4)	Nov (5)	Dec (2)
2024	Jan (3)	Feb (2)	Mar (1)	Apr	May (2)	Jun (8)	Jul (4)	Aug (2)	Sep (4)	Oct	Nov	Dec

unattended-cvs Mailing List for Unattended, A Windows deployment system (Page 144)

System for fully automating Windows installations

unattended-cvs — CVS commit messages