Proces beëindigen en variabele opslaan en "lezen" in vbs??

[bart2jes]

Hallo allemaal,
Ik heb twee vragen waar ik op internet geen antwoord op kon vinden (het gaat 2 maal om vbs taal).
Allereerst probeer ik al een tijdje iets te maken waarmee je een proces kunt beëindigen. Dat wil op zich zelf nog wel lukken, maar als ik het probeer met behulp van een inputbox, dus dat je bijv. gnotify.exe intypt en dat hij dat dan beëindigd, dat wil nog niet lukken. Ik krijg deze foutmelding als ik het proces dat ik wil beëindigen heb ingetypt:
Regel: 9
Teken: 1
Fout: 0x80041017
Code: 80041017
Bron: (null)
Dit is het script dat ik gebruik:

Dim strProces
strProces = Inputbox ("Voer proces in.")
strComputer = "."
MsgBox strProces
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = strProces")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next

Deze code werkt wel als je de inputbox en de Dim weglaat en strProces vervangt voor een proces tussen 'deze' tekens.

Mijn tweede vraag is deze: hoe kan ik in vbs een opgeslagen tekstbestand openen om vervolgens elke regel apart of samen in een msgbox te laten zien?? Op internet kon ik alleen VB scripten vinden, geen VBS...

Alvast bedankt voor jullie hulp!!

 

[That Guy]

probeer deze site eens voor je 2e probleem:
http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/other/textfiles/

1e weet ik helaas niet.

 

[bart2jes]

Je hebt met je tip inderdaad mijn tweede probleem opgelost... BEDANKT:thumb::thumb::thumb:
Maar mijn eerste probleem is er nog.... heeft iemand suggesties???

 

[ReneDirks]

("Select * from Win32_Process Where Name = strProces")

Dat kan sowieso niet goed gaan, tenzij je een process hebt met de naam strProces..
Verander het eens in:

 ("Select * from Win32_Process Where Name = '" & strProces & "'")

 

[bart2jes]

Dat kan sowieso niet goed gaan, tenzij je een process hebt met de naam strProces..
Verander het eens in:

 ("Select * from Win32_Process Where Name = '" & strProces & "'")

GOUDEN TIP!! bedankt, het werkt nu wel...:thumb::thumb::thumb:
Allemaal harstikke bedankt voor jullie hulp!!!!

 

[That Guy]

no problemo, kan je de vraag op "opgelost" zetten?

 

[bart2jes]

Gedaan...