Проблема с VBS

[А. Долматов]

Здравствуйте. Народ мне нужна помощь в следующем коде:

Const ADS_SCOPE_SUBTREE = 2
Const OverwriteExisting = TRUE

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
    "Select Name, Location from 'LDAP://DC=nt,DC=local' " _
        & "Where objectClass='computer'"  
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CopyFile "\\C127\C$\adsk01.mid" , "\\objRecordSet.Fields("Name").Value\c$\windows\system32\", OverwriteExisting
    objRecordSet.MoveNext
Loop

в этом скрипте я на каждый компьютер домена рассылаю свой файл, во всяком случае нужно, чтобы так было. У меня возникает ошибка об окончании инструкции. Есть предполажение, что нужно строку с именем забить в переменную стринг, но я впервые столкнулся с vbs-ом и не знаю, как мне строку завести.

[Alefandr]

Народ хэлп!нужен скрипт который постоянно сканит папку и при появлении в ней определённого файла сразу бы выдавал сообщение с содержанием того файла!