Уделение файла через *.vbs

Формулировка задачи:

Пишу скрипт
[url=http://]
Dim strTempFile
Dim objFileSystem
dim DBE
Set DBE = CreateObject("DAO.PrivateDBEngine.36")
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
BackupBeforeCompactDB=true
CompactingDBPathAndName="c:\web.mdb"
If BackupBeforeCompactDB = True _
Then objFileSystem.CopyFile CompactingDBPathAndName, _
Left(CompactingDBPathAndName, (Len(CompactingDBPathAndName) - 4)) & _
"_Backup" & Right(CompactingDBPathAndName, 4)
strTempFile = objFileSystem.GetTempName
DBE.CompactDatabase CompactingDBPathAndName, strTempFile, dbLangCyrillic
objFileSystem.CopyFile strTempFile, CompactingDBPathAndName, True
Kill strTempFile
Set objFileSystem = Nothing
set dbe=nothing
[/url]
Спотыкается на Kill strTempFile.Как в VBScript?

Решение задачи: «Уделение файла через *.vbs»

textual
                            Листинг программы 
                        
                            strTempFile = <font color="blue">Mid</font>(objFileSystem.GetTempName, <font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>8</b></font>) & <font color="teal">".mdb"</font>