Flasher
|
 Posted: Sat Nov 15, 2014 18:33 Post subject: |
 |
|
Вопрос был | Flasher wrote: | | скрипт будет ходить по этим дискам? |
т.е. с предыдущими буквами.
Проще говоря, что покажет
 этот скрипт?: | Code: | For Each D in CreateObject("Scripting.FileSystemObject").Drives
If D.DriveType = 4 Then c = c + 1
Next : Msgbox c |
А заодно, что покажет 'этот?: | Code: | L = vbNewLine : Set FSO = CreateObject("Scripting.FileSystemObject")
For Each D In GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
ExecQuery("SELECT * FROM CIM_CDROMDrive")
s = s & L & L & "Привод: " & D.Caption & L & "Буква: " & D.Drive & " | " & D.Id & L &_
"Тип: " & D.MediaType &L& "Путь к экземпляру: " & D.PNPDeviceID &L& "Работает: " & D.Status
Next
With CreateObject("WScript.Shell")
TempFile = CreateObject("Shell.Application")._
NameSpace(.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & FSO.GetTempName
FSO.OpenTextFile(TempFile, 2, True, -1).Write Mid(s, 5)
.Run "taskkill /F /IM wmiprvse.exe", 0 : .Run "notepad " & TempFile,, True
End With : FSO.DeleteFile TempFile, 1 |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
