Mi idea es buscar en el registro una cosa y si no está crearla
If
(busco valor en el registro (en sys32), que no se como y si no está) then
Dim registro
'...
Set registro = CreateObject("WScript.Shell")
registro.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "asd", "C:\Windows\System32\asd.swf"
Saludos y Gracias