[Çözüldü] GPO ile .vbs dosyasını user yetkisinde çalıştırma

Merhaba,

Aynı komut setini computer policy olarak dağıtın lütfen.

Merhaba,

Aynı komut setini computer policy olarak dağıtın lütfen.

Merhabalar verdiğimiz policy bu sefer de hiç çalışmadı.

Sanırım udemy eğitimlerine bir GPO eğitimi çekmem lazım, son dönem bu konu çok popüler oldu.

Bu konuyla alakalı bir çözüm geliştirildimi hakan hocam. Bende aynı durumdan sıkıntı yaşıyorum. 

1. Aşağıdaki kod ile hangi bilgisayarda hangi kullanıcı oturum açtı bilgisini Active Directory'deki bilgisayarların açıklama kısmına yazıyor. User yetkisinden mi değil mi tam çözemedim.

2. Şunların çalışması yasak diyelimki User yetkisinden değil buradaki engellediklerimizden herhangi biri kısıtlıyor, peki bu durumda nasıl bir çözüm üretilebilir?

On Error Resume Next

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colcomputersystem = objWMIService.ExecQuery("Select * from Win32_computersystem")
Set colBIOS = objWMIService.ExecQuery("Select * from Win32_BIOS")
For each objcomputersystem in colcomputersystem
Getcomputersystem = objcomputersystem.Model
GetComputerManufacturer = objcomputersystem.Manufacturer
Next
For each objBIOS in colBIOS
GetSerialNumber = objBIOS.SerialNumber
Next
Dim objSysInfo, objUser
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
Set objComputer = GetObject("LDAP://" & objSysInfo.ComputerName)
Dim sSiteName : sSiteName = objSysInfo.SiteName
If Err Then
	sSiteName = "Unknown"
	Err.Clear
End If
 
if LCase(GetComputerManufacturer)="lenovo" then
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct")
For Each objItem in colItems
strModel = "Lenovo " & objItem.Version
Exit For
Next
Getcomputersystem = strModel & " (" & Getcomputersystem & ")"
end if
Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") 
For each objOS in colOSes
GetOS = objOS.caption
GetArch = objOS.OSArchitecture
Next
strMessage = objUser.displayName & "- ACILIS: " & Date & " - " & Left(Time,5) & " - ISLETIM SISTEMI: " & GetOS & " - " & GetArch
objComputer.Description = strMessage
objComputer.SetInfo

On Error Resume Next

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

strMessage = objUser.displayName & " | OTURUM: " & Date & " - " & Left(Time,5)
objComputer.Description = strMessage
objComputer.SetInfo

Kodun sadeleştirilmiş hali. Ama yukardaki politikalar kaldırılmadan bu işlevi nasıl gerçekleştirebiliriz?

w. vs cscript çalışmadan .vbs ler çalışmaz. vbs'ler güncel mimari de güvenli kabul edilmiyor yine de örneğin defender'dan vs çalışmayabilir o yüzden yaptığınız işlemi PS e dönüştürmelisiniz bir şekilde.

Ayrıca böyle bir şeyi yazdırmaya da bence gerek yok çünkü gelişmiş inventory yazılımları hangi kullanıcı açık gösteriyor.

Merhaba, evet artık VBS bitti, PS kullanmanız lazım ama yine İbrahim eklemiş artık GPO, PS' e gerek yok envanter programları bu işi yapıyor.

Aşağıdaki propramları deneyebilirsiniz.

Lansweeper, Spiceworks Inventory, OCS Inventory NG