Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Windows Новый топик    Ответить
 помогите плиз со скриптом разобраться  [new]
mx111
Member

Откуда:
Сообщений: 255
Есть задача посредством АД снести старого клиента и установить нового
Вот сам скрипт как делали в прошлый раз. Разобраться не могу. не силен в скриптах

Option Explicit
Dim blnResult
Dim WshShell
Dim objFSO
Dim strFilePath
Dim strDirectumLNKSource
Dim strDirectumDIRSource
Dim strDirectumLNKDestination
Dim strDirectumDIRDestination

Set WshShell = WScript.CreateObject("WScript.Shell")
set objFSO = CreateObject("Scripting.FileSystemObject")
'strFilePath = "C:\Documents and Settings\All Users\Application Data\NPO Computer\IS-Builder\systeminfo.xml"
'strDirectumLNKSource = "C:\sроводник системы DIRECTUM 4.4.lnk"
'strDirectumLNKDestination = "C:\Documents and Settings\All Users\Desktop\sроводник системы DIRECTUM 4.4.lnk"
'strDirectumDIRSource = "C:\DIRECTUM 4.4"
'strDirectumDIRDestination = "C:\Documents and Settings\All Users\Start Menu\Programs\DIRECTUM 4.4"

blnResult = CheckIfRegKeyExist()
If blnResult = True Then
WshShell.Run "msiexec /qn /x {DAD31F8D-025C-43C3-B8B2-E0CBCA21E905}" , 0, True
'objFSO.DeleteFile(strFilePath)
WshShell.Run "msiexec /qn /i \\distrib\DISTRIB\DIRECTUM441_CLIENT\Client_ORGRES.msi" , 0, True
'On Error Resume Next
'objFSO.MoveFile strDirectumLNKSource, strDirectumLNKDestination
'On Error Resume Next
'objFSO.MoveFolder strDirectumDIRSource, strDirectumDIRDestination
End If

Function CheckIfRegKeyExist()
Const HKEY_LOCAL_MACHINE = &H80000002
Dim objRegistry
Dim arrSubKeys
Dim strStartKey
Dim varResult

strStartKey = "SOFTWARE\Classes\Installer\Products\AFA6100A62983BC4E85DDD079DB1AE96"
Set objRegistry = GetObject("winmgmts:root\default:stdregprov")

objRegistry.EnumKey HKEY_LOCAL_MACHINE, strStartKey, arrSubKeys
On Error Resume Next
If arrSubkeys Then
CheckIfRegKeyExist = True
Else
CheckIfRegKeyExist = False
End If
Set objRegistry = Nothing
End Function
23 сен 08, 12:15    [6216691]     Ответить | Цитировать Сообщить модератору
Все форумы / Windows Ответить