Benutzername und Beschreibung in ADS Computerbeschreibung eintragen
Hallo,
ich hätte gerne, wenn sich ein Benutzer in der Domäne anmeldet, dass sich sein Benutzername in die Computerbeschreibung des PC´s einträgt. Gleichzeitig soll aber auch in der Computerbeschreibung in der Active Directory der Loginname und das was in der Beschreibung des Benutzers steht eingetragen werden. (z.B.: Backoffice)
Da ich kein Programmierer bin, hoffe ich das mir von Euch jemand helfen kann.
Ich habe ein VB-Script das ich aber gerne als KIXtart-Script haben möchte.
D.h. der VB-Code soll in KIX-Code umgeschrieben werden.
VB-Code----------------------------------------------
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Dim WshShell
Set objSysInfo = CreateObject("ADSystemInfo")
Set objComputer = GetObject("LDAP:" & objSysInfo.ComputerName)
Set objUser = GetObject("LDAP:" & objSysInfo.UserName)
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objRegistry = GetObject _
("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters"
strValueName = "srvcomment"
strDescription = objUser.Description & "-" & objuser.CN
objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strDescription
strMessage = objUser.Description & " " & objuser.CN
objComputer.Description = strMessage
objComputer.SetInfo
WshShell.Run "cmd /C net stop server /Y", 2, true
WshShell.Run "cmd /C net start server", 2, true
WshShell.Run "cmd /C net start computerbrowser", 2, true
Danke
ich hätte gerne, wenn sich ein Benutzer in der Domäne anmeldet, dass sich sein Benutzername in die Computerbeschreibung des PC´s einträgt. Gleichzeitig soll aber auch in der Computerbeschreibung in der Active Directory der Loginname und das was in der Beschreibung des Benutzers steht eingetragen werden. (z.B.: Backoffice)
Da ich kein Programmierer bin, hoffe ich das mir von Euch jemand helfen kann.
Ich habe ein VB-Script das ich aber gerne als KIXtart-Script haben möchte.
D.h. der VB-Code soll in KIX-Code umgeschrieben werden.
VB-Code----------------------------------------------
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Dim WshShell
Set objSysInfo = CreateObject("ADSystemInfo")
Set objComputer = GetObject("LDAP:" & objSysInfo.ComputerName)
Set objUser = GetObject("LDAP:" & objSysInfo.UserName)
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objRegistry = GetObject _
("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters"
strValueName = "srvcomment"
strDescription = objUser.Description & "-" & objuser.CN
objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strDescription
strMessage = objUser.Description & " " & objuser.CN
objComputer.Description = strMessage
objComputer.SetInfo
WshShell.Run "cmd /C net stop server /Y", 2, true
WshShell.Run "cmd /C net start server", 2, true
WshShell.Run "cmd /C net start computerbrowser", 2, true
Danke
Please also mark the comments that contributed to the solution of the article
Content-Key: 48039
Url: https://administrator.de/contentid/48039
Printed on: April 25, 2024 at 17:04 o'clock