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:\.rootdefault:Systemrestore")
    sDesc = "Yek Noghteh Bazgardani"
    sDesc = InputBox ("Tozihi barayeh in noghteh bazgardani benevisid:", "Sakhteh Noghteh Bazgardani : Tarfandestan.com","Yek Noghteh Bazgardani")
    If Trim(sDesc) <> "" Then
        sOut = SRP.createrestorepoint (sDesc, 0, 200)
        If sOut <> 0 Then
             WScript.echo "Error " & sOut & _
               ": Sakhteh noghteh bazgardani ba moshkel movajeh shod."
        End If
    End If
End Sub

Function GetOS    
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & _
        ".rootcimv2")
    Set colOS = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
    For Each objOS in colOS
        If instr(objOS.Caption, "Windows 7") Then
            GetOS = "Windows 7"    
        ElseIf instr(objOS.Caption, "Vista") Then
            GetOS = "Windows Vista"
        elseIf instr(objOS.Caption, "Windows XP") Then
              GetOS = "Windows XP"
        End If
    Next
End Function

پس از کپی کدهای فوق، از منوی File بر روی Save as کلیک کنید. سپس فایل را با نام دلخواه و پسوند vbs. ذخیره کنید (به عنوان مثال نام آن را Tarfandestan.vbs قرار دهید).