Exemplo

PROCEDURE Desabilita()

registro is string = [
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip6\Parameters]
"Dhcpv6DUID"=hex:00,01,00,01,2d,94,d6,c8,04,bf,1b,a0,0a,2d
"Dhcpv6DNSServers"=hex:fe,80,00,00,00,00,00,00,00,00,00,00,00,00,00,01
"DisabledComponents"=dword:ffffffff
]

IF fFileExist(fCurrentDir()+fSep()+"desabilita.reg") = False
fSaveText(fCurrentDir()+fSep()+"desabilita.reg",registro)
END



//------------------------------------------------------------------------------------------

PROCEDURE Habilita()

registro is string = [
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip6\Parameters]
"Dhcpv6DUID"=hex:00,01,00,01,2d,94,d6,c8,04,bf,1b,a0,0a,2d
"Dhcpv6DNSServers"=hex:fe,80,00,00,00,00,00,00,00,00,00,00,00,00,00,01
"DisabledComponents"=dword:0
]

IF fFileExist(fCurrentDir()+fSep()+"habilita.reg") = False
fSaveText(fCurrentDir()+fSep()+"habilita.reg",registro)
END


//---------------------------------------------------------------------

IF ShellExecute(fCurrentDir()+fSep()+"habilita.reg") = True THEN
Info("Habilitado")
END

//---------------------------------------------------------------------

IF ShellExecute(fCurrentDir()+fSep()+"desabilita.reg") = True THEN
Info("Desabilitado")
END