Создание точки восстановления диска D

Function GetOS    
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & ".\root\cimv2")
    Set colOS = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
    For Each objOS in colOS
        If instr(objOS.Caption, "Windows 10") Then
            GetOS = "Windows 8"
        elseIf 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
 
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", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1
    Else
        CreateSRP
    End If
End If
 
If GetOS = "Windows 8" Then
    If WScript.Arguments.length =0 Then
        Set objShell = CreateObject("Shell.Application")
        objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1 
         Else  
               const HKEY_LOCAL_MACHINE = &H80000002
               strComputer = "."
               Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
               strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore"
               strValueName = "SystemRestorePointCreationFrequency"
               oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,0      
        CreateSRP  
    End If
End If
 
Sub CreateSRP
    Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")
    sDesc = "Создал   Администратор ПК"
    If Trim(sDesc) <> "" Then
        sOut = SRP.createrestorepoint (sDesc, 0, 100)
        If sOut <> 0 Then
            WScript.echo "Error " & sOut & ": Не удалось создать точку восстановления"
                else 
                MsgBox "      Точка восстановления системы  -  создана", 0, ""
        End If
    End If
End Sub

If WScript.Arguments.Count = 0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1
Else
         CreateSRP
End If
 
Sub CreateSRP
 
Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")
SRP.Enable("")
 
With CreateObject("htmlfile")
   Y = 96/.Parentwindow.Screen.deviceYDpi
   Y = 15*Y*(.Parentwindow.Screen.Height-188*Y)/2
End With
 
sDesc = ""
sDesc = Trim(InputBox(String(5, vbCr) & "Введите название точки восстановления:", " " & Title,,, Y))
If Trim(sDesc) <> "" Then
sOut = SRP.createrestorepoint (sDesc, 0, 100)
 
If sOut <> 0 Then
         WScript.echo "Error " & sOut & _
         ": Невозможно создать точку восстановления системы"
    Else
Set oV = CreateObject("SAPI.SpVoice")
Set oFS = CreateObject("SAPI.SpFileStream")
oFS.Open "C:\Windows\Media\Windows Unlock.wav"
oV.SpeakStream oFS
oFS.Close
 
End If
End If
End Sub

If WScript.Arguments.Count = 0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1
Else
         CreateSRP
End If
 
Sub CreateSRP
 
Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")
SRP.Enable("")
sDesc = "Чистая настроенная Система"
If Trim(sDesc) <> "" Then
sOut = SRP.createrestorepoint (sDesc, 0, 100)
If sOut <> 0 Then
         WScript.echo "Error " & sOut & _
         ": Невозможно создать точку восстановления системы"
    Else
Set oV = CreateObject("SAPI.SpVoice")
Set oFS = CreateObject("SAPI.SpFileStream")
oFS.Open "C:\Windows\Media\Windows Unlock.wav"
oV.SpeakStream oFS
oFS.Close 
 
End If
End If
End Sub