ActiveX component can't create object

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

ActiveX component can't create object

Logged in as: Guest

arrSession:exec spGetSession 2,2,64788

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> ActiveX component can't create object
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

ActiveX component can't create object - 10/3/2008 9:58:27 PM

mdlister

Posts: 16
Score: 0
Joined: 7/22/2008
Status: offline

Morning All,

Today i have been looking to deploy office 2007 to a load of users but i have an error on one machine that i am puzzled by.

The error is

ActiveX component can't create object: 'Scripting.FileSystemObject'
Code: 800A01AD
Source: Microsoft VBScript runtime error

The code is as follows:

on error resume next
Dim objShell
Dim oFSO
Dim sDirectoryPath
Dim oFolder
Dim oFileCollection
Dim oFile
Dim iDaysOld
'Customize values here to fit your needs
iDaysOld = 14
Set oFSO = CreateObject("Scripting.FileSystemObject")
sDirectoryPath = "c:\temp\logs"
set oFolder = oFSO.GetFolder(sDirectoryPath)
set oFileCollection = oFolder.Files
'Walk through each file in this folder collection. 
'If it is older than 2 weeks (14) days, then delete it.
For each oFile in oFileCollection
 If oFile.DateLastModified < (Date() - iDaysOld) Then
  oFile.Delete(True)
 End If
Next
'Clean up
Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing
Set obFSO = CreateObject("Scripting.FileSystemObject")
If obFSO.FileExists("C:\acp\setup.exe") Then
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 
 If objFSO.FileExists("C:\program files\microsoft office\office12\winword.exe") Then
   
  Set objShell = CreateObject("WScript.Shell")
  objShell.Run "c:\acp\setup.exe /repair proplus /config c:\acp\proplus.ww\config.xml"
  WSCRIPT.SLEEP(180000) ' Sleep for 30 minutes while install carrys out
  objShell.Run "regedit /S c:\acp\custom\office reg keys.reg",0,True
   
 
 Else
  Set objShell = CreateObject("WScript.Shell")
  objShell.Run "c:\acp\setup.exe /adminfile c:\acp\custom\core.msp /config c:\acp\proplus.ww\config.xml"
  WSCRIPT.SLEEP(180000) ' Sleep for 30 minutes while install carrys out
  objShell.Run "regedit /S c:\acp\custom\office reg keys.reg",0,True
  Set objShell = WScript.CreateObject("WScript.Shell")
  strDesktopFolder = "C:\Program Files\Microsoft Office\Office12"
  Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
  "\Microsoft Word.lnk")
  objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office12\winword.exe"
  objShortCut.Description = "Lanuch Microsoft Word."
  objShortCut.Save

Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
  "\Microsoft Outlook.lnk")
  objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office12\outlook.exe"
  objShortCut.Description = "Lanuch Microsoft Outlook."
  objShortCut.Save

Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
  "\Microsoft Powerpoint.lnk")
  objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office12\PowerPnt.exe"
  objShortCut.Description = "Lanuch Microsoft PowerPoint."
  objShortCut.Save

Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
  "\Microsoft Excel.lnk")
  objShortCut.TargetPath = "C:\Program Files\Microsoft Office\Office12\excel.exe"
  objShortCut.Description = "Lanuch Microsoft Excel."
  objShortCut.Save

End If
else
WSCRIPT.QUIT(2)

end if
WSCRIPT.QUIT

Now i have run this on loads of machines and it has worked great tho this one machine it exited and the office log file said it was trying to do a repair so i removed the on error resume next and i started getting the error message, googled it as u would and came across http://support.microsoft.com/kb/311269 here they say that you need to reregister the code wscript -regserver so i did that and nothing happened, i thought i would reinstall wscript 5.6 and the error went away and got an error message regarding objFSO can anyone tell me why this happened or how i can prevent it from happening again?

Also as i am a cutter and paster of code any comments or suggestions would be good

Mike