Source code of Windows XP (NT5)
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.
 
 
 
 
 
 

47 lines
1.2 KiB

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