СКРИПТЫ, берет описание компа из АД и устанавливает его Локально.

‘берет описание компа из АД и устанавливает его Локально.

Set WSHNetwork = CreateObject("WScript.Network")

On Error Resume Next

Path = WSHNetwork.ComputerName

Set objSysInfo = CreateObject("ADSystemInfo")

strCompDN = objSysInfo.ComputerName

Set objComp = GetObject("LDAP://" & strCompDN)

strComputer = "."

Set Obj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2").ExecQuery("Select * FROM Win32_OperatingSystem")

For Each object In Obj

'               Wscript.Echo "OldDescription:" & object.Description & vbCrlf &_

'                            "NewDescription:" & objComp.Description

                object.Description = objComp.Description

                object.Put_

Next