We help IT Professionals succeed at work.

Windows Script Host \ VBScript Error \ 800704C8

Medium Priority
2,460 Views
Last Modified: 2012-05-07
Attached is a script that copies Microsoft Office templates from a server share to a user's computer when they log in.  It is a VB Script that is run during logon via Group Policy.  I am starting to hear reports of user's getting an error message that says:
"The requested operation cannot be performed on a file with a user-mapped section open" (screenshot attached) and mentions line 35, error code 800704C8.

I was able to reproduce the problem once on my laptop, could this possibly be due to roaming profiles and being logged in to two separate PCs at once?

Please let me know if i left out any other important information on my environment and thanks as always!
Option Explicit
 
dim TemplatePath
dim ExcelPath
 
TemplatePath = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%UserProfile%") & ("\Application Data\Microsoft\Templates")
ExcelPath    = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%UserProfile%") & ("\Application Data\Microsoft\Excel\XLSTART")
 
dim objFSO
set objFSO = CreateObject("Scripting.FileSystemObject")
 
CheckAndCreateFolders(TemplatePath)
CheckAndCreateFolders(ExcelPath)
 
Sub CheckAndCreateFolders(sPath)
    Dim arrPath
    Dim strPath
    Dim n
    arrPath = split(sPath,"\")
    for n = LBound(arrPath) to UBound(arrPath)
        if n = LBound(arrPath) then
            strPath = arrPath(n)
        else
            strPath = strPath & "\" & arrPath(n)
        end if
        If Not objFSO.FolderExists(strPath) Then
            'msgbox strPath
            objFSO.CreateFolder strPath
        End If
    next
End Sub
 
Const OverwriteExisting = True
 
objFSO.CopyFile "\\serverpdc\public\Office Management\Corporate Identity & Art Work\Office 2007 Templates\*", TemplatePath & "\", OverwriteExisting
objFSO.CopyFile "\\serverpdc\public\Office Management\Corporate Identity & Art Work\Office 2007 Templates\Excel\*", ExcelPath & "\", OverwriteExisting

Open in new window

6-26-2009-11-54-12-AM.png
Comment
Watch Question

Ron MalmsteadInformation Services Manager
CERTIFIED EXPERT

Commented:
That basically means the file is "locked" or in-use.  Probably does have something to do with Roaming profile.

Does it only happen when logged on to two different machines ?

Author

Commented:
I just tried executing the script manually from a laptop while logged in to the desktop as well and I did not receive the error message.
Ron MalmsteadInformation Services Manager
CERTIFIED EXPERT

Commented:
Try putting in some sleep time before the actual copy operation...

Maybe the profile is still loading after the logon while that file is being copied...
Commented:
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.