48 lines
1.2 KiB
Plaintext
48 lines
1.2 KiB
Plaintext
Set Args = wscript.Arguments
|
|
Set regSR = GetObject("winmgmts:{impersonationLevel=impersonate}!root/default:SystemRestoreConfig='SR'")
|
|
|
|
If Args.Count() = 0 Then
|
|
Wscript.Echo "Usage: RegSR [RP{Session|Global|Life}Interval[=value]] [DiskPercent[=value]]"
|
|
Else
|
|
For i = 0 To Args.Count() - 1
|
|
Myarg = Args.Item(i)
|
|
Pos = InStr(Myarg, "=")
|
|
If Pos <> 0 Then
|
|
Myarray = Split(Myarg, "=", -1, 1)
|
|
myoption = Myarray(0)
|
|
value = Myarray(1)
|
|
Else
|
|
myoption = Myarg
|
|
End If
|
|
If myoption = "RPSessionInterval" Then
|
|
If Pos = 0 Then
|
|
Wscript.Echo "RPSessionInterval = " & regSR.RPSessionInterval
|
|
Else
|
|
regSR.RPSessionInterval = value
|
|
regSR.Put_
|
|
End If
|
|
ElseIf myoption = "RPGlobalInterval" Then
|
|
If Pos = 0 Then
|
|
Wscript.Echo "RPGlobalInterval = " & regSR.RPGlobalInterval
|
|
Else
|
|
regSR.RPGlobalInterval = value
|
|
regSR.Put_
|
|
End If
|
|
ElseIf myoption = "RPLifeInterval" Then
|
|
If Pos = 0 Then
|
|
Wscript.Echo "RPLifeInterval = " & regSR.RPLifeInterval
|
|
Else
|
|
regSR.RPLifeInterval = value
|
|
regSR.Put_
|
|
End If
|
|
ElseIf myoption = "DiskPercent" Then
|
|
If Pos = 0 Then
|
|
Wscript.Echo "DiskPercent = " & regSR.DiskPercent
|
|
Else
|
|
regSR.DiskPercent = value
|
|
regSR.Put_
|
|
End If
|
|
End If
|
|
Next
|
|
End If
|