[amel27]

Код:

Set Shell = WScript.CreateObject("WScript.Shell")

Do
  Drive = GetDriveByFyle("WIN51IP")
  If Len(Drive)>0 Then Exit Do
  MsgBox "Вставьте диск 1",vbOKOnly+vbExclamation+vbApplicationModal,"Пауза"
Loop

MsgRet = MsgBox("Вы хотите установить обновление?",vbOKCancel+vbQuestion+vbApplicationModal,"Пауза")
If MsgRet=2 Then WScript.Quit 2

Shell.Run "CMD /C "& Drive &":\I386\UPDATE\RUNONCE.bat", 0, vbTrue
MsgBox "Сейчас будет произведена перезагрузка компьютера!",vbOKOnly+vbExclamation+vbApplicationModal,"Пауза"

For Each OS In GetObject ("winmgmts:{(Shutdown)}//./root/cimv2").InstancesOf("Win32_OperatingSystem")
  Set Security = OS.Security_
  Set PrivObj = Security.Privileges
  PrivObj.Add(18)
  OS.Win32ShutDown 6
Next

Function GetDriveByFyle(file)
  Dim fso, d, dc
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set dc = fso.Drives
  For Each d in dc
    If d.DriveType = 4 Then
      If fso.FileExists(d.DriveLetter &":\"& file) Then
        GetDriveByFyle = d.DriveLetter
        Exit Function
      End If
    End If
  Next
  GetDriveByFyle = ""
End Function