TurboLab.it

Codice: Seleziona tutto

Const HKEY_LOCAL_MACHINE = &H80000002

' Crea un oggetto WMI per accedere al registro
Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\default:StdRegProv")

' Percorso della chiave di registro
strKeyPathGoogle = "SOFTWARE\Policies\Google"
strKeyPathUpdate = "SOFTWARE\Policies\Google\Update"

' Crea le chiavi di registro
ReturnGoogle = objRegistry.CreateKey(HKEY_LOCAL_MACHINE, strKeyPathGoogle)
ReturnUpdate = objRegistry.CreateKey(HKEY_LOCAL_MACHINE, strKeyPathUpdate)

If ReturnGoogle <> 0 Then
    WScript.Echo "Errore nella creazione della chiave Google: " & Err.Number
Else
    WScript.Echo "Chiave Google creata con successo."
End If

If ReturnUpdate <> 0 Then
    WScript.Echo "Errore nella creazione della chiave Update: " & Err.Number
Else
    WScript.Echo "Chiave Update creata con successo."
End If

' Imposta il valore UpdateDefault a 1
strValueName = "UpdateDefault"
dwValue = 1

ReturnValue = objRegistry.SetDWORDValue(HKEY_LOCAL_MACHINE, strKeyPathUpdate, strValueName, dwValue)

If ReturnValue <> 0 Then
    WScript.Echo "Errore nell'impostare il valore UpdateDefault: " & Err.Number
Else
    WScript.Echo "Valore UpdateDefault impostato con successo a 1."
End If