Software Deployment

move the bginfo cmd from the all users start menu (C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup) to just the admins start menu (C:\Users\...\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup).

'========================================================================================
' BGinfo Installation Script
'========================================================================================
'
' Script Details:
' --------------
' This script copies the BGinfo files to the C:\bginfo folder and sets the run registry key
'========================================================================================
Option Explicit

'Declare Variables and constants
Dim objShell, objFSO, intErrorCode

'Create objects
Set objShell = CreateObject("WScript.Shell")
Set objFSO = createobject("scripting.filesystemobject")

'========================================================================================
'Main body
'========================================================================================
On Error Resume Next



'Create the c:\bginfo folder
If not objFSO.FolderExists("C:\bginfo") Then
objFSO.CreateFolder("C:\bginfo")
End If



'Copy the bginfo files
intErrorCode = intErrorCode + objFSO.CopyFile(objShell.CurrentDirectory & "\Bginfo.exe", "C:\bginfo\")
intErrorCode = intErrorCode + objFSO.CopyFile(objShell.CurrentDirectory & "\wstat.bgi", "C:\bginfo\")

'Add the bginfo shortcut to the run registry key
intErrorCode = intErrorCode + objshell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\bginfo", "C:\bginfo\Bginfo.exe /accepteula /ic:\bginfo\wstat.bgi /timer:0", "REG_SZ")

objShell.Run "C:\bginfo\Bginfo.exe /accepteula /ic:\bginfo\wstat.bgi /timer:0"

'Cleanup
Set objShell = Nothing
Set objFSO = Nothing

'return errorcode for install to SCCM
WScript.Quit(intErrorCode)
'=================================================================================

What or where i need to change?