xcaschox
Goto Top

AD - Computer Beschreibung per vbs automatisch füllen

Hallo,
ich versuche das Beschreibungsfeld vom Computer in der AD automatisch mit einem Script das mit einer GPO gestartet wir zu füllen.
Da ich kein Script experte bin habe ich etwas gegoogelt und das folgende Script gefunden. Das ganze funktioniert auch soweit gut. Allerdings möchte ich gerne noch das Betriebssystem und die Version auslesen und eintragen lassen.

Kann mir jemand Script den Variablen?

Vielen Dank.

Gruß
Carsten


Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

For Each objSMBIOS in objWMI.ExecQuery("Select * from Win32_SystemEnclosure")
serviceTag = replace(objSMBIOS.SerialNumber, ",", ".")
manufacturer = replace(objSMBIOS.Manufacturer, ",", ".")
Next

For Each objComputer in objWMI.ExecQuery("Select * from Win32_ComputerSystem")
model = trim(replace(objComputer.Model, ",", "."))
Next

Set objTextFile = objFSO.OpenTextFile("\\server\logons.csv", 8, True)
objTextFile.WriteLine(date & "," & time & "," & WshNetwork.UserName & "," & WshNetwork.ComputerName & "," & wshNetwork.UserDomain & "," & serviceTag & "," & manufacturer & "," & model)
objTextFile.Close

Set objSysInfo = CreateObject("ADSystemInfo")
Set objComputer = GetObject("LDAP://" & objSysInfo.ComputerName)

if NOT objComputer.Description = WshNetwork.UserName & " (" & serviceTag & " - " & manufacturer & " " & model & ")" then
objComputer.Description = WshNetwork.UserName & " (" & serviceTag & " - " & manufacturer & " " & model & ")"
objComputer.SetInfo
end if

Content-ID: 191246

Url: https://administrator.de/forum/ad-computer-beschreibung-per-vbs-automatisch-fuellen-191246.html

Ausgedruckt am: 23.12.2024 um 10:12 Uhr

bastla
bastla 14.09.2012 um 12:23:10 Uhr
Goto Top
Hallo caschopl!

Da in dem Script ja bereits WMI-Abfragen enthalten sind, solltest Du anhand der Informationen bei MS ( WMI Tasks: Operating Systems) oder anderswo (zB WMI (Windows Management Instrumentation) - Secrets) die nötigen Ergänzungen vornehmen können ...

Grüße
bastla