criar Pasta no menu iniciar e copiar atalhos

Para criar Pasta no menu iniciar e copiar atalhos:
Dim fso, f
'creating folder on \start programs'
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("C:\Documents and Settings\Winlab\Menu Iniciar\Programas\Teste00")
fso.CopyFile "\\serverfile\Padroes\Atalhos\Notepad.lnk" , "C:\Documents and Settings\Winlab\Menu Iniciar\Programas\Teste00\", OverwriteExisting
fso.CopyFile "\\serverfile\Padroes\Atalhos\Paint.lnk" , "C:\Documents and Settings\Winlab\Menu Iniciar\Programas\Teste00\", OverwriteExisting
fso.CopyFile "\\serverfile\Padroes\Atalhos\Windows Explorer.lnk" , "C:\Documents and Settings\Winlab\Menu Iniciar\Programas\Teste00\", OverwriteExisting
fso.CopyFile "\\serverfile\Padroes\Internet Explorer.lnk" , "C:\Documents and Settings\Winlab\Menu Iniciar\Programas\Teste00\", OverwriteExisting
CreateFolderDemo = f.Path
set wshshell=createobject("wscript.shell")