/build/static/layout/Breadcrumb_cap_w.png
10/15/2018 234 views
i tried like this, but it is wrong


'Option Explicit
On Error Resume Next

'**************Declaration*********************************
Dim sCurrentDir,  strFolder, wshell, sysDir, objEnv, strLogName, regValPath,regValPath1
Dim colProcessList, objWMIService, oShell, strLogPath, strRC, strCmd, strDwordName, dwValue, strDwordName1, dwValue1
Dim oArgs, arrSubKeys(), blnChkInstall, objLogFile, strLogName1, objLogFile1
Dim objFSO,strComputer,oReg, MainKey, subkey, strKeyPath, strValueName,strValue


Set oShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oArgs = WScript.Arguments
Set wshell = CreateObject("WScript.Shell")
Set objEnv = oShell.Environment("PROCESS")
sysDir = wshell.ExpandEnvironmentStrings("%SYSTEMDRIVE%")

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

const HKEY_LOCAL_MACHINE = &H80000002
const sPackageName = "Microsoft_WMF_5.1_P1.0"
Const strDispName = "WMF 5.1"
Const strDispVer = "5.1"
Const strProdCode = "{3B7E914A-93D5-4A29-92BB-AF8C3F66C431}"
Const strLogFile = "Microsoft_WMF_5.1_P1.0_EXEinstall.log"

'********************************************************************************************
' ----------------------------------------------------------------------------------------------------------------
' CASE "install" **** Install main application silently ****
' ----------------------------------------------------------------------------------------------------------------
Case "install"
'-- Install application silently --
            Log "Starting install log of Package: " & sPackageName
             
Log "Continuing with the installation of WMF 5.1...."
Call (oShell.Run("wusa.exe""" & sCurrentDir & "Win7AndW2K8R2-KB3191566-x64.msu" & """" & " /quiet /norestart /l*v " & sysDir & "\bc_logs\Microsoft_WMF_5.1_P1.0_install.log",1,True))


Log "Calling CheckVersion WMF 5.1 sub."
CheckVersion strProdCode,strDispName,strDispVer,blnInstalled
Log "Ending CheckVersion WMF 5.1 sub."
 
 If blnInstalled Then
 Log sPackageName & " Installed successfully."
 WScript.Quit(0)
 Else
 Log sPackageName & " Failed to install on this machine."
 WScript.Quit(911)
 End If 
 
End If
End If
' ----------------------------------------------------------------------------------------------------------------
' CASE "Uninstall" **** UnInstall main application silently ****
' ----------------------------------------------------------------------------------------------------------------

Case "uninstall"
OShell.Run "wuse.exe /KB3191566" & " /uninstall /quiet /norestart /l*v " & sysDir & "\bc_logs\Microsoft_WMF_5.1_P1.0_uninstall.log"

' ----------------------------------------------------------------------------------------------------------------
' CASE "OTHER THAN INSTALL/UNINSTALL **** No action required ****
' ----------------------------------------------------------------------------------------------------------------

Case Else
WScript.Quit
End Select

Else
WScript.Quit
End If

1 Comment   [ + ] Show comment

Comments

  • I need an answear too

There are no answers at this time