Forum

Client Pc lerin Des...
 
Bildirimler
Hepsini Temizle

[Çözüldü] Client Pc lerin Description ınına gpo ile belirlemek

3 Yazılar
3 Üyeler
0 Likes
631 Görüntüleme
(@SemihSENTURK)
Gönderiler: 88
Estimable Member
Konu başlatıcı
 

merhaba 

windows server 2012  dc ye sahip yapımızıda kullanıcılar lokal user hakkına sahip.  program kurma,descriripton değiştirme  v.s. yetkileri yok, bilgisayar description kısımlarına gpo ile lokasyon adını yazdırmam lazım ,örneğin ankara ou sundaki pc lere bu policy ile otomatik nasıl description verebilirim

 teşekkürler 

 
Gönderildi : 18/04/2014 18:19

(@m-oguzhanozkurt)
Gönderiler: 1323
Noble Member
 

Merhaba ;

Aşağıdaki scripti ihtiyacınız doğrultusunda düzenlerseniz  sorununuz çözülecektir.

On Error Resume Next

‘ GET COMPUTER/USER ACCOUNT INFO
Set objSysInfo = CreateObject(“ADSystemInfo”)
Set objNet = CreateObject(“WScript.Network”)

strCompDN = objSysInfo.ComputerName
Set objComp = GetObject(“LDAP://” & strCompDN)

strUserDN = objSysInfo.UserName
Set objUser = GetObject(“LDAP://” & strUserDN)

‘ DEFINE THE STRING YOU WANT IN THE DESCRIPTION FIELD(S)
strDescription = “Last Logon: ” & objUser.displayName & ” (” &_
LCase(objUser.sAMAccountName) & “) – ” & Now

‘ SET AD OBJECT COMPUTER DESCRIPTION
objComp.Description = strDescription
objComp.SetInfo

‘ SET REGISTRY COMPUTER DESCRIPTION
‘ BELOW SETS THE COMPUTER DESCRIPTION UNDER THE “Computer Name” TAB
‘ IN WINDOWS
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = “.”
Set StdOut = WScript.StdOut
Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” &_
strComputer & “\root\default:StdRegProv”)
strKeyPath = “SYSTEM\CurrentControlSet\services\LanmanServer\Parameters”
strValueName = “srvcomment”
strValue = strDescription
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

  

 
Gönderildi : 18/04/2014 22:32

(@vasviuysal)
Gönderiler: 7891
Üye
 
Gönderen: @m-oguzhanozkurt

Merhaba ;

Aşağıdaki scripti ihtiyacınız doğrultusunda düzenlerseniz  sorununuz çözülecektir.

On Error Resume Next

‘ GET COMPUTER/USER ACCOUNT INFO
Set objSysInfo = CreateObject(“ADSystemInfo”)
Set objNet = CreateObject(“WScript.Network”)

strCompDN = objSysInfo.ComputerName
Set objComp = GetObject(“LDAP://” & strCompDN)

strUserDN = objSysInfo.UserName
Set objUser = GetObject(“LDAP://” & strUserDN)

‘ DEFINE THE STRING YOU WANT IN THE DESCRIPTION FIELD(S)
strDescription = “Last Logon: ” & objUser.displayName & ” (” &_
LCase(objUser.sAMAccountName) & “) – ” & Now

‘ SET AD OBJECT COMPUTER DESCRIPTION
objComp.Description = strDescription
objComp.SetInfo

‘ SET REGISTRY COMPUTER DESCRIPTION
‘ BELOW SETS THE COMPUTER DESCRIPTION UNDER THE “Computer Name” TAB
‘ IN WINDOWS
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = “.”
Set StdOut = WScript.StdOut
Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” &_
strComputer & “\root\default:StdRegProv”)
strKeyPath = “SYSTEM\CurrentControlSet\services\LanmanServer\Parameters”
strValueName = “srvcomment”
strValue = strDescription
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

  

Sadece bu script ile bu işlemi yapamazsınız eğer kullanıcılarınız bilgisayarlarında lokal admin değil ise , descriptionu yazabilmesi için yetki vermeniz gerekir.

 

 
Gönderildi : 17/06/2022 09:31

Paylaş: