Сделать стартовойДобавить в закладки  
Главная страничка Главная страничка
В номере:

    Выходит с 17 июля 2008 г. цена договорная

    Опрос

    конечно, он настанет в 2012 г.
    да, но не в 2012 г.
    нет, это фантастика
    а что такое конец света
    а мне пофиг - я буду уже мертв



    Календарь
    «    Сентябрь 2010    »
    ПнВтСрЧтПтСбВс
     12345
    6789101112
    13141516171819
    20212223242526
    27282930 

    Архив новостей
    Март 2022 (1)
    Декабрь 2021 (1)
    Август 2021 (1)
    Июль 2021 (3)
    Февраль 2021 (3)
    Январь 2021 (1)

    Информация
    VBS скрипт изменения описания удаленного компьютера
    OS, мобильные OS » Windows » WSH скрипты
    автор: dimon, опубликовано: 15 сентября 2010

    Потребовалось менять описания компьютеров в сети, не вставая из-за стола.
    Этот скрипт позволяет, введя имя компьютера новое описание под учетной записью админа домена, изменить описание на любом компьютере в сети.

    Вот что он меняет:

    VBS скрипт изменения описания удаленного компьютера


    А вот собственно и сам скрипт:


    '----------------------------------------------------------------------
    '
    ' Copyright (c)  All rights reserved.
    '
    '
    ' AUTHOR: tudimon.com
    ' DATE: 15.09.2010
    ' NAME: change_discription_comp.vbs
    '
    ' COMMENT:
    '
    ' Изменение описания компьютера (описание то, что видно в проводнике в сетевом окружении)
    ' Имя компьютера и новое описание запрашивается у пользователя.
    ' основная идея взята на  http://forum.vingrad.ru/forum/topic-154708/view-all.html
    '
    '
    '
    '----------------------------------------------------------------------
    On Error Resume Next

    Set objShell = CreateObject("WScript.Shell")

    ' запросим имя компьютера      
    strComputer = ""
    strComputer = InputBox ("Введите имя компьютера для которого нужно добавить (изменить) описание: ","Input computer name", strComputer)

    ' предупредим
    ' MsgBox  "Будем менять описание у " & strComputer

    ' Пингом проверим что комп включен
        Set objScriptExec = objShell.Exec("%comspec% /c ping.exe -n 2 " & strComputer)
        strPingResults = LCase(objScriptExec.StdOut.ReadAll)
        
        If InStr(strPingResults, "ttl=") Then
            ' включен
            
            ' запросим новое описание
            strNewDescription = ""
            strNewDescription = InputBox ("Введите новое описание для " & strComputer ,"Input New Description", strNewDescription)
            
            ' изменим описание
            Set objWMIService = GetObject("winmgmts:\\" & strComputer).InstancesOf("Win32_OperatingSystem")
            For Each x In objWMIService
                x.Description = strNewDescription
                x.Put_
            Next
            
            ' Сообщим результат
            MsgBox "У компьютера " & strComputer & " новое описание = " & strNewDescription
            
        Else
            ' выключен
            MsgBox strComputer & " не пингуется. Попробуйте позвонить позднее :) "
        End If


    Все пояснения, какие только можно придумать, я добавил прямо в скрипте.

    Основная идея взята здесь.

    change_discription_comp.rar [2,37 Kb] (cкачиваний: 547)

     
    Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Чтобы Вам были доступны все функции Вам необходимо либо зарегистрироваться, либо зайти на сайт под своим именем.

    Другие новости по теме:

  • Смена паролей локальных администраторов на компьютерах
  • Скрипт через psexec.exe монтирует на удаленном компьютере том TrueCrypt, ко ...
  • Поиск группы в ACL вложенных папок первого уровня
  • ping2log - запись в лог доступности сервера
  • Способы изменения описания компьютера


  • Комментарии:

    Оставить комментарий



     
    Информация
     
    Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.


    Поиск по сайту:


    Облако тегов
    Android, Arduino, backup, CentOS, cmd, css, div, DLE, DLE хаки, domoticz, dzvents, event, Home Assistant, Linux, log, LUA, Monster, ogf3, RDP, Template, VBS, windows, WSH, бумага, бумажный самолетик, иструкция, Карты, кино, Навигация, оригами, программа, рецензия, рецепт, скрипт, уведомления, фигуры, шаблон, Яндекс, яндекс-карты

    Показать все теги
    Реклама
    раскрутка сайта бесплатно
    Главная страница | Регистрация | Добавить новость | Новое на сайте | Статистика | Поддержка | Правила ресурса Copyright © 2005-2021 by dimon - all right reserved!
    Тираж:           экземпляров.   Дизайн, верстка by dimon