Собственно, вот скрипт ---------------------------------------------------

Sub writeline(strline)
Set objTextFile = objFSO.OpenTextFile (strrezfile, ForAppending, True)
objTextFile.WriteLine(strline)
objTextFile.Close
End Sub

Sub restartcomp(strcomputer)
Call writeline(Now & "-" & WSHNetwork.Computername & " - start restart")
Const AppName = "Информация от отдела ИТ"
nastr = MsgBox_
("На вашем компьютере установлены новые файлы, и его требуется перезагрузить."_
& vbNewLine & vbNewLine &_
"Перезагрузите, пожалуйста, ваш компьютер обязательно!,_
если он в течении минуты-двух не перезагрузится сам.", vbOkOnly, AppName)
WScript.Sleep 10000
Dim OpSysSet, obj
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _
"(Shutdown)}//" & strComputer & "/root/cimv2").ExecQuery _
("SELECT * FROM Win32_OperatingSystem" &_
" WHERE Primary=true")
For Each obj In OpSysSet
' obj.Win32Shutdown(2)
Next
End Sub

Sub timeoutprocess
'------------------------------------------------- ждем когда процесс закончится
numcircle = 0
WScript.Sleep 5000
Do
Set colProcesses = objWMIService.ExecQuery_
("Select * from Win32_Process Where Name = 'update.exe'")
If colProcesses.Count = 0 Then
Exit Sub
Else
End If
WScript.Sleep 1000
numcircle = numcircle + 1
Loop Until numcircle > 100
End Sub

Sub provpatch(strspisfile, strveros, strverlang)
'----------------------------------------- начинаем проверку и установку патчей
strinfopatchfile = strpath & "\" & strspisfile
Set objinfopatchfile = objFSO.OpenTextFile(strinfopatchfile, ForReading)
bookrwez = "no"
Do Until objinfopatchfile.AtEndOfStream
strNextLine = objinfopatchfile.Readline
arrServiceList = Split(strNextLine , ",")

numpatch = arrServiceList(0)
If numpatch = "" or UBound(arrServiceList) <> 5 Then
Else
strCheckFileDirEnv = arrServiceList(1)
strCheckFile = arrServiceList(2)
strCheckFileNeedVersion = arrServiceList(3)
strkey = arrServiceList(4)
strStartFile = arrServiceList(5)

'------------------------------ проверка необходимости установки по версии файла
strCheckFile = LCase(Shell.ExpandEnvironmentStrings_
("%" & strCheckFileDirEnv & "%") & strCheckFile)
If objFSO.FileExists(strCheckFile) Then
If objFSO.GetFileVersion(strCheckFile) < strCheckFileNeedVersion Then
'--------------------------------------------------- запускаем установку патча
If boolinstall(numpatch, strkey, strStartFile) = "yes" Then
bookrwez = "yes"
Else
End If
Else
' Call writeline(Now & "-" & WSHNetwork.Computername & "-" & numpatch & "=ok")
End If
Else
Call writeline(Now & "-" & WSHNetwork.Computername_
& "- is dont exist file " & strCheckFile)
End If

End If
Loop
objinfopatchfile.Close
If bookrwez = "yes" Then
strmessa = "net send adminacomp " & WSHNetwork.Computername & ", start restart."
' Shell.Run strmessa
' Call restartcomp(strcomputer)
Else
Call writeline(Now & "-" & WSHNetwork.Computername & "-ok")
End If
End Sub
'---------------------------------------------------------------- end sub provpatch
Function boolinstall(numpatch, strkey, strStartFile)
boolinstall = "no"
strZapuskFile = strpath & "\" & numpatch & "\" & strStartFile
If objFSO.FileExists(strZapuskFile) Then
strzapusk = strpath & "\" & numpatch & "\" & strStartFile & " " & strkey
Shell.run strzapusk
strmessa = "net send adminacomp " & WSHNetwork.Computername_
& ", start patch " & numpatch
' Shell.Run strmessa
Call writeline(Now & "-" & WSHNetwork.Computername_
& "-" & strveros & "-" & stroslanguage & "-install-" & numpatch)
boolinstall = "yes"
WScript.Sleep 30000
Call timeoutprocess
Else
Call writeline(Now & "- is dont exist file " & strZapuskFile)
End If
End Function

'---------------------------------------------------------------- main
On Error Resume Next
' скрипт сделан 23.10.2003
' Денисов Виктор, Тольятти, v-vag@mail.ru.
Sub writeline(strline)
Set objTextFile = objFSO.OpenTextFile (strrezfile, ForAppending, True)
objTextFile.WriteLine(strline)
objTextFile.Close
End Sub

Sub restartcomp(strcomputer)
Call writeline(Now & "-" & WSHNetwork.Computername & " - start restart")
Const AppName = "Информация от отдела ИТ"
nastr = MsgBox ("На вашем компьютере установлены новые файлы, и его требуется перезагрузить." & vbNewLine & vbNewLine & "Перезагрузите, пожалуйста, ваш компьютер обязательно!, если он в течении минуты-двух не перезагрузится сам.", vbOkOnly, AppName)
WScript.Sleep 10000
Dim OpSysSet, obj
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _
"(Shutdown)}//" & strComputer & "/root/cimv2").ExecQuery _
("SELECT * FROM Win32_OperatingSystem" &_
" WHERE Primary=true")
For Each obj In OpSysSet
' obj.Win32Shutdown(2)
Next
End Sub

