powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Windows [игнор отключен] [закрыт для гостей] / Терминалка под 2003 и DOS-приложения
14 сообщений из 14, страница 1 из 1
Терминалка под 2003 и DOS-приложения
    #34182243
Фотография lissyara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Настругал скрипт:
Код: plaintext
1.
2.
3.
\\ts\scripts\deltree.exe /y "%UserProfile%\Local Settings\Temp\"
\\ts\scripts\deltree.exe /y "%UserProfile%\Local Settings\Temporary Internet Files\"
\\ts\scripts\deltree.exe /y "%tmp%"
\\ts\scripts\deltree.exe /y "%temp%"
Запихал в доменные политики. На локальных компах отрабатывает нормально, а вот под терминальными профилями - ничё не делает.
Даже если локально положить всё, а не по сети - тишина. deltree при запуске вообще ничё не выводит.
Я так понимаю - какое-то ограничение на запуск 16-битны приложений? Вот тока найти не могу где могли поставить (терминалка досталась по наследству, мало что дистр напильником точеный, так и потом прилично рихтовали). Самое поганое - вроде всё перерыл - и доменные и локальные политики...

P.S. deltree - это такая прога (DOS-овская) из дистра win98, с функционалом соответствующим названию.
...
Рейтинг: 0 / 0
Терминалка под 2003 и DOS-приложения
    #34182310
Фотография rrrrrrrrrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а
Код: plaintext
del %TEMP%\*.* /f /s /q
как вариант не рассматривали?
...
Рейтинг: 0 / 0
Терминалка под 2003 и DOS-приложения
    #34182436
Фотография lissyara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
уже лучше, но директории не удаляет....
=======
интересно - всё же чем ему DOS-овская аппликуха не нравится.... Хорошая - лет 6 уже использую


Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
Терминалка под 2003 и DOS-приложения
    #34182885
Фотография imkot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Может это подойдет?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
On Error Resume Next

Const TEMPORARY_INTERNET_FILES = &H20&
Const LOCAL_SETTINGS_HISTORY = &H22&
Const TEMPORARY_FOLDER =  2 

Dim objShell, objFolder, objFolderItem, fso

Set objShell = CreateObject("Shell.Application")


Set objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES)
Set objFolderItem = objFolder.Self

myDeleteFolder objFolderItem.Path

Set objFolder = objShell.Namespace(LOCAL_SETTINGS_HISTORY)
Set objFolderItem = objFolder.Self

myDeleteFolder objFolderItem.Path

Set fso = CreateObject("Scripting.FileSystemObject")

Set objFolderItem = fso.GetSpecialFolder(TEMPORARY_FOLDER)

myDeleteFolder objFolderItem.Path


Sub myDeleteFolder(folderspec)
   Dim f, sf, f1
   Set f = fso.GetFolder(folderspec)
   Set sf = f.SubFolders
   For Each f1 in sf
      s = f.Path & "\" & f1.name
      fso.DeleteFolder s, true
   Next
   Set sf = f.Files
   For Each f1 in sf
      s = f.Path & "\" & f1.name
      fso.DeleteFile s, true
   Next
End Sub
...
Рейтинг: 0 / 0
Терминалка под 2003 и DOS-приложения
    #34182931
Фотография lissyara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
занатые файлы пропустит? Или выпадет на первом же?
Я не знаю vbs/wsh поэтому не берусь утверждать - подойдёт или нет
Попроще бы чё - чтоб парааметром пеердавать путь и запускать



Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
Терминалка под 2003 и DOS-приложения
    #34182966
Фотография imkot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Занятые пропустит.
Параметры передаются в процедуру, которая собственно и удаляет папку. А начало скрипта - это получение имен трех папок.
...
Рейтинг: 0 / 0
Терминалка под 2003 и DOS-приложения
    #34183027
Фотография imkot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно попробовать такой вариант

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
On Error Resume Next

For i =  0  to WScript.Arguments.Count- 1 
    WScript.Echo WScript.Arguments.Unnamed(i)
next

Sub myDeleteFolder(folderspec)
   Dim f, sf, f1
   Set f = fso.GetFolder(folderspec)
   Set sf = f.SubFolders
   For Each f1 in sf
      s = f.Path & "\" & f1.name
      fso.DeleteFolder s, true
   Next
   Set sf = f.Files
   For Each f1 in sf
      s = f.Path & "\" & f1.name
      fso.DeleteFile s, true
   Next
End Sub

Из командной строки вызывается например так
Код: plaintext
cscript  2 .vbs "%TEMP%" "%USERPROFILE%"
Выведет на экран две папки.
Если
Код: plaintext
WScript.Echo WScript.Arguments.Unnamed(i)
заменить на
Код: plaintext
myDeleteFolder WScript.Arguments.Unnamed(i)
То должна удалять папки, которые в параметрах передаются.
Только вот надо попробовать чего она будет делать когдачерез политики вызывается.
...
Рейтинг: 0 / 0
Терминалка под 2003 и DOS-приложения
    #34183051
Фотография imkot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я в WSH собственно тоже не специалист :))
...
Рейтинг: 0 / 0
Терминалка под 2003 и DOS-приложения
    #34185075
Фотография rrrrrrrrrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сегодня примерно такая же задача возникла. Воспользовался sdelete.exe , точнее,
Код: plaintext
sdelete /s имя_папки
Преимущество: затирает мусором все удаляемые файлы, т.е. не восстановишь.
...
Рейтинг: 0 / 0
Терминалка под 2003 и DOS-приложения
    #34185716
Фотография imkot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rrrrrrrrrrСегодня примерно такая же задача возникла. Воспользовался sdelete.exe , точнее,
Код: plaintext
sdelete /s имя_папки
Преимущество: затирает мусором все удаляемые файлы, т.е. не восстановишь.
А оно надо в штатном режиме так удалять?
Юзьвери постоянно восстанавливают содержимое?
...
Рейтинг: 0 / 0
Терминалка под 2003 и DOS-приложения
    #34185767
Фотография rrrrrrrrrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
иногда надо, особенно если для совместимости с ДОС-программами временный каталог вне профиля и может оказаться доступен для другого юзера... а так - нет, конечно.
...
Рейтинг: 0 / 0
Терминалка под 2003 и DOS-приложения
    #34185812
aleks2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
D:\>rmdir/?
Removes (deletes) a directory.

RMDIR [/S] [/Q] [drive:]path
RD [/S] [/Q] [drive:]path

    /S      Removes all directories and files in the specified directory
            in addition to the directory itself.  Used to remove a directory
            tree.

    /Q      Quiet mode, do not ask if ok to remove a directory tree with /S

Была еще в DOS 3.0
...
Рейтинг: 0 / 0
Терминалка под 2003 и DOS-приложения
    #34186213
Фотография imkot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Гы.
Все оказалось гораздло проще
...
Рейтинг: 0 / 0
Терминалка под 2003 и DOS-приложения
    #34186753
Фотография lissyara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / Windows [игнор отключен] [закрыт для гостей] / Терминалка под 2003 и DOS-приложения
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]