[alpap]

Код:

::XP и выше
>nul ping -n 16 127.0.0.1
::Выше XP
>nul timeout /t 15

[Iska]

паузу ему прописать в началае секунд на 10-15 можно? »

Код:

Option Explicit

Dim strLabel

Dim objDrive
Dim objVerb


WScript.Sleep 15 * 1000

strLabel = "My Disk"

For Each objDrive In WScript.CreateObject("Scripting.FileSystemObject").Drives
	If StrComp(objDrive.VolumeName, strLabel, vbTextCompare) = 0 Then
		For Each objVerb In WScript.CreateObject("Shell.Application").NameSpace(objDrive.RootFolder.Path).self.Verbs
			If StrComp(objVerb.Name, "&Извлечь", vbTextCompare) = 0 Then
				objVerb.DoIt
			End If
		Next
	End If
Next

WScript.Quit 0