Help on VBS program

Try this:

If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """" &_
" RunAsAdministrator", , "runas", 1
else
CONST DEVICE_DRIVER_INSTALL = 10
CONST BEGIN_SYSTEM_CHANGE = 100

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default")

Set objItem = objWMIService.Get("SystemRestore")
errResults = objItem.CreateRestorePoint _
("12 hr restore point", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)
End If

Copy and paste just the way it is,

--
Paul's XP and Vista Tweaks
---------------------------------------
www.paulsxp.com

Paul's XP and Vista Help Forum
--------------------------------------------
www.paulsxp.com/forum

Live Support
------------------
www.paulsxp.com/livesupport.html

"RScotti" <> wrote in message
news:...
> Hi,
> I had a vbs program that I used for System Restore every 12 hours but it
> does work any more I get an error massage .
> Says Script: C:SR.vbs
> Line: 18
> Char: 5
> Error: Expected end of statement
> Source: Microsoft VBScript compilation error.
>
> Here is the script:
>
> ' Create a System Restore Point
>
> ' Windows Server 2003 : No
> ' Windows XP : Yes
> ' Windows 2000 : No
> ' Windows NT 4.0 : No
> ' Windows 98 : No
>
> CONST DEVICE_DRIVER_INSTALL = 10
> CONST BEGIN_SYSTEM_CHANGE = 100
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer &
> "\root\default")
>
> Set objItem = objWMIService.Get("SystemRestore")
> errResults = objItem.CreateRestorePoint _
> "12 hr restore point", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)
>
>
> This was for originally Windows XP I can't find line 18????
>
> Maybe you guys know one for Vista Ultimate SP1?
> --
> Have a good day,
> RScotti
>
> remove "nospam" in order to email me.
>

--myrestore.vbs--
set SysResPoint = getobject("winmgmts:\\.\root\default:Systemrestore ")
CSRP = SysResPoint.createrestorepoint (" test", 0, 100)
--end file-
Use a scheduled task to run this script.

--
Please use the Communities guidelines when posting.
http://www.microsoft.com/wn3/locales...help_en-us.htm
Use the "Ratings" feature. It helps the new users.
Mark L. Ferguson MS-MVP
https://mvp.support.microsoft.com/profile/Mark.Ferguson

"RScotti" <> wrote in message
news:...
> Hi,
> I had a vbs program that I used for System Restore every 12 hours but it
> does work any more I get an error massage .
> Says Script: C:SR.vbs
> Line: 18
> Char: 5
> Error: Expected end of statement
> Source: Microsoft VBScript compilation error.
>
> Here is the script:
>
> ' Create a System Restore Point
>
> ' Windows Server 2003 : No
> ' Windows XP : Yes
> ' Windows 2000 : No
> ' Windows NT 4.0 : No
> ' Windows 98 : No
>
> CONST DEVICE_DRIVER_INSTALL = 10
> CONST BEGIN_SYSTEM_CHANGE = 100
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer &
> "\root\default")
>
> Set objItem = objWMIService.Get("SystemRestore")
> errResults = objItem.CreateRestorePoint _
> "12 hr restore point", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)
>
>
> This was for originally Windows XP I can't find line 18????
>
> Maybe you guys know one for Vista Ultimate SP1?
> --
> Have a good day,
> RScotti
>
> remove "nospam" in order to email me.
>

You are Welcome.

--
Paul's XP and Vista Tweaks
---------------------------------------
www.paulsxp.com

Paul's XP and Vista Help Forum
--------------------------------------------
www.paulsxp.com/forum

Live Support
------------------
www.paulsxp.com/livesupport.html

"RScotti" <> wrote in message
news:...
>
>
> PaulM,
> Thank you very much. it works! Will see if it works from Task Schedule
> tonight?
> Thanks again.
>
>
> On Sat, 15 Nov 2008 13:11:22 -0500, "PaulM" <> wrote:
>
>>Try this:
>>
>>If WScript.Arguments.length =0 Then
>>Set objShell = CreateObject("Shell.Application")
>>objShell.ShellExecute "wscript.exe", """" & _
>>WScript.ScriptFullName & """" &_
>> " RunAsAdministrator", , "runas", 1
>>else
>>CONST DEVICE_DRIVER_INSTALL = 10
>>CONST BEGIN_SYSTEM_CHANGE = 100
>>
>>strComputer = "."
>>Set objWMIService = GetObject("winmgmts:" _
>> & "{impersonationLevel=impersonate}!\\" & strComputer &
>> "\root\default")
>>
>>Set objItem = objWMIService.Get("SystemRestore")
>>errResults = objItem.CreateRestorePoint _
>> ("12 hr restore point", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)
>>End If
>>
>>Copy and paste just the way it is,
> --
> Have a good day,
> RScotti
>
> remove "nospam" in order to email me.
>

RScotti <> wrote:
>
> Hi,
> I had a vbs program that I used for System Restore every 12 hours but it
> does work any more I get an error massage . Says Script: C:SR.vbs
> Line: 18
> Char: 5
> Error: Expected end of statement
> Source: Microsoft VBScript compilation error.
>
> Here is the script:
>
> ' Create a System Restore Point
>
> ' Windows Server 2003 : No
> ' Windows XP : Yes
> ' Windows 2000 : No
> ' Windows NT 4.0 : No
> ' Windows 98 : No
>
> CONST DEVICE_DRIVER_INSTALL = 10
> CONST BEGIN_SYSTEM_CHANGE = 100
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer &
> "\root\default")
>
> Set objItem = objWMIService.Get("SystemRestore")
> errResults = objItem.CreateRestorePoint _
> "12 hr restore point", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)
>
>
> This was for originally Windows XP I can't find line 18????
>
> Maybe you guys know one for Vista Ultimate SP1?

You also need help on sorting out your system time/date/timezone.

ss.

Synapse,
If you would please read my message two lines up from yours. You would see I already did that.
You should READ at all the reply's before making a false statement. Than you will know what your talking about!

On Sat, 15 Nov 2008 23:48:51 -0500, RScotti <> wrote:

>Sorry, I just noticed my time was off by 24 hours.
>
>



On Sun, 16 Nov 2008 05:13:26 -0000, "Synapse Syndrome" <> wrote:

>RScotti <> wrote:
>>
>> Hi,
>> I had a vbs program that I used for System Restore every 12 hours but it
>> does work any more I get an error massage . Says Script: C:SR.vbs
>> Line: 18
>> Char: 5
>> Error: Expected end of statement
>> Source: Microsoft VBScript compilation error.
>>
>> Here is the script:
>>
>> ' Create a System Restore Point
>>
>> ' Windows Server 2003 : No
>> ' Windows XP : Yes
>> ' Windows 2000 : No
>> ' Windows NT 4.0 : No
>> ' Windows 98 : No
>>
>> CONST DEVICE_DRIVER_INSTALL = 10
>> CONST BEGIN_SYSTEM_CHANGE = 100
>>
>> strComputer = "."
>> Set objWMIService = GetObject("winmgmts:" _
>> & "{impersonationLevel=impersonate}!\\" & strComputer &
>> "\root\default")
>>
>> Set objItem = objWMIService.Get("SystemRestore")
>> errResults = objItem.CreateRestorePoint _
>> "12 hr restore point", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)
>>
>>
>> This was for originally Windows XP I can't find line 18????
>>
>> Maybe you guys know one for Vista Ultimate SP1?
>
>You also need help on sorting out your system time/date/timezone.
>
>ss.
>
--
Have a good day,
RScotti

remove "nospam" in order to email me.

RScotti <> wrote:
>
> Synapse,
> If you would please read my message two lines up from yours. You would
> see I already did that. You should READ at all the reply's before making
> a false statement. Than you will know what your talking about!


Whadda Mistaka Da Maka!

ss.

Hi,
I had a vbs program that I used for System Restore every 12 hours but it does work any more I get an error massage .
Says Script: C:SR.vbs
Line: 18
Char: 5
Error: Expected end of statement
Source: Microsoft VBScript compilation error.

Here is the script:

' Create a System Restore Point

' Windows Server 2003 : No
' Windows XP : Yes
' Windows 2000 : No
' Windows NT 4.0 : No
' Windows 98 : No

CONST DEVICE_DRIVER_INSTALL = 10
CONST BEGIN_SYSTEM_CHANGE = 100

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default")

Set objItem = objWMIService.Get("SystemRestore")
errResults = objItem.CreateRestorePoint _
"12 hr restore point", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)


This was for originally Windows XP I can't find line 18????

Maybe you guys know one for Vista Ultimate SP1?
--
Have a good day,
RScotti

remove "nospam" in order to email me.

PaulM,
Thank you very much. it works! Will see if it works from Task Schedule tonight?
Thanks again.


On Sat, 15 Nov 2008 13:11:22 -0500, "PaulM" <> wrote:

>Try this:
>
>If WScript.Arguments.length =0 Then
>Set objShell = CreateObject("Shell.Application")
>objShell.ShellExecute "wscript.exe", """" & _
>WScript.ScriptFullName & """" &_
> " RunAsAdministrator", , "runas", 1
>else
>CONST DEVICE_DRIVER_INSTALL = 10
>CONST BEGIN_SYSTEM_CHANGE = 100
>
>strComputer = "."
>Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default")
>
>Set objItem = objWMIService.Get("SystemRestore")
>errResults = objItem.CreateRestorePoint _
> ("12 hr restore point", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)
>End If
>
>Copy and paste just the way it is,
--
Have a good day,
RScotti

remove "nospam" in order to email me.

Hi Mark,
That's good also and it's shorter!
Thanks




On Sat, 15 Nov 2008 16:13:31 -0600, "Mark L. Ferguson" <> wrote:

>--myrestore.vbs--
>set SysResPoint = getobject("winmgmts:\\.\root\default:Systemrestore ")
>CSRP = SysResPoint.createrestorepoint (" test", 0, 100)
>--end file-
>Use a scheduled task to run this script.
--
Have a good day,
RScotti

remove "nospam" in order to email me.

Take care of your self everybody is human and makes mistakes.

On Sun, 16 Nov 2008 15:11:09 -0000, "Synapse Syndrome" <> wrote:

>RScotti <> wrote:
>>
>> Synapse,
>> If you would please read my message two lines up from yours. You would
>> see I already did that. You should READ at all the reply's before making
>> a false statement. Than you will know what your talking about!
>
>
>Whadda Mistaka Da Maka!
>
>ss.
>
--
Have a good day,
RScotti

remove "nospam" in order to email me.