Run "control sysdm.cpl,,1 8" in VBA

[Maurizio]

How can I from Vba run automatic this:
"control sysdm.cpl,,1 8"
get update and then close this panel?

 

[JohnG]

Try

Shell "control sysdm.cpl,,1 8", 3 which is maximised and has focus

 

[Maurizio]

Ok, but I want that automatically was clicked
UPDATE and then clicked OK!
Is it possible for you?

 

[Maurizio]

I find:

Sub UpdatePeriferichePC()

Dim TempoAttesa

Shell "control sysdm.cpl,,1 8", 3
TempoAttesa = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3)
Application.Wait TempoAttesa 'necessary
SendKeys "A", True
SendKeys "{ENTER}"

End Sub