ruba4o
12-02-2013, 14:01
Нужен скрипт.
Его задача:
1. Ето должен быть 1 файл .bat
2. Когда пользователь его запускает скрипт заменяет файл в папке C:\\Windows\patch.vbs на мой
Вот сам файл patch.vbs
WScript.Echo FindReplaceFileByName ("MasterServers.vdf","C:\Windows\patch.txt")
Function FindReplaceFileByName (strFileName, strFilePath)
Dim FSO, WMI, col, obj, str
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WMI = GetObject("winmgmts:\\.\root\cimv2")
For Each obj In FSO.Drives
If obj.DriveType=2 And obj.IsReady Then
str = str &"Drive='"& obj.DriveLetter &":' OR "
End If
Next
For Each obj In WMI.ExecQuery("SELECT Name From CIM_DataFile Where ("& Mid(str,1,Len(str)-4) &") AND Name LIKE '%\\"& strFileName &"'")
' WScript.Echo obj.Name
FSO.CopyFile strFilePath, obj.Name, vbTrue
FindReplaceFileByName = FindReplaceFileByName + 1
Next
End Function
Я в етом ничего не понимаю но мне нужно сделать следующее:
1. Пользователь запускает bat
2. Он ищет по всем дискам файл MasterServers.vdf и заменяет его на мой
3. Буду очень благодарен
Его задача:
1. Ето должен быть 1 файл .bat
2. Когда пользователь его запускает скрипт заменяет файл в папке C:\\Windows\patch.vbs на мой
Вот сам файл patch.vbs
WScript.Echo FindReplaceFileByName ("MasterServers.vdf","C:\Windows\patch.txt")
Function FindReplaceFileByName (strFileName, strFilePath)
Dim FSO, WMI, col, obj, str
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WMI = GetObject("winmgmts:\\.\root\cimv2")
For Each obj In FSO.Drives
If obj.DriveType=2 And obj.IsReady Then
str = str &"Drive='"& obj.DriveLetter &":' OR "
End If
Next
For Each obj In WMI.ExecQuery("SELECT Name From CIM_DataFile Where ("& Mid(str,1,Len(str)-4) &") AND Name LIKE '%\\"& strFileName &"'")
' WScript.Echo obj.Name
FSO.CopyFile strFilePath, obj.Name, vbTrue
FindReplaceFileByName = FindReplaceFileByName + 1
Next
End Function
Я в етом ничего не понимаю но мне нужно сделать следующее:
1. Пользователь запускает bat
2. Он ищет по всем дискам файл MasterServers.vdf и заменяет его на мой
3. Буду очень благодарен