vbs to autoit (restore point)

[ricky]

Hello,

I want to create a restore point on windows seven or XP. I only found a vbs script, who can tranlate it to me in autoit?

Code found here : http://www.winhelponline.com/blog/wp-content/uploads/createsrp.vbs

'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

'Script to create a System Restore point in Windows 7 | Vista | XP

'May 10 2008 - Revised on Jan 10, 2009

'© 2008 Ramesh Srinivasan. http://www.winhelponline.com

'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

If GetOS = "Windows XP" Then

CreateSRP

End If

If GetOS = "Windows Vista" Or GetOS = "Windows 7" Then

If WScript.Arguments.length =0 Then

Set objShell = CreateObject("Shell.Application")

objShell.ShellExecute "wscript.exe", """" & _

WScript.ScriptFullName & """" & " uac","", "runas", 1

Else

CreateSRP

End If

End If

Sub CreateSRP

Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")

sDesc = "Manual Restore Point"

sDesc = InputBox ("Enter a description.", "System Restore script : winhelponline.com","Manual Restore Point")

If Trim(sDesc) <> "" Then

sOut = SRP.createrestorepoint (sDesc, 0, 100)

If sOut <> 0 Then

WScript.echo "Error " & sOut & _

": Unable to create Restore Point."

End If

End If

End Sub

Thanks in advance for your help

[Melba23]

ricky03,

who can tranlate it to me in autoit?

And what have you tried so far that has not worked?

M23

[ricky]

I have a lot of problems to understand the objects config and calls!

I don't try to translate alone this code, because with other differents codes I try to translate the same kind of objects and in 100% of times I spent some hours and at the end it crash!

Thanks for your help!

[water]

Why do you want to translate a code to AutoIt you don't understand? You have a VBS script that should run fine.

What you try to translate is so sensible I wouldn't do it without exactly knowing what I do.

[ricky]

I want to integrate this script in a final cleaning tool created with autoit!

When the system is clean, create a restore point automaticly! I don't want to exctract a vbs from an autoit script. And sometimes, the vbs script is recognised as virus or malware...

[water]

Something like this? I don't know what you want to do with the WScript part.

;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
; Script to create a System Restore point in Windows 7 | Vista | XP
; May 10 2008 - Revised on Jan 10, 2009
; © 2008 Ramesh Srinivasan. http://www.winhelponline.com
;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
If @OSVersion = "Win_XP" Then
    CreateSRP()
EndIf

If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
    If $CmdLine[0] = 0 Then
        $objShell = ObjCreate("Shell.Application")
        ; $objShell.ShellExecute "wscript.exe", """" & _
        ; WScript.ScriptFullName & """" & " uac","", "runas", 1
    Else
        CreateSRP()
    EndIf
EndIf

Func CreateSRP()
    $SRP = ObjGet("winmgmts:.rootdefault:Systemrestore")
    $sDesc = "Manual Restore Point"
    $ssDesc = InputBox("Enter a description.", "System Restore script : winhelponline.com", "Manual Restore Point")
    If StringStripWS($sDesc, 3) <> "" Then
        $sOut = $RP.createrestorepoint($sDesc, 0, 100)
        If $sOut <> 0 Then
            MsgBox(16, "Error", "Error " & $sOut & ": Unable to create Restore Point.")
        EndIf
    EndIf
EndFunc   ;==>CreateSRP

[ricky]

Thanks a lot.

The wscript is to run with admin rights! It's possible to create the same line in autoit?

Edit : I just modify 2 mistakes...

;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
; Script to create a System Restore point in Windows 7 | Vista | XP
; May 10 2008 - Revised on Jan 10, 2009
; © 2008 Ramesh Srinivasan. http://www.winhelponline.com
;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
If @OSVersion = "Win_XP" Then
    CreateSRP()
EndIf

If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
    If $CmdLine[0] = 0 Then
        $objShell = ObjCreate("Shell.Application")
        ; $objShell.ShellExecute "wscript.exe", """" & _
        ; WScript.ScriptFullName & """" & " uac","", "runas", 1
    Else
        CreateSRP()
    EndIf
EndIf

Func CreateSRP()
    $SRP = ObjGet("winmgmts:.rootdefault:Systemrestore")
    $sDesc = "Manual Restore Point"
    $sDesc = InputBox("Enter a description.", "System Restore script : winhelponline.com", "Manual Restore Point")
    If StringStripWS($sDesc, 3) <> "" Then
        $sOut = $SRP.createrestorepoint($sDesc, 0, 100)
        If $sOut <> 0 Then
            MsgBox(16, "Error", "Error " & $sOut & ": Unable to create Restore Point.")
        EndIf
    EndIf
EndFunc   ;==>CreateSRP

Edited October 30, 2012 by ricky03

[ripdad]

#RequireAdmin

Local $rtn = CreateSRP()
MsgBox(0, '', $rtn)

Func CreateSRP()
    Local $sDesc = InputBox('Enter a description.', 'System Restore script : winhelponline.com', 'Manual Restore Point')
    If @error Or Not $sDesc Then Return -1
    Local $objClass = ObjGet('winmgmts:.rootdefault:SystemRestore')
    If Not IsObj($objClass) Then Return -2
    If $objClass.CreateRestorePoint($sDesc, 0, 100) <> 0 Then Return -3
    Return 1; <-- successful
EndFunc

-edit-

oops, you guys beat me to it.

Edited October 30, 2012 by ripdad