avhimkov
3/18/2017 - 1:22 PM
rename_pc.vbs
имя компьютера
strComputer = «comp»
‘ описание компьютера
strNewDescription = «dimon»
‘ изменим описание
Set objWMIService = GetObject(«winmgmts:\\» & strComputer).InstancesOf(«Win32_OperatingSystem»)
For Each x In objWMIService
x.Description = strNewDescription
x.Put_
Next