.vbs dingen sluiten

[m4dc0w344]

hoi
ik heb een vraagje (wel raar op deze forum maar tog :3)
ik weet nu hoe ik dingen moet open maar nu komt het hoe moet ik die dingen sluiten


m4dc0w344 scriptkidy

 

[wampier]

Dit is van de basic website, nooit zelf getest

Dim strComputer, strProcessToKill, objWMIService, colProcess, objProcess
 
strComputer = "."
strProcessToKill = "notepad.exe"
Set objWMIService = GetObject("winmgmts:" _ 
   & "{impersonationLevel=impersonate}!\\" _ 
   & strComputer _ 
   & "\root\cimv2") 
Set colProcess = objWMIService.ExecQuery _
   ("Select * from Win32_Process Where Name = '" & strProcessToKill & "'")
For Each objProcess in colProcess
   msgbox "... terminating " & objProcess.Name
   objProcess.Terminate()
Next

 

[m4dc0w344]

werkt niet ik heb het nodig om pagina's of heel google chrome en ie enzo aftesluiten

 

[wampier]

wat werkt er niet dan? dit komt direct van microsoft, dus ik heb wel meer nodig dan "Werkt niet" om er verder wat mee te kunnen

 

[m4dc0w344]

ik weet neti zker of dit wel vbs is maar ik zie dat het allen werkt voor notepad.exe ik weet dat je dat kan verandere maar ik wil dat het allen die pagina's sluit wnat ik wil dat het op elke internetwebbrowser(als ik het goed ehb gespelt) werkt
en zoals ik al zij het lijkt neit egt op vbs misschien ben je in de war vb

 

[wampier]

Nee hoor, komt van de VBS reference library van microsoft. Laat er maar eens een googletje op los. De procedure aanpassen naar verschillende browsers kost nog geen 5 minuten, maar blijkbaar wil je er zelf geen tijd in stoppen, anders had je dat al zelf gevonden

 

[m4dc0w344]

ja het werkt maar hij zegt wanner ie klaar is telkens van niet gevonden

 

[JoZ1]

Bij mij werkt 't gewoon .

Wat is je huidige code?