Vraag : Hoe te om het programma van vbsmanuscript in werking te stellen

Hello,/>I behoefte
s.exe "
Thanks voor uw help. begon

" codeBody "

1: 2: 3: 4: 5: 6: 7: 8: 9: 10:

Dim WSHShell, RegKey, rKeyWord, Resultaat Vastgestelde WSHShell = CreateObject („WScript.Shell“) RegKey = „HKEY_LOCAL_MACHINE \ het Bureau \ 12.0 \ MOC van de SOFTWARE \ Microsoft \“ Op Fout hervat daarna de 'Registratie sleutel bestaat niet rKeyWord = WSHShell.RegRead (RegKey & „ProductName“) 'maar als het het leest Als rKeyWord = het „Pak van de Verenigbaarheid voor het systeem van het Bureau van 2007“ toen MsgBox het „Pak van de Verenigbaarheid voor het geïnstalleerdem systeem van het Bureau van 2007 -“ Anders MsgBox het „Pak van de Verenigbaarheid voor het geïnstalleerdea niet systeem van het Bureau van 2007 -“ Eind als

Antwoord : Hoe te om het programma van vbsmanuscript in werking te stellen

Oops.  Met een bepaalde bedoeling kleefde de nieuwe code niet.  Hier is het.

HTH,
exx

1: 2: 3: 4: 5: 6: 7: 8: 9: 10:

Vastgestelde WSHShell = CreateObject („WScript.Shell“) RegKey = „HKEY_LOCAL_MACHINE \ het Bureau \ 12.0 \ MOC van de SOFTWARE \ Microsoft \“ Op Fout hervat daarna de 'Registratie sleutel bestaat niet rKeyWord = WSHShell.RegRead (RegKey & „ProductName“) 'maar als het het leest Als rKeyWord = het „Pak van de Verenigbaarheid voor het systeem van het Bureau van 2007“ toen MsgBox het „Pak van de Verenigbaarheid voor het geïnstalleerdem systeem van het Bureau van 2007 -“ Anders MsgBox het „Pak van de Verenigbaarheid voor het geïnstalleerdea niet systeem van het Bureau van 2007 -“ WSHShell.Run („c:\Windows\System32\notepad.exe“) Eind als