[Iska]

Вот это условие пропускается »

Там нужно так:

Код:

If Not oFSO.FolderExists(strDestinationPath) Then
	oFSO.CreateFolder strDestinationPath
End If

Прочее должно исполняться независимо от предварительного отсутствия папки.

После Else поставил Код: WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Miranda", strDestinationPath & "miranda32.exe", "REG_SZ" Вышла ошибка, код ошибки 80070005, сдается мне что пользователь не может в эту ветку писать. »

Простой пользователь — да, не может. Но он не может и с «AllUsers…» папками манипулировать. У Вас какой?

Кстати, ошибка точно на этой строке?