yeni bilgisayarlara domain üzerindeki yazıcıyı tanıtmak

grup poliy ile kullanıcılar deploy edebilmen için windows server 2003 R2 veya windows server 2008 kullanıyor olman gerek

win 2003 ü nasıl r2 ye upgrade edebilirim. ettikden sonra bu policy nasıl tanımlarım

2003 R2 ile yazıcı dağıtımıyla ilgili makale var..

http://www.cozumpark.com/blogs/windows_server/archive/2008/03/16/windows-server-2003-r2-zerinde-gpo-ile-yaz-c-da-t-m.aspx

Yukarda ki makalede windows 2003 r2 gerekiyor. Bende 2003 kurulu 2003 ile bunu yapabilmenin bir yolu yok mu

gpo altında bu script ile yapabilirsiniz.

Option Explicit
'On Error Resume Next

Dim wshNetwork
Dim objSysInfo   
Dim objGroup
Dim strUser
Dim strUserPath
Dim objUser
Dim oDict
Dim oGroup

Set wshNetwork = Createobject("Wscript.Network")
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
strUserPath = "LDAP://" & strUser
Set objUser = GetObject(strUserPath)

If IsEmpty(oDict) Then
   Set oDict = CreateObject("Scripting.Dictionary")
   oDict.CompareMode = vbTextCompare
   For Each oGroup In objUser.Groups
       oDict.Add oGroup.Name, "-"
   Next
End If

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

'********************************************************************
If (isMember("YAZICI")) Then
   wshNetwork.AddWindowsPrinterConnection "\\bulundugu yer\yazıcıadı"
   wshNetwork.SetDefaultPrinter "\\bulundugu yer\yazıcıadı"

'********************************************************************

Else

End if

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Function IsMember(sGroup)
  
    IsMember = CBool(oDict.Exists("CN="& sGroup))

End Function

çok teşekkür ederim fakat bu scriptde kendime göre değiştirmem gereken kısımlar hangisi

Selam,

printer'i kurup permissionlari tamamladiktan sonra asagidaki script'i kendine göre düzenleyip clientlara gpo üzerinden startup script seklinde yaziciyi ekleyip default printer olarak dagitabilirsin.

kolay gelsin.

Option Explicit
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\server name\printer name"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection strUNCPrinter

' Here is where we set the default printer to strUNCPrinter
objNetwork.SetDefaultPrinter strUNCPrinter
WScript.Echo "Check the Printers folder for : " & strUNCPrinter

WScript.Quit

bu scriptin uzantısını vb olarak kayıt edip add ile eklemelimiyim yardımınız için çok teşekkürler

bu scriptin uzantısını vb olarak kayıt edip add ile eklemelimiyim yardımınız için çok teşekkürler

vb değil vbs ile kaydedip kullanıcıların olduğu ouda gpo uygulayıp logon scriptinde add ile ekleyip çalıştırabilirsiniz.benim yazdığım script de ekstradan ad de yazıcı diye bir grup oluşturup kullanıcıları bu gruba üye yapmanız gerek.hangisini kullanırsanız.

çok teşekkür ederim arkadaşlar sayenizde bir dertden kurtuldum.