Script: creare punto di ripristino da remoto
Il mio script per creare punto di ripristino da remoto su client Windows
Durante gli interventi che quotidianamente faccio su client con problemi, se non riesco a risolvere mi affido come tutti ai punti di ripristino esistenti, mentre se ne avevo la possibilità avrei preferito creare dei punti di ripristino intermedi per schedulare meglio l’intervento. Per questo ho creato questo piccolo script per creare punti di ripristino sul proprio client o verso client remoti con la possibilità di personalizzarne la descrizione.
'Punto di ripristino in remoto 'script VisualBasic per Creazione punto di ripristino in remoto ' '2016 Andrea Cavazzi http://www.itmaniac.it 'version 1.0.1 '------------------------------------------------- '-------------------------------------------- ' Elevare i diritti da amministratore '-------------------------------------------- If WScript.Arguments.length = 0 Then Set objShell = CreateObject("Shell.Application") 'Pass a bogus argument, say [ uac] objShell.ShellExecute "wscript.exe", Chr(34) & _ WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1 Else '-------------------------------------------- ' Creazione del punto di ripristino '-------------------------------------------- strComputer = (InputBox(" Inserisci nome del computer", "Creazione punto di ripristino su pc remoto")) GetObject("winmgmts:\\" & strComputer & "\root\default:Systemrestore").CreateRestorePoint InputBox( _ "Inserisci una descrizione del punto di ripristino","Inserisci una descrizione:", _ "Punto di ripristino creato dal HelpDesk!!!"), 0, 100 End If
Lo script lo potete copiare ed incollare in blocco note e salvare con estensione .vbs, funziona su client a 32bit che a 64bit, su pc con Windows 7, 8 e 10.
Aggiornamento 15/10/18: cambiato il codice nella parte dell’elevazione diritti di amministrattore UAC