[решено] Помогите доработать скрипт

[yanus74]

Здравствуйте!
Помогите пожалуйста улучшить скрипт ( VBS):

On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("WScript.Network")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
objUser.Put "wWWHomePage", objNetwork.ComputerName
objUser.SetInfo

нужно добавить условие.
Если условие выполнено, то записать в атрибут wWWHomePage имя компьютера на котором был запущен скрипт.
В условии нужно сделать проверку, является ли компьютер членом группы "запрет wWWHomePage", если является, то завершить выполнение скрипта, а если нет - выполнить.
Спасибо!

[yanus74]

Оставлю это здесь:
Dim objComputer
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("WScript.Network")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
Set objComputer = GetObject("LDAP://" & objSysInfo.ComputerName )
If not IsComputerMemberOf(objComputer, "wWWHomePage") Then
objUser.Put "wWWHomePage", objNetwork.ComputerName
objUser.SetInfo
End if
Function IsComputerMemberOf(objComputerToCheck, strGroupName)
Dim arrComputerGroups
Dim strComputerGroup

' Initiate as False
IsComputerMemberOf = False

On Error Resume Next
arrComputerGroups = objComputerToCheck.memberOf
If Err.Number <> 0 Then
Exit Function
End If

If IsArray(arrComputerGroups) Then
For Each strComputerGroup In arrComputerGroups
If InStr(strComputerGroup, strGroupName) > 0 Then
IsComputerMemberOf = True
Exit Function
End If
Next
Else
strComputerGroup = arrComputerGroups
If Not IsEmpty(strComputerGroup) Then
If InStr(strComputerGroup, strGroupName) > 0 Then
IsComputerMemberOf = True
End If
End If
End If
End Function ' End IsComputerMemberOf