Server 2012 GPO Software İnstallation

Merhaba

Bu işler için SCCM gibi daha uygun bir ürün kullanmanız gerekli, çünkü günün sonunda şunu soracaksınzı kendinize veya size birisi soracaktır,

200 PC var veya 20.000, peki kaç tanesinde bu program yüklendi? GPO ile bu tür raporlar alamayacağınız için ayrıca uğraşmanız gerekecek.

Ama olabilir SCCM lisansınız ve bütçeniz yok ise GPO ile olduğu kadar derseniz öncelikle yazılımınızın msi olması önemli deği silent installation dediğimiz kurulum parametresini içeren bir bat çalıştırmanız gerekli, yani sadece msi göstermeniz yeterli olmaz, program için google da slient install diye arama yaparsanız bilgi bulabilirsiniz.

exe gösteremezsiniz.

exe to msi için

http://www.exemsi.com/

Bu bir örnek çok program var ama ücretsiz var mı bilmiyorum açıkcası.

bir kaç makalede script ile .exeyi gösterip logon sekmesinden yükleme yapılınca oluyor deniyor fakat script ne kadar doğru ne kadar yanlış bilmiyorum 🙂

isterseniz scripti yazayım buraya ;

"

Option Explicit
Dim objReg, objShell,objDNT4
Dim strKeyPath, strComputer

Dim ValueNames, ValueTypes, Value
Dim arrSubkeys, subkey, i, d
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ=1
const ForAppending = 8
d=0
Set objShell = WScript.CreateObject("WScript.Shell")
strComputer = objShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
If Len(subkey)>37 Then
objReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey, ValueNames, ValueTypes
If IsNull(ValueTypes) Then
Else
For i=0 To UBound(ValueTypes)
Select Case ValueTypes(i)
Case REG_SZ
If ValueNames(i)="DisplayName" Then
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & "\" & subkey, ValueNames(i), Value
If Value="Office 2013 Pro Plus" Then
d=1
Exit For
End If
End If
End Select
Next
End If
End If
If d=1 Then Exit For
Next
If d=0 Then
Set objShell = Wscript.CreateObject("Wscript.Shell")
objDNT4="/passive" & " " & "/promptrestart"
objShell.Run ("\\SERVERDC\office2013\setup.exe" & " " & objDNT4)
End If
WScript.Quit

"

bir kaç makalede script ile .exeyi gösterip logon sekmesinden yükleme yapılınca oluyor deniyor fakat script ne kadar doğru ne kadar yanlış bilmiyorum 🙂

 

isterseniz scripti yazayım buraya ;

 

"

Option Explicit
Dim objReg, objShell,objDNT4
Dim strKeyPath, strComputer

Dim ValueNames, ValueTypes, Value
Dim arrSubkeys, subkey, i, d
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ=1
const ForAppending = 8
d=0
Set objShell = WScript.CreateObject("WScript.Shell")
strComputer = objShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
If Len(subkey)>37 Then
objReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey, ValueNames, ValueTypes
If IsNull(ValueTypes) Then
Else
For i=0 To UBound(ValueTypes)
Select Case ValueTypes(i)
Case REG_SZ
If ValueNames(i)="DisplayName" Then
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & "\" & subkey, ValueNames(i), Value
If Value="Office 2013 Pro Plus" Then
d=1
Exit For
End If
End If
End Select
Next
End If
End If
If d=1 Then Exit For
Next
If d=0 Then
Set objShell = Wscript.CreateObject("Wscript.Shell")
objDNT4="/passive" & " " & "/promptrestart"
objShell.Run ("\\SERVERDC\office2013\setup.exe" & " " & objDNT4)
End If
WScript.Quit

 

"

Bilgisayar sektöründe olmaz diye bir şey yok, ama onu oldurmak için harcadığın efor, işin doğrusu, kaç kere çalışacağı, bir sistem güncellenince çalışması için tekrar yapman gereken güncelleme gibi gerçekler nedeni ile bizler hep işin en doğru yolunu öneririz. Eğer bunlar ile uğraşacak kadar vaktiniz var ise tabiki deneyebilrsiniz, ancak nerede çalıştığınızı bilmemek ile birlikte kurumsal firmalarda insanların o kadar çok sorunu ve derdi oluyor ki ( çünkü çok işe karşılık az personel sorunu hemen hemen her IT çalışanının derdi ) insanlar bu konuda artık işi öğrendi, patronun cebinden 3 kuruş çıkmasın diye 20 takla atıp ondan sonra kendi işlerini yetiştirmek için gece gündüz çalışmak yerine, ne istiyorsun? İmaj dağıtmak mı, peki sccm al dağıtalım demeyi öğrendiler.

Özetle bu işin doğrusu msi dır.

açıkcası ceplerinden para çıkmasın ama işimiz yürüsün mantığındalar. hem öğrenmek amaçlı hemde birşeyi geliştirmek amaçlı uğraşıyorum açıkcası tüm gün .exe to .msi aradım ücretsiz bulamadım 🙂 en son script için hala araştırma yapıyorum teşekkür ederim ilgi ve alakanız için.

Rica ederim.