VBS/WSH/JS - Перестал скрипт vbs работать в win 8.1

VBS/WSH/JS - Перестал скрипт vbs работать в win 8.1

Пользователь

Сообщения: 59
Благодарности: 1

Был у меня самолично содранный с инета скриптик, удалял надоедливые файлы на рабочем столе в win 8.
Обновил я нинче до 8.1, а скрипт работать перестал
Скрипт

Код:

//On Error Resume Next

Dim fso1

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

fso1.DeleteFile "C:\Users\Rmicro\Desktop\desktop.ini", True   

fso1.DeleteFile "C:\Users\Rmicro\Desktop\Thumbs.db", True

Запускался он планировщиком, теперь никак не работает, ни в ручную, ни как.
Пишет ошибку

Код:

---------------------------
Windows Script Host
---------------------------
Сценарий:	C:\PROGRAMS\deldb\deldb.vbs
Строка:	1
Символ:	1
Ошибка:	Предполагается наличие инструкции
Код:	800A0400
Источник: 	Ошибка компиляции Microsoft VBScript

---------------------------
ОК   
---------------------------

Отправлено: 03:42, 12-05-2014

константин_н

Пользователь

Сообщения: 59
Благодарности: 1

Профиль | Отправить PM | Цитировать

Нашел что поменять

Код:

On Error Resume Next

Dim fso1

Set fso1 = CreateObject("Scripting.FileSystemObject")

fso1.DeleteFile "C:\Users\Rmicro\Desktop\desktop.ini", True   

fso1.DeleteFile "C:\Users\Rmicro\Desktop\Thumbs.db", True

Тоесть убрал WScript. и теперь работает
Еще и другой вариант

Код:

FName1 = "C:\Users\Rmicro\Desktop\desktop.ini"      ' Полное имя файла
FName2 = "C:\Users\Rmicro\Desktop\thumbs.db"      ' Полное имя файла

Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(FName1) Then
   FSO.DeleteFile FName1, True
End If
If FSO.FileExists(FName2) Then
   FSO.DeleteFile FName2, True
End If

Отправлено: 06:02, 12-05-2014 | #2