Sub timeoutprocess
'----------------------------------------------------------------------- ждем когда процесс закончится
numcircle = 0
WScript.Sleep 5000
Do
Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'update.exe'")
If colProcesses.Count = 0 Then
Exit Sub
Else
End If
WScript.Sleep 1000
numcircle = numcircle + 1
Loop Until numcircle > 100
End Sub

Sub provpatch(strspisfile, strveros, strverlang)
'------------------------------------------------------------ начинаем проверку и установку патчей
strinfopatchfile = strpath & "\" & strspisfile
Set objinfopatchfile = objFSO.OpenTextFile(strinfopatchfile, ForReading)
bookrwez = "no"
Do Until objinfopatchfile.AtEndOfStream
strNextLine = objinfopatchfile.Readline
arrServiceList = Split(strNextLine , ",")

numpatch = arrServiceList(0)
If numpatch = "" or UBound(arrServiceList) <> 5 Then
Else
strCheckFileDirEnv = arrServiceList(1)
strCheckFile = arrServiceList(2)
strCheckFileNeedVersion = arrServiceList(3)
strkey = arrServiceList(4)
strStartFile = arrServiceList(5)

'------------------------------------------------ проверка необходимости установки по версии файла
strCheckFile = LCase(Shell.ExpandEnvironmentStrings("%" & strCheckFileDirEnv & "%") & strCheckFile)
If objFSO.FileExists(strCheckFile) Then
If objFSO.GetFileVersion(strCheckFile) < strCheckFileNeedVersion Then
'----------------------------------------------------------------------- запускаем установку патча
If boolinstall(numpatch, strkey, strStartFile) = "yes" Then
bookrwez = "yes"
Else
End If
Else
' Call writeline(Now & "-" & WSHNetwork.Computername & "-" & numpatch & "=ok")
End If
Else
Call writeline(Now & "-" & WSHNetwork.Computername & "- is dont exist file " & strCheckFile)
End If

End If
Loop
objinfopatchfile.Close
If bookrwez = "yes" Then
strmessa = "net send adminacomp " & WSHNetwork.Computername & ", start restart."
' Shell.Run strmessa
' Call restartcomp(strcomputer)
Else
Call writeline(Now & "-" & WSHNetwork.Computername & "-ok")
End If
End Sub
'---------------------------------------------------------------- end sub provpatch
Function boolinstall(numpatch, strkey, strStartFile)
boolinstall = "no"
strZapuskFile = strpath & "\" & numpatch & "\" & strStartFile
If objFSO.FileExists(strZapuskFile) Then
strzapusk = strpath & "\" & numpatch & "\" & strStartFile & " " & strkey
Shell.run strzapusk
strmessa = "net send adminacomp " & WSHNetwork.Computername & ", start patch " & numpatch
' Shell.Run strmessa
Call writeline(Now & "-" & WSHNetwork.Computername & "-" & strveros & "-" & stroslanguage & "-install-" & numpatch)
boolinstall = "yes"
WScript.Sleep 30000
Call timeoutprocess
Else
Call writeline(Now & "- is dont exist file " & strZapuskFile)
End If
End Function

'---------------------------------------------------------------- main
'On Error Resume Next
strCompdisk = "c:\"
strComputer = "."
Const ForAppending = 8
Const ForReading = 1

Dim WSHNetwork, Shell, objFSO, objWMIService, colOperatingSystems
Set WSHNetwork = WScript.CreateObject("WScript.Network")
Set Shell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

strquery = "net send adminacomp " & WSHNetwork.Computername & "-" & WSHNetwork.Username & " - start patch.vbs "
' Shell.Run strquery

'strpath = ".\patch"
'strrezfile = ".\log\patch.txt"

strpath = "c:\patch"
strrezfile = "c:\patch.txt"

Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
strveros = objOperatingSystem.Version
stroslanguage = objOperatingSystem.OSLanguage
strversp1 = objOperatingSystem.ServicePackMajorVersion
Next

Select Case strveros
Case "5.0.2195"
Select Case stroslanguage
'-------------------------------------------------------------------- english 2000
Case "1033"
Call provpatch("w2ken.txt", "2000", "ENU")
'-------------------------------------------------------------------- russian 2000
Case "1049"
Call provpatch("w2kru.txt", "2000", "RUS")
End Select
Case "5.1.2600"
Select Case stroslanguage
'-------------------------------------------------------------------- english XP
Case "1033"
Call provpatch("wxpen.txt", "XP", "ENU")
'-------------------------------------------------------------------- russian XP
Case "1049"
Call provpatch("wxpru.txt", "XP", "RUS")
End Select
End Select

Set Shell = Nothing
'Wscript.Echo "End work script"

Вот конец скрипта -----------------------------------------------------------------