Имя: Пароль:
IT
Админ
Не выполняется назначенное задание на win2008
0 John83
 
26.12.11
16:04
Перенес задания с 2003го сервака (выгрузка баз в dt), но почему-то одно задание никак не хочет работать, выдает ошибку 2147942403. В самом задании назначен запуск соответствующего скрипта, сам скрипт вручную нормально запускается.
Кто-нить сталкивался с подобным?
1 ice777
 
26.12.11
16:08
скрипт бы хоть привел. Было у занкомого, прописал в батнике SETы - а оно не взялось
2 ice777
 
26.12.11
16:09
+ и тоже руками все прекрасно работало.
3 John83
 
26.12.11
16:13
(1) точнее не совсем скрипт, но в общем вот
другие такие почти такие же нормально отрабатывают

Set oShell = CreateObject("WScript.Shell")
Set Programs1c = oShell.Exec("""C:\Program Files (x86)\1cv82\8.2.13.219\bin\1cv8.exe"" CONFIG /Ssql\tdkrass /N""dumping"" /P******* /DumpIB""\\192.168.150.253\backup1c\TD_KRASS\everyday\1\TD_" & Year(Date) & "_" & fstr(Month(Date)) & "_" & fstr(Day(Date)) & "_" & NameDay(Weekday(Now)) & "_" & Replace(Time, ":","") & ".dt"" /UCПакетноеОбновлениеКонфигурацииИБ")

Const path = "\\192.168.150.253\backup1c\TD_KRASS\everyday\"
On Error Resume Next
Dim Text
Dim fso, oFolders, oFolder, oSubFolders, wsh, f, oFile,DelFile
Text = "Folders" & vbCrLf & vbCrLf
Set wsh = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set oFolders = fso.GetFolder(path)
Set oSubFolders = oFolders.SubFolders
For Each oFolder In oSubFolders
 set f=fso.GetFolder(oFolder)
 for each oFile in f.files
     If oFile.DateCreated< Date-4 then
         Set DelFile = fso.GetFile(oFile)
         DelFile.Delete
     end if
 next
Next

Function fstr(num)
   If num < 10 Then
       fstr = "0" + CStr(num)
   Else
       fstr = num
   End If
End Function

Function NameDay(NowDay)
 If NowDay = 6 Then
   NameDay = "FRI"
 end if
 If NowDay = 7 Then
   NameDay = "SAT"
 end if
 If NowDay = 1 Then
   NameDay = "SUN"
 end if
 If NowDay = 2 Then
   NameDay = "MON"
 end if
 If NowDay = 3 Then
   NameDay = "TUE"
 end if
 If NowDay = 4 Then
   NameDay = "WED"
 end if
 If NowDay = 5 Then
   NameDay = "THU"
 end if
End Function
4 andrewks
 
26.12.11
16:24
от имени какого юзера выполняется?
5 ado
 
26.12.11
16:25
А текстовое название у ошибки есть?
6 John83
 
26.12.11
16:37
(4) пользователь backup, пароль неоднократно перепроверил
7 andrewks
 
26.12.11
16:38
(6) какие права у него?
8 Жирафка
 
26.12.11
16:39
(0) пользователь залогинен в момент выполнения?
9 John83
 
26.12.11
16:40
(5) можно так
Task Scheduler failed to start instance "{26fe306d-dd3f-42cb-8c63-9b4a5bd29786}" of "\dumping TD (everyday)"  task for user "S-PETERSBURG\backup" . Additional Data: Error Value: 2147942403.
10 John83
 
26.12.11
16:41
(7) админские
11 andrewks
 
26.12.11
16:41
(10) а "Logon as a batch job" есть?
12 John83
 
26.12.11
16:41
(8) нет
но при этом другие задания нормально срабатывают
13 John83
 
26.12.11
16:42
(11) это чего такое?
14 John83
 
26.12.11
16:43
можно конечно же вручную завести, но очень уж не хочется опять расписание настраивать...