Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - ASP и VBScript

Страница:

 

  Вопрос: Перемещаемый профиль в AD Добавлено: 29.03.04 16:40  

Автор вопроса:  Maximusreal

Суть вопроса в следующем. Есть AD, в нем соответственно пользователи, у каждого пользователя прописан путь к профилю(у всех один и тот же), так вот хотелось бы автоматически у всех прописать другой путь. Есть скрипт который это делает, в Windows 2000 все отлично работает, в Windows 2003 хоть убей не получается, причем непонятно почему. Если есть предложения посоветуйте как быть. Ниже привожу текст скрипта.

 

<html>
<head>
<title>Список пользователей</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
</head>
<TABLE BORDER="1" CELLSPACING="0">
<TR>
    <TD>Username</TD>
    <TD>Name</TD>
    <TD>Description</TD>
    <TD>Last Login</TD>
    <TD>Profile</TD>
   
   
</TR>
<%

Dim sUserInfo

On Error Resume Next

Set oContainer = GetObject("WinNT://inet.ru")


For Each oIADs In oContainer

    If (oIADs.Class = "User") Then
        Set oUser = oIADs
   
        UserName = ""
        FullName = ""
        Descripcion = ""
        LastLogin = ""
        Profile = ""
       
      
       
        UserName = oUser.Name
        FullName = oUser.FullName
        Descripcion = oUser.Description
        LastLogin = oUser.LastLogin
       
        oUser.Profile = "//Server/Netlogon/1"
        Profile = oUser.Profile
       
        oUser.SetInfo
  
       
 
%>

<TR>
    <TD><%=UserName%> </TD>
    <TD><%=FullName%> </TD>
    <TD><%=Descripcion%> </TD>
    <TD><%=LastLogin%> </TD>
    <TD><%=Profile%> </TD>
  
   
<%    End If%> 
<%Next%>
</TABLE>

<body>
</body>
</html>

Ответить

  Ответы Всего ответов: 0  

Нет ответов

Страница:

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам