Скрипт установки клієнта Systems Management Server 2003

Треба було виконать одну задачку для досить великої мережі: переустановить СМС агент на клієнських машинах зі зміною сайту. От і навояв такий скриптець, розповсюджується груповими політиками. Потребуються адмінські (єстєствєнно:) права. Ітак, СКРИПТ:

'=============================================================
'Скрипт установки клиента Systems Management Server 2003
'Проверяет принадлежность клиента к определенному сайту
'и устанавливает в фоне клиент, подключенный к НУЖНОМУ сайту
'© Шеремет Руслан, 10:41 18.11.2008, toor.ua (at) gmail.com
'=============================================================
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
'=============================================================
'Вытягиваем с реестра принадлежность к сайту
'Менять не нужно
'=============================================================
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
Set WshShell = WScript.CreateObject("WScript.Shell")

strKeyPath = "SOFTWARE\Microsoft\SMS\Mobile Client"
strValueName = "AssignedSiteCode"
oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath, _
strValueName,strValue
'=============================================================
'Условие: если клиент уже не пренадлежит
'к сайту "999" - установить клиента с параметром
'иначе ничего не делать
'=============================================================
if (strValue) <> "999" Then
wshShell.Run ("\\%servername%\%sharename%\Client\i386\ccmsetup.exe smssitecode=999")
 end if
'=============================================================
'При установке клиента в процессах будет ccmsetup
'Админские права нужны
'=============================================================