Oh, I almost forgot, you will have to do a chomp(@ws) after sucking the file's contents into @ws to get rid of the newline characters at the end of each line.
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Ronen Kfir Sent: Sunday, November 23, 2003 5:18 AM To: [EMAIL PROTECTED] Subject: join multiple machines to domain Importance: High Hi, I use this script to join machines to domain. This is code is meant for a single machine. How would I modify it in a way I would be able to put a bunch of machines in a text file & join them all to the domain? Thanx, my $domain = "my domain"; my $dom_admin = "admin"; my $dom_pw = "xxxx"; my @ws; my $ws_admin ; my $ws_pw = "xxxx"; open (MACH, "<ws.txt") or die ("Cant open: $!"); open (ERR, ">err.out") or die ("Cant open: $!"); @ws=<MACH>; close (MACH); print @ws; { $ws_admin = "admin"; system("NETDOM JOIN @ws /Domain:$domain /UserD:$dom_admin /PasswordD:$dom_pw /UserO:$ws_admin /PasswordO:$ws_pw /reboot:5"); my $err = $? >> 8; if ($err) { print ERR "Machine: @ws failed on join\n" } else {print ERR "Machine: @ws joined successfully\n"} sleep 5; } close (MACH); R o n e n K f i r System Administrator CIT div. Tel Aviv University Israel Tel: 972-3-6407416 Fax: 972-3-6405158 cellular: 972-55-405910 E-mail: [EMAIL PROTECTED] _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
