Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Принтеры 19.08.04 12:01
Автор: DamNet <Denis Amelin> Статус: Elderman
|
такой вопрос. Есть сеть на основе Win2k и AD, есть несколько принтеров, на которые печатают определенные группы пользователей. сейчас для подключения принтеров используется vbs скрипт (ниже) но..... есть некоторая проблема, после некоторого времени работы, компьютеры перестают его находить. помогает только перезагрука WS.
скритп:
Dim oNet
Dim sPrintServer
Dim sPrinter1, sPrinter2, sPrinter3, sPrinter4, sPrinter5
sPrinter1 = "\\alexandrb\HPLaserJet2200"
sPrinter2 = "\\RECEPTION2\HPLaserJ6L"
sPrinter3 = "\\SVETA\hpLaserJ1000"
sPrinter4 = "\\SVETAM\EPSONStylus1290"
sPrinter5 = "\\KAM\LJ1000"
On Error Resume Next
Set oNet = CreateObject("WScript.Network")
oNet.AddWindowsPrinterConnection sPrinter1
oNet.AddWindowsPrinterConnection sPrinter2
oNet.AddWindowsPrinterConnection sPrinter3
oNet.AddWindowsPrinterConnection sPrinter4
oNet.AddWindowsPrinterConnection sPrinter5
If IsMember("MANAGERS-PRN") then
oNet.SetDefaultPrinter sPrinter1
End If
If IsMember("PROJECTS-PRN") then
oNet.SetDefaultPrinter sPrinter2
End If
If IsMember("BUHGALTERIA") then
oNet.SetDefaultPrinter sPrinter3
oNet.SetDefaultPrinter sPrinter5
End If
If IsMember("DST1-PRN") then
oNet.SetDefaultPrinter sPrinter4
End If
' FUNCTION ============ IsMEmber =====================================================
Function IsMember(sGroup)
' IsMember
' Test to see if user if member of specified group
' sGroup Name of group
' Returns True if user is group member
Dim sAdsPath, oUser, oGroup
' ================= Populate dictionary if not yet created =======================
If IsEmpty(g_oGroupDict) Then
Set g_oGroupDict = CreateObject("Scripting.Dictionary")
g_oGroupDict.CompareMode = vbTextCompare
sAdsPath = oNet.UserDomain & "/" & oNet.UserName
On Error Resume Next
Set oUser = GetObject("WinNT://" & sAdsPath & ",user")
If Err.Number then
IsMember = FALSE
Exit Function
End IF
On Error Goto 0
For Each oGroup In oUser.Groups
g_oGroupDict.Add oGroup.Name, "-"
Next
Set oUser = Nothing
End If
IsMember = CBool(g_oGroupDict.Exists(sGroup))
End Function
'////////////////////////////////////////////////////////////////////////////
заранее спс
|
|
|
подробно о проекте
Анализ криптографических сетевых...
