[VBS] Snelkoppeling starten met .vbs

[Verwijderd]

Ik probeer om mn snelkoppelingen in een html bestandje te verwerken en dat dan als achtergrond te nemen. Dat lukt allemaal prima. Die html roept een .vbs bestand aan en die .vbs linkt dan weer door naar de .lnk die in dezelfde map staat.

de code die ik gebruik is:

Dim oShell
Set oShell = WScript.CreateObject ("WScript.shell")
oShell.run "Messenger"
Set oShell = Nothing

die linkt dus naar een .lnk die in dezelfde map staat. dit werkt met een aantal koppelingen perfect ( mijn documenten, deze computer, favorieten, enz)
maar als ik zo een programma (bv. messenger) wil starten gaat dat niet, dan zit er iets fout in de koppeling tussen de .vbs en de .lnk. ik krijg niks van een foutmelding ofzo, het werkt gewoon niet.

wie o wie weet het antwoord

dit topic heb ik gelezen, maar ook dat bood geen uitkomst

[ Voor 10% gewijzigd door Verwijderd op 24-01-2004 09:48 ]

[Verwijderd]

toch maar ff een schopje plaatsen. is er niemand die weet wat ik fout doe?

[reussue]

Misschien moet je er ff .lnk achter zetten, dus Messenger.lnk

[Verwijderd]

helaas , dat werkt ook nie, k heb ook maar meteen geprobeerd met het volledige pad, dus C:\windows\messenger.lnk, maar ook dat werkt niet

[ Voor 4% gewijzigd door Verwijderd op 25-01-2004 13:08 ]

[Swerfer]

Probeer dit eens:

oShell.run "start Messenger.lnk"

[ Voor 18% gewijzigd door Swerfer op 25-01-2004 13:14 ]

[Verwijderd]

helaas, k krijg dan deze foutmelding

Windows Script Host

Script: C:\WINDOWS\Messenger.lnk
Regel: 3
Teken: 1
Fout: Het systeem kan het opgegeven bestand niet vinden.

Code: 80070002
Bron: (null)

[Verwijderd]

Als ik dit script op mijn desktop zet en daar ook een link heb staan naar "C:\Program Files\Messenger\msmsgs.exe" met als naam Messenger dan werkt jouw code gewoon bij mij.
Als de link echter Windows Messenger heet (dus met een spatie) dan is er een aanpassing nodig. Je kan proberen of dat bij jou ook werkt:

code:

Dim oShell
Set oShell = WScript.CreateObject ("WScript.shell")
q=chr(34)
oshell.run(q & "windows messenger" &q)
Set oShell = Nothing

[Verwijderd]

bedankt voor de sugestie, maar ook dat werkt helaas niet. t valt me wel op dat de link alleen niet werkt met programma's als ik deze computer via zo'n link open werkt dat wel. vreemd!

[BtM909]

Heb je wat aan dit document?

http://msdn.microsoft.com...sconmanagingshortcuts.asp

[Verwijderd]

Even voor de zekerheid: gebruik je een virusscanner en zoja werkt een script met het run commando wel als je scanner (of de optie vbs scripts scannen) uit staat?

[Verwijderd]

@BtM909 k zal die link dalijk eens even goed doorlezen

@Remark nee ik gebruik geen virusscanner dus daar kan het niet aan liggen

[Verwijderd]

BtM909 schreef op 26 januari 2004 @ 14:57:
Heb je wat aan dit document?

http://msdn.microsoft.com...sconmanagingshortcuts.asp

dr staat wel veel informatie dus daar heb k wel wat aan, maar t geeft geen oplossing voor mijn probleem

[Verwijderd]

Tja lastig, bij mij werkt je script dus prima om bijv. de windows messenger link (en andere .lnk files) te starten.
Nog een testje: werkt deze opdracht om de rekenmachine te starten wel?
oshell.run("calc")
Kijk ook eens wat er in je register staat bij onderstaande key achter Default. Bij mij is dat bijv.
HKEY_CLASSES_ROOT\VBSFile\Shell\Open\Command
(Default) REG_EXPAND_SZ %SystemRoot%\System32\WScript.exe "%1" %*

[Verwijderd]

ik zie nu trouwens wat vreemds in een eerdere post van je. Je hebt hieronder (als die informatie die je overtypte klopt) je script Messenger.lnk genoemd. Dat werkt natuurlijk niet een vbs script moet eindigen op .vbs dus dan noem je het bijv. startmessenger.vbs
Ik zou om te testen ook niet het script dezelfde naam geven als de link die het moet starten.

Verwijderd schreef op 25 januari 2004 @ 16:16:
helaas, k krijg dan deze foutmelding

Windows Script Host

Script: C:\WINDOWS\Messenger.lnk
Regel: 3
Teken: 1
Fout: Het systeem kan het opgegeven bestand niet vinden.

Code: 80070002
Bron: (null)

[Verwijderd]

- als ik de rekenmachine start werkt het wel, net als met kladblok, maar met
andere links dus nog niet.
- in mijn register staat precies het zelfde als bij jou.
- srry typfoutje die foutmelding moet natuurlijk op .vbs eindigen. dat had k fout
overgenomen.

[Verwijderd]

Het schijnt dat als links gemaakt zijn door de MSI installer er problemen zijn met oShell.run. Je zou evt. zelf een nieuwe link kunnen maken voor Messenger en kijken of die wel werkt.
Hier nog wat info:
http://groups.google.com/...26oe%3DUTF-8%26safe%3Doff

In plaats van oShell.Run kan je ook oShell.ShellExecute gaan gebruiken (W2K/XP) dat schijnt wel te werken.
http://msdn.microsoft.com...ispatch2/shellexecute.asp

[Verwijderd]

Als ik het met oShell.ShellExecute probeer krijg ik de fout dat het niet ondersteund wordt.
wat me wel opgevallen is is dat de .vbs links het prima doen als ze bij het programma zelf in de map staan.

[Verwijderd]

Dus:

code:

Dim oShell
set oShell = CreateObject("Shell.Application")
oShell.ShellExecute "messenger", "", "", "open", 1
Set oShell = Nothing

Werkt ook niet (en je gebruikt W2K of XP) ?
(let op: de CreateObject code is ook anders als bij oShell.Run)
Een zelf gemaakte link voor "C:\Program Files\Messenger\msmsgs.exe" werkt ook niet met je script ?

[Verwijderd]

hehe eindelijk doettie het, met deze code

Dim oShell
set oShell = CreateObject("Shell.Application")
oShell.ShellExecute "C:\Program Files\MSN Messenger\msnmsgr.exe", "", "", "open", 1
Set oShell = Nothing

jullie allemaal bedankt he