IT Errors and Solutions Blog

Windows XP SP, Outlook 2003

User was getting error message “One or more activex controls could not be displayed…”.

It is 2 ways to resolve this issue.

1) Check checkbox for “Use Microsoft Office Word 2003 to edit messages” in Outlook’s Tool >> Options >> Mail Format

2)If you don’t want to use Word.

Go to

C:\Documents and Settings\user_name\Application Data\Microsoft\Signatures

Make sure you make a copy of the *.htm signature.

Open htm signature in notepad.

Search for tag <object>.

Delete everything between <object></object> tags, including tags.

Save document. The problem is solved.

Additional resources:

Microsoft Outlook 2003
Microsoft Outlook 2007

‘this script is created by Roman Feldblum 

set fso = CreateObject(“Scripting.FileSystemObject”)
 ’set shell = CreateObject(“Wscript.Shell”)
 ’ shell.Exec “cscript //h:cscript //s”
 ’set shell=nothing

if WScript.Arguments.count = 3 then

 if fso.FolderExists (WScript.Arguments(0)) then
 ’WScript.Arguments(0)
  set folder = fso.GetFolder(WScript.Arguments(0))
 
  for each file in folder.files
   set stream = fso.OpenTextFile (WScript.Arguments(0) & “\” & file.name,1)
   if not stream.AtEndOfStream then
    text = “”
    text = stream.ReadAll
    set stream = nothing
    if err.number = 0 then
     text = Replace(text,WScript.Arguments(1),WScript.Arguments(2))
     set stream = fso.OpenTextFile (WScript.Arguments(0) & “\” & file.name,2)
     ’Wscript.Echo fso.GetExtensionName(WScript.Arguments(0) & “\” & file.name)
      if err.number = 0 then
       stream.Write text
      end if
     stream.close
     set stream = nothing
    end if
   else
    set stream = nothing
   end if
  next
  Wscript.Echo “DONE”
 else
  WScript.Echo (“Folder:” & WScript.Arguments(0) & ” does not exists…”)
  WScript.Echo (“The usage is:” & vbcrlf & “ReplaceString.vbs arg1 arg2 arg3 arg4(optional)” & vbcrlf _
   & ” where:” & vbcrlf & “arg1 = folder path (C:\MyFolder)” & vbcrlf _
   & “arg2 = string to be replaced” & vbcrlf _
   & “arg3 = string to replace with” & vbcrlf _
   & “arg4 = file extension (optional)”)
 end if
‘******************************************************************************************
elseif WScript.Arguments.count = 4 then

 if fso.FolderExists (WScript.Arguments(0)) then
 ’WScript.Arguments(0)
  set folder = fso.GetFolder(WScript.Arguments(0))
 
  for each file in folder.files
   if lcase(fso.GetExtensionName(WScript.Arguments(0) & “\” & file.name)) = lcase(WScript.Arguments(3)) then
    set stream = fso.OpenTextFile (WScript.Arguments(0) & “\” & file.name,1)
    if not stream.AtEndOfStream then
     text = “”
     text = stream.ReadAll
     set stream = nothing
     if err.number = 0 then
      text = Replace(text,WScript.Arguments(1),WScript.Arguments(2))
      set stream = fso.OpenTextFile (WScript.Arguments(0) & “\” & file.name,2)
      ’Wscript.Echo fso.GetExtensionName(WScript.Arguments(0) & “\” & file.name)
       if err.number = 0 then
        stream.Write text
       end if
      stream.close
      set stream = nothing
     end if
    else
     set stream = nothing
    end if
   end if
  next
  Wscript.Echo “DONE”
 else
  WScript.Echo (“Folder:” & WScript.Arguments(0) & ” does not exists…”)
  WScript.Echo (“The usage is:” & vbcrlf & “ReplaceString.vbs arg1 arg2 arg3 arg4(optional)” & vbcrlf _
   & ” where:” & vbcrlf & “arg1 = folder path (C:\MyFolder)” & vbcrlf _
   & “arg2 = string to be replaced” & vbcrlf _
   & “arg3 = string to replace with” & vbcrlf _
   & “arg4 = file extension (optional)”)
 end if
‘******************************************************************************************
else
 WScript.Echo (“The usage is:” & vbcrlf & “ReplaceString.vbs arg1 arg2 arg3 arg4(optional)” & vbcrlf _
  & ” where:” & vbcrlf & “arg1 = folder path (C:\MyFolder)” & vbcrlf _
  & “arg2 = string to be replaced” & vbcrlf _
  & “arg3 = string to replace with” & vbcrlf _
  & “arg4 = file extension (optional)”)
end if

set fso = nothing
 

strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” _
    & “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)
Set colListOfServices = objWMIService.ExecQuery _
    (“Select * from Win32_Service”)
For Each objService in colListOfServices
    If objService.PathName = “C:\WINDOWS\system32\services.exe” Then
        Wscript.Echo objService.DisplayName
    End If
Next

strComputer = “.”

Set objWMIService = GetObject(“winmgmts:” _
    & “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)
Set colProcessList = objWMIService.ExecQuery _
    (“Select * from Win32_Process Where Name = ‘Notepad.exe’”)
For Each objProcess in colProcessList
    objProcess.Terminate()
Next