AD megjelenitese kliensen

[Ambróz Zoltán]

From: techinfo-bounces at lista.sulinet.hu [mailto:techinfo-bounces at lista.sulinet.hu] On Behalf Of Laszlo Beres
Sent: Monday, April 12, 2010 3:48 PM
To: techinfo at lista.sulinet.hu
Subject: AD megjelenitese kliensen

> tegyuk fel, hogy van egy Windows XP kliensem AD-ba kotve. 
> Hogyan tudom belepes utan megjeleniteni az aktualis 
> DC/AD/autentikacios szerver nevet, cimet?

Ha ablakban szeretned, akkor a logon script-bol:

Set objWshShell = WScript.CreateObject("WScript.Shell")
strComputer = Mid(objWshShell.ExpandEnvironmentStrings("%LOGONSERVER%"),3)

Set objWMIService = GetObject( _ 
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select IPAddress from Win32_NetworkAdapterConfiguration ")
 
For Each IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then 
        For i=LBound(IPConfig.IPAddress) _
            to UBound(IPConfig.IPAddress)
		WScript.Echo strComputer & " NIC(" & CStr(i) & "): " & IPConfig.IPAddress(i)                
        Next
    End If
Next

ha hatterkent kell, akkor hasonlo javascript tartalmu html file-t kellene beallitani wallpapernek, csak ebben az esetben lehet, hogy nyafog az ActiveX tartalom miatt.
Udv, AZ