none
запрос с колонки "Description" RRS feed

  • Вопрос

  • подскажите, как мне запросить с колонки "description" то что в ней написано

    вот есть скрипт который забирает имя компьютера, может чего изменить или подскажите какой параметр у колонки в AD "description"

     

    On Error Resume Next

    Set wshArguments = WScript.Arguments

    Set objComputer = GetObject(wshArguments(0))

    Comp = Mid(objComputer.Name, 4)

    Set oShell = WScript.CreateObject("WScript.Shell")

    oShell.Run  "ping "+comp+" -t"

    15 декабря 2011 г. 6:11

Ответы

  • ... надо, чтоб он забирал, то что написано в описании пользователя...

    Выполняйте привязку к объекту типа ПОЛЬЗОВАТЕЛЬ и читайте значение атрибута Description. Пример:

    On Error Resume Next
    Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser & ",user")
    If Err.Number = 0 Then
    	WScript.Echo objUser.Description
    Else
    	WScript.Echo Err.Number & vbNewLine & Err.Description
    	Err.Clear
    End If
    Set objUser = Nothing

    • Предложено в качестве ответа ILYA [ sie ] SazonovModerator 15 декабря 2011 г. 15:15
    • Помечено в качестве ответа KazunEditor 16 декабря 2011 г. 10:04
    15 декабря 2011 г. 8:01

Все ответы

  • распишу подробно, этот скрипт:

    On Error Resume Next

    Set wshArguments = WScript.Arguments

    Set objComputer = GetObject(wshArguments(0))

    Comp = Mid(objComputer.Name, 4)

    Set oShell = WScript.CreateObject("WScript.Shell")

    oShell.Run  "ping "+comp+" -t"

    у меня работает в контекстном меню на учетках компьютера в AD, т.е. он забирает имя компа и пингует его.

    Я бы хотел запихать в контектсное  мену учетках пользователя подобное, но мне надо, чтоб он забирал, то что написано в описании пользователя, т.к. там пишется имя тачки на которой он сидит

     

     

     

    15 декабря 2011 г. 7:32
  • ... надо, чтоб он забирал, то что написано в описании пользователя...

    Выполняйте привязку к объекту типа ПОЛЬЗОВАТЕЛЬ и читайте значение атрибута Description. Пример:

    On Error Resume Next
    Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser & ",user")
    If Err.Number = 0 Then
    	WScript.Echo objUser.Description
    Else
    	WScript.Echo Err.Number & vbNewLine & Err.Description
    	Err.Clear
    End If
    Set objUser = Nothing

    • Предложено в качестве ответа ILYA [ sie ] SazonovModerator 15 декабря 2011 г. 15:15
    • Помечено в качестве ответа KazunEditor 16 декабря 2011 г. 10:04
    15 декабря 2011 г. 8:01
  • ... надо, чтоб он забирал, то что написано в описании пользователя...

    Выполняйте привязку к объекту типа ПОЛЬЗОВАТЕЛЬ и читайте значение атрибута Description. Пример:

    On Error Resume Next
    Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser & ",user")
    If Err.Number = 0 Then
    	WScript.Echo objUser.Description
    Else
    	WScript.Echo Err.Number & vbNewLine & Err.Description
    	Err.Clear
    End If
    Set objUser = Nothing

    можно не много подробнее, а то не совсем гуру в скриптах
    15 декабря 2011 г. 8:22
  • Что именно требуется пояснить?
    15 декабря 2011 г. 8:50
  • Что именно требуется пояснить?

    как выбрать из Description и вставить в ping:

    oShell.Run  "ping "?????" -t"

    15 декабря 2011 г. 8:54
  • все получилось, спасибо DmitriiV, вот скрипт

    On Error Resume Next

    Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser & ",user")

    Set wshArguments = WScript.Arguments

    Set objUser = GetObject(wshArguments(0))

    WScript.Echo objUser.Description

    comp = objUser.Description

    Set oShell = WScript.CreateObject("WScript.Shell")

    oShell.Run  "ping "+comp+" -t"

     

    подскажите как  добавить не все что написано в поле Description, т.е. например написано: User | log on 11:11

    мне надо только "User"

    15 декабря 2011 г. 9:41
  • ... как  добавить не все что написано в поле Description, т.е. например написано: User | log on 11:11
    мне надо только "User"
    strDescription = "User | log on 11:11"
    strUser = Split(strDescription, " ")(0)
    Главный рабочий инструмент - функция Split().
    15 декабря 2011 г. 11:30
  • ... как  добавить не все что написано в поле Description, т.е. например написано: User | log on 11:11
    мне надо только "User"
    strDescription = "User | log on 11:11"
    strUser = Split(strDescription, " ")(0)
    Главный рабочий инструмент - функция Split().

    чет не получается, можете помочь связать эти скрипты:

    On Error Resume Next

    Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser & ",user")

    Set wshArguments = WScript.Arguments

    Set objUser = GetObject(wshArguments(0))

    WScript.Echo objUser.Description

    comp = objUser.Description

    Set oShell = WScript.CreateObject("WScript.Shell")

    oShell.Run  "ping "+comp+" -t"

     

    strDescription = "User | log on 11:11"
    strUser = Split(strDescription, " ")(0)

    15 декабря 2011 г. 12:58
  • Что-то не могу понять, где у них точки соприкосновения.
    15 декабря 2011 г. 13:10
  • все получилось, спасибо еще раз DmitriiV, вот скрипт:

    On Error Resume Next

    Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser & ",user")

    Set wshArguments = WScript.Arguments

    Set objUser = GetObject(wshArguments(0))

    strDepartment = objUser.Department

    strUser = Split(strDepartment, " ")(0)

    Set oShell = WScript.CreateObject("WScript.Shell")

    oShell.Run "ping "+strUser+" -t"

     

    15 декабря 2011 г. 13:15