Can Any one please help me out this. i can run this command but Message pops up 'Yes' or 'No' in Command line. How i can pass through this in command line silently. I need this to put in SCCM Task sequence.
Option Explicit
' Connect to Windows Installer object
' on error resume required for registry HKLM write check (isAdmin)
On Error Resume Next
Const ERROR_INSTALL_USEREXIT = 1602
Const ERROR_INSTALL_FAILURE = 1603
Const ReferencePublisher = "APL Sector"
Dim installer : installer = ""
Dim isAdmin
Dim isSilent: isSilent = True
Dim noPrompt: noPrompt = False
Dim bLocalOnly: bLocalOnly = False 'set to false with parameter /local
Set installer = Wscript.CreateObject("WindowsInstaller.Installer") : CheckError
Dim WshShell : Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim argCount:argCount = Wscript.Arguments.Count
If (argCount > 0) Then
If (StrComp(WScript.Arguments(0),"/verbose",vbTextCompare) = 0) Then
isSilent = False
ElseIf (StrComp(WScript.Arguments(0),"/noPrompt",vbTextCompare) = 0) Then
noPrompt = True
Else If (StrComp(WScript.Arguments(0),"/local",vbTextCompare) = 0) Then
bLocalOnly = True
Else
WScript.Echo "Script removes all APL products installed in" & vbLf &_
"APL directory of local user profile" & vbLf &_
"and 32 bit client from %Program Files%"
WScript.Quit 0
End If
End If
End If
Dim product, products, version, ProductName, InstallLocation, RunCmd, InstallDir, Publisher
Dim ReturnStatus: ReturnStatus = 0
Dim LocalSetting, AppData, OSVersion
Dim ProgramFiles, ProgramFilesx86 : ProgramFilesx86 = Empty
Dim bfound : bfound = False
Dim bAdminRequired : bAdminRequired = False
Dim bCleanUp : bCleanup = True 'set to false if other products found in %ProgramFiles%
Dim UninstProducts(64,5) 'product, ProductName,Version, InstallLocation
Dim index: index = 0 'index for UninstProducts
Dim LocalProducts: LocalProducts = 0
Dim APLInstallFolder
APLInstallFolder = Left(WScript.ScriptFullname,InStr(1,WScript.ScriptFullname,"\Setup\" & WScript.ScriptName,vbTextCompare))
'Show "Uninstall complete APL RTC",2
Show ">>> Start removing client at " & Now,0
Show "Computername: " + WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%"),0
Show "User: " + WshShell.ExpandEnvironmentStrings("%USERNAME%"),0
OSVersion = WshShell.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
Show "OS version " + OSVersion,0
If InStr (1,OSVersion, "6.",vbTextCompare) > 0 Then
Rem registry key AppData used for NT 5.x does not exist any longer at least not on Server 2008 SP1
Rem NT 6.0 does not localize "Local Settings" in file system (explorer only)
LocalSetting = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Rem if CHARM 134372 is solved
Rem LocalSetting = WshShell.ExpandEnvironmentStrings("%USERPROFILE%") + "\AppData\Local"
Rem directory Apps is used by AT boot strapper currently, even on NT 6
AppData = LocalSetting + "\AppData\Local"
Else
LocalSetting = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Local Settings")
AppData = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Local AppData")
End If
ProgramFiles = WshShell.ExpandEnvironmentStrings("%ProgramFiles%")
ProgramFilesx86 = WshShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")
If (ProgramFilesx86 = "%ProgramFiles(x86)%") Then
Rem environemnt not set -> 32 bit OS
ProgramFilesx86 = Empty
Dim product, products, version, ProductName, InstallLocation, RunCmd, InstallDir, Publisher
Dim ReturnStatus: ReturnStatus = 0
Dim LocalSetting, AppData, OSVersion
Dim ProgramFiles, ProgramFilesx86 : ProgramFilesx86 = Empty
Dim bfound : bfound = False
Dim bAdminRequired : bAdminRequired = False
Dim bCleanUp : bCleanup = True 'set to false if other products found in %ProgramFiles%
Dim UninstProducts(64,5) 'product, ProductName,Version, InstallLocation
Dim index: index = 0 'index for UninstProducts
Dim LocalProducts: LocalProducts = 0
Dim syngoInstallFolder
syngoInstallFolder = Left(WScript.ScriptFullname,InStr(1,WScript.ScriptFullname,"\Setup" & WScript.ScriptName,vbTextCompare))
'Show "Uninstall complete RTC",2
Show ">>> Start removing client at " & Now,0
Show "Computername: " + WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%"),0
Show "User: " + WshShell.ExpandEnvironmentStrings("%USERNAME%"),0
OSVersion = WshShell.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
Show "OS version " + OSVersion,0
If InStr (1,OSVersion, "6.",vbTextCompare) > 0 Then
Rem registry key AppData used for NT 5.x does not exist any longer at least not on Server 2008 SP1
Rem NT 6.0 does not localize "Local Settings" in file system (explorer only)
LocalSetting = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Rem if CHARM 134372 is solved
Rem LocalSetting = WshShell.ExpandEnvironmentStrings("%USERPROFILE%") + "\AppData\Local"
Rem directory Apps is used by AT boot strapper currently, even on NT 6
AppData = LocalSetting + "\AppData\Local"
Else
LocalSetting = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Local Settings")
AppData = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Local AppData")
End If
ProgramFiles = WshShell.ExpandEnvironmentStrings("%ProgramFiles%")
ProgramFilesx86 = WshShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")
If (ProgramFilesx86 = "%ProgramFiles(x86)%") Then
Rem environemnt not set -> 32 bit OS
ProgramFilesx86 = Empty
End If
CheckAdmin
Err.Clear
Rem ------------------------------------------------
Rem call the CUS Uninstall firstly
Rem get a confirmation before
Rem ------------------------------------------------
If not bLocalOnly Then
If isAdmin Then
Show "You are going to uninstall Space. Do you want to continue?",3
dim ClientUpdateService: ClientUpdateService = Empty
RunCmd = Empty
if ( syngoInstallFolder <> Empty ) then
ClientUpdateService = ClientInstallFolder + "bin\ClientBootstrapping.exe"
if ( fso.FileExists(ClientUpdateService) ) Then
RunCmd = """" + ClientUpdateService + """" + " /UnInstall"
end if
end if
Rem ------------------------------------
Rem do the CUS call
Rem ------------------------------------
Dim iRet
If ( RunCmd <> Empty ) Then
UninstallDCClient
Show "Calling " & RunCmd,0
iRet = WshShell.Run(RunCmd,1,true)
Show "Return status from Client Update Service = " & iRet,0
If 0 = iRet Then
Show "Wait for ClientUpdateService processes to stop ...", 0
WaitForNoCUSRunning
Show "No ClientUpdateServices are running anymore", 0
Show "Remove %TEMP%\IXP*.TMP %TEMP%\VSD*.tmp",0
CleanUpTemp
End If
else
Show "No Client Update Service found"
End If
Else
If InStr (1,OSVersion, "6.",vbTextCompare) Then
Show "Administrator rights are required to uninstall client" & vbLf &_
"Please contact your administrator or use 'Run As Administrator'",4
Else
Show "Administrator rights are required to uninstall client" & vbLf &_
"Please contact your administrator",4
End If
End If
End If
. . . Function CleanUpTemp
Dim f,sf,f1
'remove temporary setup directories IXPxxx.TMP with Common.Stater.BootStrapper.exe and VSD*.tmp with PreCheck
Set f = fso.GetFolder(WshShell.ExpandEnvironmentStrings("%TEMP%"))
Set sf = f.SubFolders
For Each f1 in sf
'do not remove files of current setup / date
If Not (StrComp(Left(f1.DateLastAccessed,10),Left(Now,10)) = 0 ) Then
If (StrComp(Right(f1.name,4),".TMP") = 0 ) Then
If (StrComp(Left(f1.name,3),"IXP") = 0 ) Then
If fso.FileExists(f1.Path + "\Common.Starter.BootStrapper.exe") Then
Show "Found " + f1.Path + "\Common.Starter.BootStrapper.exe",0
Show "Removing " + f1.Path,1
f1.Delete
End If
End If
Else
If (StrComp(Right(f1.name,4),".tmp") = 0 ) Then
If (StrComp(Left(f1.name,3),"VSD") = 0) Then
If (fso.FolderExists(f1.Path + "\PreCheck")) Then
Show "Found " + f1.Path + "\PreCheck",0
Show "Removing " + f1.Path,1
f1.Delete
End If
End If
End IF
End If
End if
Next
End Function
Function CleanUpDir(directory)
If fso.FolderExists(directory) Then
Show "Removing """ & directory & """ ...",1
WshShell.Run "cmd /c rmdir /s /q """ & directory & """",0,true
End If
End Function
Function Show(msg,mode)
'mode 0 - echo in cscript only, 1 - pop up for wscript,
'mode 2 - MsgBox (ok/cancel) in wscript
'mode 3 - MsgBox (yes/no) in wscript
'mode 1,2 skip in /silent mode
LogMsg msg
If (Instr(WScript.FullName,"wscript.exe") > 0) Then
Select Case mode
Case 1:
If Not (isSilent) Then
WshShell.PopUp msg,2, "Space Setup",64
End If
Case 2: 'MsgBox 289 -> OK/Cancel
If Not (isSilent) Then
If (MsgBox (msg,289,"Space Setup") = 2 ) Then
LogMsg "Canceled by user"
LogMsg "Removing client quit at " & Now & " <<<"
WScript.Quit (1)
End If
End If
Case 3:
If (noPrompt) Then
LogMsg "Silent Unistallation triggered"
else
'MsgBox 292 -> Yes/No
If (MsgBox (msg,292,"Space Setup") = 7 ) Then
LogMsg "Canceled by user"
LogMsg "Removing client quit at " & Now & " <<<"
WScript.Quit (1)
End If
End If
Case 4: 'MsgBox 64 -> Info OK
MsgBox msg,64,"Space Setup"
Remove_RTC.vbsand remove the prompt. Post the vbs code if you want more help. Also put everything in the question (i.e. command line and screenshots). There's no need to use external links.