Thank you very much. The way you explained is really helpful.

Appreciated your hard work. Looking forward to learn more from you website.

Once again Thank you so much.

Regards,
Imran

Thanks for the tutorial.

I tried to run the above code in IE11 but not able to run.

I checked in internet and did the below but still not able to run.

If the code is not working –
Press F12 to open developer tools
In left toolbar scroll down until you see “Emulation” settings page
Change Document Mode from default (“Edge”) to 10
Try using the following code

Is there any settings do In need to change?

Thanks!

Ravi

Dim WSHShell, ProgFiles, Windir, strcmd1, strcmd9
Dim strcmd2, strcmd3, strcmd4, strcmd5, strcmd6, strcmd7, strcmd8

Set WSHShell = CreateObject(“WScript.Shell”)

ProgFiles = WSHShell.ExpandEnvironmentStrings(“%ProgramFiles%”)

strcmd1 = Chr(34) & ProgFiles & “\Npcap\dpinst_x64.exe” & Chr(34) & ” /s /sa”
WSHShell.run strcmd1,0,True

strcmd2 = Chr(34) & ProgFiles & “\Npcap\NPFInstall.exe” & Chr(34) & ” -n -c”
strcmd3 = Chr(34) & ProgFiles & “\Npcap\NPFInstall.exe” & Chr(34) & ” -n -iw”
strcmd4 = Chr(34) & ProgFiles & “\Npcap\NPFInstall.exe” & Chr(34) & ” -n -i”
strcmd5 = Chr(34) & ProgFiles & “\Npcap\NPFInstall.exe” & Chr(34) & ” -n -il”

WSHShell.run strcmd2,0,True
WSHShell.run strcmd3,0,True
WSHShell.run strcmd4,0,True
WSHShell.run strcmd5,0,True

strcmd6 = “sc start npcap”
strcmd7 = “sc stop npcap”
strcmd8 = “sc start npcap”
strcmd9 = “sc config npcap start= system”

WSHShell.run strcmd6,0,True
WSHShell.run strcmd7,0,True
WSHShell.run strcmd8,0,True
WSHShell.run strcmd9,0,True

Set WSHShell = nothing

WriteMessageToMsiLog(“Drivers installed successfully.”)

‘*********************************************************************
‘ Name : WriteMessageToMsiLog
‘ Description : Write a message to the msi log
‘*********************************************************************
Sub WriteMessageToMsiLog( pMessage)
Dim oLogMessageRecord
Set oLogMessageRecord = Installer.CreateRecord(1)
oLogMessageRecord.StringData(1) = “BANK – [” + CStr(Date) + “-” + CStr(Time) + “]: ” + pMessage
Session.Message &H04000000, oLogMessageRecord
End Sub

Yes.Date functions are covered in Tutorial#8.

Option Explicit

ON ERROR RESUME NEXT

‘…………………………………………………………..VBScript Coder Variables………………………………………………………………..

Dim objWshShell,objFileSys,objRegistry,objWMIService
Dim strProductCode,strScriptFileDirectory,strSystemDrive,strKeyPath,strProgramdataFolder,strValueName,strComputer,strArchitecture
Dim strAPPExists,strProgramFiles,strProgramFiles_x86,strInstallCommand,strcmd,strDesktopShrtct,strProcess,strUninstallEXE,strArgs,strUninstallCmd
Dim intInstallExitCode,intcolProcesses

Set objWshShell = WScript.CreateObject (“WScript.shell”)
Set objFileSys = WScript.CreateObject (“Scripting.FileSystemObject”)

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_CURRENT_CONFIG = &H80000005

strScriptFileDirectory = objFileSys.GetParentFolderName(wscript.ScriptFullName)
strSystemDrive = objWshShell.ExpandEnvironmentStrings(“%SystemDrive%”)
strProgramdataFolder = objWshShell.ExpandEnvironmentStrings(“%ProgramData%”)
strProgramFiles= objWshShell.ExpandEnvironmentStrings(“%ProgramFiles%”)

strComputer = “.”

Set objRegistry = GetObject(“winmgmts:\\” & strComputer & “\root\default:StdRegProv”)
strArchitecture = objWshShell.RegRead(“HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE”)
intInstallExitCode = 0

‘……………………………………………………………….Uninstall exacqVisionClient_19_06_EN……………………………………………………………

strUninstallEXE=strProgramFiles&”\exacqVision\Client\uninstall.exe”
strArgs = ” /S”
strUninstallCmd =Chr(34)&strUninstallEXE&Chr(34)&” ” & strArgs
intInstallExitCode = objWshShell.run(strUninstallCmd, 0, TRUE)

‘Delete Branding key

strcmd=”CMD /C REG DELETE “&Chr(34)&”HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Gilead\exacqVisionClient_19_06_EN”&Chr(34)&” /F”
objWshShell.Run strcmd, 0, True

‘…………………………………………………………Releasing Objects and Return Exit Code……………………………………………………..

Set objRegistry = Nothing
Set objFileSys = Nothing
Set objWshShell = Nothing
WScript.Quit intInstallExitCode

‘…………………………………………………………..VBScript Coder Variables………………………………………………………………..

Dim objWshShell,objFileSys,objRegistry,objWMIService
Dim strProductCode,strScriptFileDirectory,strSystemDrive,strKeyPath,strProgramdata,strValueName,strComputer,strArchitecture
Dim strAPPExists,strProgramFiles,strProgramFiles_x86,strInstallCommand,strcmd,strDesktopShrtct,strProcess,strPublicFolder
Dim intInstallExitCode,intcolProcesses,strInstDirectory

