Total Commander

Код: Выделить всё

'=========================[ Start of file ]===================
'  File:         EraseCDRW.vbs 
'  Description:  Производит очистку RW диска, используя
'                движок Nero версии 6 и выше
'  Installation: Создайте кнопку или команду в меню Запуск TC 
'                Команда: "диск:\путь\к\файлу\EraseCDRW.vbs" 
'                Если приводов у Вас два, то возможно, что
'                (0) понадобится заменить на (1)
'  Copyright:    (c) 2006, Volniy 

Option Explicit
Dim n, d, et
Set n = CreateObject("Nero.Nero")
Set d = n.GetDrives(262172)(0)
d.LoadCD
et=d.CDRWErasingTime(True)
d.EraseCDRW(True)
WScript.Sleep et*1000
d.EjectCD
Set d=Nothing
Set n=Nothing
Wscript.Quit() 
'=========================[  End of file  ]===================

Код: Выделить всё

'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0
'
' NAME: GroupDescription.vbs 
'
' AUTHOR: Artem Mayskii
' DATE  : 25.09.2006
'
' COMMENT: Групповое создание комментариев
'
'==========================================================================
Option Explicit

Dim TCS, CopyFClip, Sel, FSO, TextStream, Clip, Descript, Sp
Set TCS = CreateObject("TCScript.Helper")

Sp = " "
Descript = "Описание"
Sel = TCS.GetSrcSelectedFiles(-1)

TCS.SendCommand("cm_CopyNamesToClip")

Clip = TCS.GetTextFromClip

Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextStream = FSO.CreateTextFile("C:\descript.ion")

TextStream.WriteLine Clip & Descript

Код: Выделить всё

'****************************************************************
' Copyright (c) LA

' This script renames given in parameter file in accordance with
' the following logic:
'   filename.ext -> filename.[tag].ext
' and copies the result filename to clipboard.

'****************************************************************
' Version:

' 1.0 10 Jan 2007 - Initial release

'****************************************************************
' Parameters

 strTag = "[tag]"

'****************************************************************

' script arguments
Set objArgs = WScript.Arguments
' if argument (filename) is not given, then exit
If WScript.Arguments.Count <> 1 Then
  WScript.Quit
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")
' get file passed as first arguments to the script
Set objFile = objFSO.GetFile(objArgs(0))
' create new file name as path + filename + [tag] + extension
strNewName = objFSO.GetParentFolderName(objFile) & "\" & objFSO.GetBaseName(objFile) & "." & strTag & "." & objFSO.GetExtensionName(objFile)
objFSO.MoveFile objArgs(0), strNewName

' copy new file name to clipboard with IE usage
'Set objIE = CreateObject("InternetExplorer.Application")
'objIE.Navigate("about:blank")
'objIE.document.parentwindow.clipboardData.SetData "text", strNewName
'objIE.Quit

' copy new file name to clipboard by sending Ctrl+Shift+Ins
' refreshing panel before copying
WScript.CreateObject("WScript.Shell").SendKeys "^{R}"
WScript.Sleep(100)
WScript.CreateObject("WScript.Shell").SendKeys "^+{INSERT}"

' copy new file name to clipboard with TCHelper usage
'Set TCS = CreateObject("TCScript.Helper")
'TCS.cm_CopyNamesToClip