Forum

GPO ile .vbs dosyas...
 
Bildirimler
Hepsini Temizle

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

8 Yazılar
4 Üyeler
1 Likes
874 Görüntüleme
(@uguryildirim)
Gönderiler: 27
Trusted Member
Konu başlatıcı
 

Merhabalar

Gpo ile XXX.vbs dosyasını başarılı bir şekilde user logon scripte koyduk. Fakat şöyle bir sorunla karşılaştık.

Kullanıcılar kendi makinalarında local administrator yetkisinde iken script sıkıntısız çalışıyor. fakat User veya Power User Yetkisine alınınca başlangıçta Windows Script Host hatası veriyor ve admin yetkisi istiyor.

Bu sorunu nasıl aşabiliriz  ?  Kullanıcılar user yetkisinde olması gerekli.

Yardımcı olur musunuz?

 

 
Gönderildi : 12/10/2017 23:36

Hakan Uzuner
(@hakanuzuner)
Gönderiler: 32965
Illustrious Member Yönetici
 

Merhaba,

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

Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************

 
Gönderildi : 12/10/2017 23:49

(@uguryildirim)
Gönderiler: 27
Trusted Member
Konu başlatıcı
 

Merhaba,

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

 

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

 
Gönderildi : 19/10/2017 16:36

Hakan Uzuner
(@hakanuzuner)
Gönderiler: 32965
Illustrious Member Yönetici
 

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

Bu ileti 9 ay önce Hakan Uzuner tarafından düzenlendi

Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************

 
Gönderildi : 19/10/2017 17:16

(@balanar)
Gönderiler: 74
Estimable Member
 

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?

image
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
Bu ileti 9 ay önce Mustafa Denizli tarafından düzenlendi
 
Gönderildi : 11/07/2023 22:02

(@balanar)
Gönderiler: 74
Estimable Member
 
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?

 
Gönderildi : 17/07/2023 12:53

ibrahim yildiz
(@ibrahimyildiz)
Gönderiler: 4272
Co-Helper
 

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.

'balık vermez, nasıl tutulabildiğine yönlendirir'
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız. Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz. Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************

 
Gönderildi : 17/07/2023 12:59

Hakan Uzuner
(@hakanuzuner)
Gönderiler: 32965
Illustrious Member Yönetici
 

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

Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************

 
Gönderildi : 17/07/2023 18:43

Paylaş: