WOL (wake-on-lan) - просыпаться по запросу из сети - [36] :: В помощь системному администратору

''' Скрипт для сохранения MAC-адреса в Active Directory
''' FL0od's Bicycles 2008-2009
''' Версия 1.02 (используется вместе с WOLfAD)

On Error Resume Next

Dim AD_Attribute
AD_Attribute = "location" ' Указываем имя атрибута (строкового) объекта типа "компьютер", куда будут сохранятся MAC'и

PutMACtoAD AD_Attribute, GetMAC_String

'
'------------------ Функции и процедуры --------------------
'

Function GetMAC_String
    Dim strNameSpace, strQuery, strMAC

    strNameSpace = "winmgmts:{impersonationLevel=impersonate}//./root/cimv2"
    strQuery = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"

    Set colAdapters = GetObject(strNameSpace).ExecQuery(strQuery)

    For Each objAdapter in colAdapters
        If not Instr(StrMAC,objAdapter.MACAddress)>0 then StrMAC = StrMAC & objAdapter.MACAddress & ";"
    Next

    ''''''wscript.echo StrMAC
    GetMAC_String = StrMAC
End Function

Sub PutMACtoAD(Attr, MAC)
    Dim objSysInfo, objComputer
    Set objSysInfo = CreateObject("ADSystemInfo")
    strComputerDN = objSysInfo.ComputerName
    Set objComputer = GetObject("LDAP://" & strComputerDN)
    objComputer.put Attr,MAC
    objComputer.SetInfo

    Set objComputer = Nothing
    Set objSysInfo = Nothing
End Sub

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению