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

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

Опрос

gismeteo.ru
Погода на Яндексе
pogoda.ru
meteonova.ru
по телевизору
за окном
в газете
а че его смотреть?
в другом месте
по счетчику гейгера



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

Архив новостей
Февраль 2021 (3)
Январь 2021 (1)
Ноябрь 2020 (2)
Июль 2020 (2)
Июнь 2020 (3)
Май 2020 (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качиваний: 534)

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

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

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


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

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



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


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


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

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