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

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

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

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

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

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

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

Был у меня самолично содранный с инета скриптик, удалял надоедливые файлы на рабочем столе в 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