[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