You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
335 B
15 lines
335 B
Set Args = wscript.Arguments
|
|
If Args.Count() > 0 Then
|
|
RpName = Args.item(0)
|
|
Else
|
|
RpName = "Vbscript"
|
|
End If
|
|
|
|
Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!root/default:SystemRestore")
|
|
|
|
If (obj.CreateRestorePoint(RpName, 0, 100)) = 0 Then
|
|
wscript.Echo "Success"
|
|
Else
|
|
wscript.Echo "Failed"
|
|
End If
|
|
|