Rename computer (Perl)

This code can be found in Chapter 1 of Windows Server 2003 Networking Recipes

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 "Windows Server 2003 Networking Recipes"

# This code renames the local computer to the name Computer2.
# ------ SCRIPT CONFIGURATION ------

use Win32::OLE qw(in);

$strComputer = '.';
$strNewName = 'Computer2';
# ------ END CONFIGURATION ---------

$objWMIService = Win32::OLE->GetObject('winmgmts:{impersonationLevel=impersonate}!\\\\' . $strComputer . '\\root\\cimv2');
$colComputers = $objWMIService->ExecQuery('Select * from Win32_ComputerSystem');
foreach my $objComputer (in $colComputers) {
    $errReturn = $ObjComputer->Rename($strNewName);
    print "Computer successfully renamed\n";
}

This code has been viewed 817 times.

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