none
Как сделать в описании компьютера было имя зологинившегося пользователя? RRS feed

  • Вопрос

  • Подскажите пожалуйста как можно в домене сделать так чтобы в описании компьютера было имя зологинившегося пользователя?
    (Мой компьютер - свойства- имя компьютера - описание)

Ответы

  • Подскажите пожалуйста как можно в домене сделать так чтобы в описании компьютера было имя зологинившегося пользователя?
    (Мой компьютер - свойства- имя компьютера - описание)
    Можно VBS скриптом, скрипт должен запускаться с параметром, в качестве параметра - описание

    compDescription = Wscript.arguments.Item(0)

    Dim objSWbemServices,colSWbemObjectSet,objSWbemObject
    Set objSWbemServices = GetObject("winmgmts:\\.\root\cimv2")
    Set colSWbemObjectSet = objSWbemServices.InstancesOf("Win32_OperatingSystem")

    For Each objSWbemObject In colSWbemObjectSet
          objSWbemObject.Description = compDescription
          On Error Resume Next
          objSWbemObject.Put_
          If Err.Number <> 0 Then
              WScript.Echo Err.Number & ": " & Err.Description
          End If
    Next

    В качестве параметра передавать %username%

    Если ответ Вам помог, нажмите на изображение зеленой галочки - «пометить как ответ». Если ответ был для Вас полезен, Вы можете пометить это сообщение как «полезное», нажав на ссылку "проголосовать за полезное сообщение" в правом верхнем углу сообщения.
    • Изменено Artem Gusev HCG 6 мая 2009 г. 9:26
    • Помечено в качестве ответа orestych 6 мая 2009 г. 9:29

Все ответы

  • Подскажите пожалуйста как можно в домене сделать так чтобы в описании компьютера было имя зологинившегося пользователя?
    (Мой компьютер - свойства- имя компьютера - описание)
    Можно VBS скриптом, скрипт должен запускаться с параметром, в качестве параметра - описание

    compDescription = Wscript.arguments.Item(0)

    Dim objSWbemServices,colSWbemObjectSet,objSWbemObject
    Set objSWbemServices = GetObject("winmgmts:\\.\root\cimv2")
    Set colSWbemObjectSet = objSWbemServices.InstancesOf("Win32_OperatingSystem")

    For Each objSWbemObject In colSWbemObjectSet
          objSWbemObject.Description = compDescription
          On Error Resume Next
          objSWbemObject.Put_
          If Err.Number <> 0 Then
              WScript.Echo Err.Number & ": " & Err.Description
          End If
    Next

    В качестве параметра передавать %username%

    Если ответ Вам помог, нажмите на изображение зеленой галочки - «пометить как ответ». Если ответ был для Вас полезен, Вы можете пометить это сообщение как «полезное», нажав на ссылку "проголосовать за полезное сообщение" в правом верхнем углу сообщения.
    • Изменено Artem Gusev HCG 6 мая 2009 г. 9:26
    • Помечено в качестве ответа orestych 6 мая 2009 г. 9:29