Set objWshShell = WScript.CreateObject (“WScript.shell”)
Set objFileSys = WScript.CreateObject (“Scripting.FileSystemObject”)

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_CURRENT_CONFIG = &H80000005

strScriptFileDirectory = objFileSys.GetParentFolderName(wscript.ScriptFullName)
strSystemDrive = objWshShell.ExpandEnvironmentStrings(“%SystemDrive%”)
strPublicFolder = objWshShell.ExpandEnvironmentStrings(“%PUBLIC%”)
strProgramdata = objWshShell.ExpandEnvironmentStrings(“%Programdata%”)
strProgramFiles=objWshShell.ExpandEnvironmentStrings(“%ProgramFiles%”)
intInstallExitCode = 0

‘………………………………………………Install exacqVisionClient_19_06_EN……………………………………………………………………………..

strInstallCommand = chr(34) & strScriptFileDirectory & “\exacqVisionClient_19.06.3.157360_x64.exe” & chr(34) & ” /S”
intInstallExitCode = objWshShell.run(strInstallCommand, 0, TRUE)

‘Adding the Audit key

strcmd=”CMD /C REG ADD “&Chr(34)&”HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Gilead\exacqVisionClient_19_06_EN”&Chr(34)&” /v ApplicationName /t REG_SZ /d exacqVisionClient_19_06_EN /F”
objWshShell.Run strcmd, 0, True
strcmd=”CMD /C REG ADD “&Chr(34)&”HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Gilead\exacqVisionClient_19_06_EN”&Chr(34)&” /v Version /t REG_SZ /d 19.06.3.157360 /F”
objWshShell.Run strcmd, 0, True
strcmd=”CMD /C REG ADD “&Chr(34)&”HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Gilead\exacqVisionClient_19_06_EN”&Chr(34)&” /v Installed /t REG_SZ /d Yes /F”
objWshShell.Run strcmd, 0, True
strcmd=”CMD /C REG ADD “&Chr(34)&”HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Gilead\exacqVisionClient_19_06_EN”&Chr(34)&” /v “&Chr(34)&”Product Code”&Chr(34)&” /t REG_SZ /d “&Chr(34)&”exacqVision Client”&Chr(34)&” /F”
objWshShell.Run strcmd, 0, True
strcmd=”CMD /C REG ADD “&Chr(34)&”HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Gilead\exacqVisionClient_19_06_EN”&Chr(34)&” /v “&Chr(34)&”Release Version”&Chr(34)&” /t REG_SZ /d 00 /F”
objWshShell.Run strcmd, 0, True
strInstDirectory=strProgramFiles&”\exacqVision”
strcmd=”CMD /C REG ADD “&Chr(34)&”HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Gilead\exacqVisionClient_19_06_EN”&Chr(34)&” /v InstallLocation /t REG_SZ /d “&Chr(34)&strInstDirectory&chr(34)&” /F”
objWshShell.Run strcmd, 0, True

strcmd=”CMD /C REG ADD “&Chr(34)&”HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Gilead\exacqVisionClient_19_06_EN”&Chr(34)&” /v “&Chr(34)&”Install Date”&Chr(34)&” /t REG_SZ /d “&Date()&” /F”
objWshShell.Run strcmd, 0, True

‘deleting unwanted shortcuts

If objFileSys.FileExists(strProgramdata & “\Microsoft\Windows\Start Menu\Programs\exacqVision Client\exacqVision Client Help.lnk”) Then
objFileSys.DeleteFile(strProgramdata & “\Microsoft\Windows\Start Menu\Programs\exacqVision Client\exacqVision Client Help.lnk”)

End IF

If objFileSys.FileExists(strProgramdata & “\Microsoft\Windows\Start Menu\Programs\exacqVision Client\Uninstall.lnk”) Then
objFileSys.DeleteFile(strProgramdata & “\Microsoft\Windows\Start Menu\Programs\exacqVision Client\Uninstall.lnk”)

End IF

If objFileSys.FileExists(strProgramdata & “\Microsoft\Windows\Start Menu\Programs\exacqVision Client\Visit Exacq Technologies online.lnk”) Then
objFileSys.DeleteFile(strProgramdata & “\Microsoft\Windows\Start Menu\Programs\exacqVision Client\Visit Exacq Technologies online.lnk”)

End IF

If objFileSys.FileExists(strPublicFolder & “\Desktop\exacqVision.lnk”) Then
objFileSys.DeleteFile(strPublicFolder & “\Desktop\exacqVision.lnk”)

End IF

‘Disabling Uninstall button in ARP

‘strcmd=”CMD /C REG ADD “&Chr(34)&”HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\exacqVision Client”&Chr(34)&” /v NoRemove /t REG_DWORD /d 1 /F”
‘objWshShell.Run strcmd, 0, True
objWshShell.RegDelete “HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\exacqVision Client\URLInfoAbout”
objWshShell.RegDelete “HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\exacqVision Client\HelpLink”

objWshShell.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\exacqVision Client\Publisher”,”Gilead”,”REG_SZ”

‘……………………………………………………….Releasing Objects and Return Exit Code………………………………………………………

Set objRegistry = Nothing
Set objFileSys = Nothing
Set objWshShell = Nothing
WScript.Quit intInstallExitCode

SUB PROCEDURE in VBScript can take input parameters.