RunOnce vbscript

Hey,

I am in need of an vbscript that can help me execute a .exe once.. i've tryed to do this:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\ccleaner","C:\ccleaner.bat","REG_SZ"

I am trying to execute this code ^ via a cmd prompt (cscript runonce.vbs) because i saved this code ^ in a text editor as runonce.vbs

And i have the ccleaner (which i think most of you know about) saved as a .bat on C:\, it simply says:

"C:\WINDOWS\folder\CCleaner.exe" /auto

The /AUTO is a command prompt that execute's ccleaner automatically without user interaction

So now i only need to have this running via the runonce

I hope you guys get it, and can help me out,

Thanks!