Не зайти в 1с Предприятие

А вообще, есть чудесный скрипт

Dim FSO

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

Set WshShell = WScript.CreateObject("WScript.Shell")

Set colEnvVars = WshShell.Environment("Process")

FolderName1 = "\Local Settings\Application Data\1C\1Cv82"

FolderName2 = "\Local Settings\Application Data\1C\1Cv81"

FolderName3 = "\Local Settings\Application Data\1C\1Cv80"

FolderName4 = "\Local Settings\Application Data\1C\1Cv8"

If FSO.FolderExists(colEnvVars("userprofile") & FolderName1) Then

    GoSubFolders colEnvVars("userprofile") & FolderName1

End If

If FSO.FolderExists(colEnvVars("userprofile") & FolderName2) Then

GoSubFolders colEnvVars("userprofile") & FolderName2

End If

If FSO.FolderExists(colEnvVars("userprofile") & FolderName3) Then

    GoSubFolders colEnvVars("userprofile") & FolderName3

End If

If FSO.FolderExists(colEnvVars("userprofile") & FolderName4) Then

    GoSubFolders colEnvVars("userprofile") & FolderName4

End If

rem WScript.Echo "OK"

Sub DelFile(sFILE)

    On Error Resume Next

    FSO.DeleteFile sFILE, True

    If Err.Number <> 0 Then

        Wscript.Echo "Error deleting file: " & sFILE

    End If

End sub

Function GetFolder(sFOLDER)

    On Error Resume Next

    Set GetFolder = FSO.GetFolder(sFOLDER)

    If Err.Number <> 0 Then

        Wscript.Echo "Error connecting to folder:" & sFOLDER & VBlf & "[" & Err.Number & "]" & Err.Description

        Wscript.Quit Err.Number

    End If

End Function

Sub GoSubFolders (objDIR)

    ProcessFilesInFolder objDIR

    Set sFolder = GetFolder(objDIR)

    For Each eFolder in sFolder.SubFolders

        GoSubFolders eFolder

    Next

    FSO.DeleteFolder sFolder, True

End Sub

Sub ProcessFilesInFolder (objDIR)

    Set sFolder = GetFolder(objDIR)

    For Each objFile in sFolder.Files

        DelFile objFile

    Next

End Sub