use Win32::OLE;
$Win32::OLE::Warn = 3;

$objWSHShell = Win32::OLE->new('WScript.Shell');
$strRegKey = 'HKLM\\SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Parameters\\';
$objWSHShell->RegWrite($strRegKey . 'DisableDynamicUpdates', 1);

