Is this U.S. dollars? :-)
use Win32::TieRegistry ( Delimiter => '/', ArrayValues => 0, TiedRef =>
\$Registry );
$Registry->{'LMachine/SYSTEM/CurrentControlSet/Control/ComputerName/Computer
Name'} = $name;
$Registry->{'LMachine/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters'} =
$name;
Win32::InitiateSystemShutdown("","Rebooting the computer",5 ,0 ,1);
-----Original Message-----
From: JM [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, March 13, 2002 8:01 PM
To: [EMAIL PROTECTED]
Subject: Changing Computer Name - $20???
Hi
I'm trying to change a computer name on a Windows 2000 PC, logged in as
Administrator. It changes the Computername ENV. Var. but does not change
the NetBIOS name. $20.00 to the first person that can help me get this code
to work properly. . .
use Win32;
use Win32::AdminMisc;
Win32::AdminMisc::SetComputerName('BLACKBOX');
Win32::InitiateSystemShutdown("","Rebooting the computer",5 ,0 ,1);
The Computer reboots properly . . .
_______________________________________________
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
