Ошибка индекса вне диапазона в сценарии VBScript

Question

Я пытаюсь переместить всю папку пользователя в Windows Vista в несистемный раздел. Чтобы сделать это с минимальными трудностями, я следую инструкциям, приведенным в блоге Бена, в частности, VBScript, который он предоставляет.

Однако выполнение сценария выдает ошибку, которую я не могу устранить самостоятельно. Вот код VBScript, за которым следует текстовый файл, из которого он работает, и, наконец, мое сообщение об ошибке. Как мне исправить проблему?

Код VBScript:

'# Perform dir /a c:\users > c:\dir.txt
'# place this script file in c:\ too
'# double click to run it
'# run resulting script.bat from recovery mode
repprefix = " Directory of..." ' Modify to your language
sourcedrive = "C:\"
targetdrive = "D:\"
altsourcedrive = "C:\" 'leave same as target drive unless otherwise indicated
alttargetdrive = "E:\" 'leave same as target drive unless otherwise indicated

inname = "dir.txt"
outname = "script.bat"
userroot = "Users"

set fso = CreateObject("Scripting.FileSystemObject")

' construct batch commands for saving rights, then link, the recreating rights
Function GetCommand(curroot, line, typ, keyword)
 ' first need to get source and target
 pos = Instr(line, keyword) + Len(keyword)

 tuple = Trim(Mid(line, pos))
 arr = Split(tuple, "[")

 oldtarget = Replace(arr(1), "]", "")
 oldlink = curroot & "\" & Trim(arr(0))

 ' need to determine if we are pointing back to old disk
 newlink = replace(oldlink, sourcedrive, targetdrive)
 if(Instr(oldtarget, sourcedrive & userroot)) then
     newtarget = Replace(oldtarget, sourcedrive, targetdrive)
 else
 newtarget = oldtarget ' still pointing to original target
 end if

 ' comment
 out = "echo " & newlink & " --- " & newtarget & vbCrLf
 ' save permissions
 out = out & "icacls """ & replace(oldlink, sourcedrive, altsourcedrive) & """ /L /save " & altsourcedrive & "permissions.txt" & vbCrLf

 ' create link
 newlink = replace(newlink, targetdrive, alttargetdrive)
 if typ = "junction" then
     out = out & "mklink /j """ & newlink & """ """ & newtarget & """" & vbCrLf
 else ' typ = "symlink"
     out = out & "mklink /d """ & newlink & """ """ & newtarget & """" & vbCrLf
 end if

 'set hidden attribute
 out = out & "attrib +h """ & newlink & """ /L" & vbCrLf

 ' apply permissions
 shortlink = Left(newlink, InstrRev(newlink, "\") - 1) 'icacls works strangely - non-orthogonal for restore
 out = out & "icacls """ & shortlink & """ /L /restore " & altsourcedrive & "permissions.txt" & vbCrLf

 GetCommand = out & vbCrLf
End Function

Sub WriteToFile(file, text)
 ForWriting = 2
 Create = true
 set outfile = fso.OpenTextFile(file, ForWriting, Create)
 Call outfile.Write(text)
 Call outfile.Close()
End Sub

outtext = "ROBOCOPY " & altsourcedrive & userroot & " " & alttargetdrive & userroot & " /E /COPYALL /XJ" & vbCrLf & vbCrLf

set intext = fso.OpenTextFile(inname)
while not intext.AtEndOfStream
 line = intext.ReadLine()
 if Instr(line, repprefix) then
     curroot = Replace(line, repprefix, "")
 elseif Instr(line, juncname) then
 outtext = outtext & GetCommand(curroot, line, "junction", juncname)
 elseif Instr(line, linkname) then
 outtext = outtext & GetCommand(curroot, line, "symlink", linkname)
 end if 
Wend

outtext = outtext & "icacls " & altsourcedrive & userroot & " /L /save " & altsourcedrive & "permissions.txt" & vbCrLf
outtext = outtext & "ren " & altsourcedrive & userroot & " _" & userroot & vbCrLf
outtext = outtext & "mklink /j " & altsourcedrive & userroot & " " & targetdrive & userroot & vbCrLf
outtext = outtext & "icacls " & altsourcedrive & " /L /restore " & altsourcedrive & "permissions.txt"

Call intext.Close()

Call WriteToFile(outname, outtext)

MsgBox("Done writing to " & outname)

dir.txt:

Volume in drive C is ACER
Volume Serial Number is 08D7-C0CC

Directory of c:\users

07/16/2009 12:29 PM {DIR} .
07/16/2009 12:29 PM {DIR} ..
11/02/2006 09:02 AM {SYMLINKD} All Users [C:\ProgramData]
11/02/2006 09:02 AM {DIR} Default
11/02/2006 09:02 AM {JUNCTION} Default User [C:\Users\Default]
08/21/2008 08:37 AM 174 desktop.ini
11/02/2006 08:50 AM {DIR} Public
07/19/2009 08:54 PM {DIR} Steve
1 File(s) 174 bytes
7 Dir(s) 5,679,947,776 bytes free

Сообщение об ошибке:

Windows Script Host

Сценарий: C:\user location.vbs Строка: 25 символов: 2 Ошибка: нижний индекс вне диапазона: «[число: 1]» Код: 800A0009 Источник: ошибка времени выполнения Microsoft VBScript

(В сценарии VBScript, который я использую в своей системе, я считаю, что строка 25 соответствует строке, начинающейся с oldtarget = Replace(arr(1), "]", "") .

Answer 1

Убедитесь, что при копировании скрипта с другой страницы разрывы строк копируются так, как должны быть. Например, в сценарии, который вы напечатали выше, появляется строка, которая начинается

pos = Instr(line, keyword) + Len(keyword)

фактически добавляется к замечанию в предыдущей строке (все, что находится после 'в этой строке). Это может привести к тому, что проблема, с которой вы сталкиваетесь в этой позиции, никогда не будет установлена должным образом, и поэтому ничего не будет скопировано в arr.

Просто перейдите строка за строкой в вашем сценарии на компьютере и сравните его с версией, которую вы скопировали в блоге Бена. Каждая строка, которая находится на своей собственной строке, ДОЛЖНА также быть на своей собственной строке в вашем файле скрипта.

РЕДАКТИРОВАТЬ: Что касается того, что означает сообщение об ошибке, похоже, что oldTarget пытается захватить строку между двумя скобками. Ошибка возникает из-за того, что в строке недостаточно текста, чтобы начать с позиции массива 1 (и он начинается с нуля, что означает, что он на самом деле пытается получить второй символ в строке), т. Е. Это не более чем односимвольная строка что невозможно, учитывая, что даже пустая строка 'element' будет иметь два символа (открывающая и закрывающая скобки). Итак, вам нужно выяснить, почему вы не получаете правильную строку в этот момент кода, чтобы решить эту проблему.

Answer 2

Во-первых, это очень плохо написанный сценарий. Я бы порекомендовал переписать его правильно. Это какая-то хакерская работа, и вот откуда берутся большинство ваших проблем.

В частности, ваша проблема возникает во второй строке здесь:

arr = Split(tuple, "[")

oldtarget = Replace(arr(1), "]", "")

Это означает, что разделение в строке ранее не возвращало массив, это означает, что [не было найдено в кортеже и, следовательно, arr(1) находится вне диапазона. Попробуйте проверить, что arr является массивом, прежде чем пытаться получить к нему доступ.