Привет. Есть такой скрипт, который сначала удаляет старую версию программы, потом накатывает новую. Загоняю его в доменные групповые политики - Computer configuration - Windows settings - Scripts - Startup. По идее не должно ничего зависеть от прав пользователя, работающего на машине. Но вот почему -то если юзер не админ, то старая версия удаляется, а новая не ставится. Что я не так делаю?

Option Explicit
Dim blnResult
Dim WshShell
Dim objFSO
Dim strFilePath
Dim strDirectumLNKSource
Dim strDirectumDIRSource
Dim strDirectumLNKDestination
Dim strDirectumDIRDestination
Dim strCompName
Dim objConnection
Dim objCommand
Dim objRecordSet
Dim strOU
Dim str
Dim str2
Dim i
Dim j


Set WshShell = WScript.CreateObject("WScript.Shell")
set objFSO = CreateObject("Scripting.FileSystemObject")
strDirectumLNKSource = "C:\DIRECTUM 4.6.1.lnk"
strDirectumLNKDestination = "C:\Documents and Settings\All Users\Desktop\DIRECTUM 4.6.1.lnk"
strDirectumDIRSource = "C:\DIRECTUM 4.6.1"
strDirectumDIRDestination = "C:\Documents and Settings\All Users\Start Menu\Programs\DIRECTUM 4.6.1"

blnResult = CheckIfRegKeyExist()
If blnResult = True Then
WshShell.Run "msiexec /qn /x {1213A4EF-2DB3-433E-9534-CFD2E8910D27}" , 0, True
On Error Resume Next
strCompName = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.CommandText = _
"SELECT givenName, SN, department, physicaldeliveryofficename,distinguishedName FROM " _
& "'LDAP://dc=orgres,dc=ru' WHERE " _
& "objectCategory='computer'and Name= '" & strCompName & "' "



Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
strOU= cstr (objRecordSet.Fields("distinguishedName").value)
str = strOU
i=1
do while i<>0
i = InStr(i+3, str, "OU=")
if i=0 then
exit do
end if
j = InStr(i, str, ",")
str2 = mid(str, i+3, j-i-3)
loop



Select Case str2
Case "UTO"
WshShell.Run "msiexec /qn /i \\DISTRIB\DISTRIB\DIRECTUM_461_CLIENT\client.msi" , 0, True

End Select


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\FE4A31213BD2E3345943FC2D8E19D072"
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

через политики и запускаю. Только через стартап скриптс. Компьютер сетингс. Через software install почему-то не разрешают

всем спасибо. Похоже что лишний пробел был + долго реплицировалось на серверах

еще оказывается не все. Не у всех через домен до конца выполняется стартап скрипт. Т.е. старого клиента удаляет, нового не ставит

от SYSTEM скрипт выполняется. На некоторых отрабатывает, а на некоторых нет- права на шару вроде у всех ок...

Решили. Не было праву компа на шару на серваке. А так как скрипт выполняется от железа а не от юзера... Вощем кому надо - пользуйтесь. Скрипт 100% рабочий