Принтеры установки, основанные на AD составе группы
Эффект на Электрическую Производительность вход воды в систему кабельной системы может иметь серьезное влияние на своей способности поддерживать высокие применения данных скорости передачи как Fast Ethernet и Gigabit Ethernet. В некоторых случаях кабели, которые уже являются около предела длины ссылки (и поэтому бюджет на затухание) для стандарта, могут перестать работать после лавинной рассылки. Это вызвано тем, что, когда кабель промокает, его диэлектрическая производительность изменяется, который влияет на импеданс и связанные параметры потери затухания и возврата.
Кабельная Конструкция и Водный Вход, Это - распространенное заблуждение, что PVC, материал, используемый для покрытия стандартного кабеля для передачи данных, водонепроницаем. Это не; это является гигроскопическим. Стандартная Категория 5e и Категория 6 кабелей имеют покрытие PVC и разработаны для внутреннего использования и не подходят для использования во влажных условиях.
Кабели разработали для использования на открытом воздухе, где влажность или вода присутствуют в любом количестве, включите гидроизолирующие меры, такие как ленты барьера и заполнение геля, которые являются дорогостоящими и иногда ухудшают электрическую производительность. Также стоит отметить, что многие из этих гидроизолирующих гелей являются базирующейся нефтью и являются поэтому неподходящими для использования в закрытом помещении (кроме к точке разграничения), поскольку они представляют пожароопасность. Действительно, расстояние, такие кабели могут быть выполнены в рамках здания, обычно ограничивается национальными стандартами.
Далее, конструкция кабеля влияет на водный вход. Нулевой галоген низкого дыма (LSOH), кабели имеют тенденцию иметь более низкое сопротивление водному входу, потому что используемые материалы вкладывания в ножны являются еще более гигроскопическими, чем PVC. Кабели FTP, с продольным экраном фольги, имеют лучшее сопротивление водному входу как действия материала экранирования как водная лента барьера. Однако нужно отметить, что FTP все еще не водонепроницаем.
Серьезность Воздействия, эффект водного входа также зависит от того, где вода была и как долго. Краткосрочное воздействие середине участка кабеля PVC, с небольшим количеством чистой воды, вряд ли будет иметь любой долгосрочный вредный эффект. С другой стороны, если кабели LSOH, лежащие непосредственно на плите бетонного пола, без включения или защиты, погружены в течение недели, то риск повреждения намного больше. Вода, содержащая растворенные загрязнители от, например, пыльный пол перечисления, также представляет больший риск.
Еще большая угроза, чем эффекты водного входа через кабельную оболочку представлена открытым концом подвергаемого воздействию воды кабеля. Плотно витые пары в кабеле для передачи данных поощряют капиллярное действие, которое может вовлечь значительные расстояния воды в кабель, уничтожив электрические характеристики. Кабель, затронутый таким образом, должен будет почти всегда заменяться.
Существует много способов очистить это. Для части 2 у меня есть vbscript, который запрашивает состав группы и возвращает errorlevel, который можно использовать в пакете. То же могло быть сделано с powershell.
Вот vbscript:
'On Error Resume Next
' GroupCheck - GjM - returns errorlevel 1 if user is member of group, else returns 0
' EX: groupcheck.vbs <groupname>
'
'
option explicit
Dim objADSysInfo, strUser, objGroup, objNetwork, strGroup, objUser, group, bMatched
Dim strGroupToTest, objArgs
set objArgs = wscript.arguments
strGroupToTest = objargs(0)
bMatched = False
'************************
'Make no changes below this point (unless you know why!)
'************************
Set objADSysInfo = CreateObject("ADSystemInfo")
strUser = objADSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
For Each group in objUser.memberOf
Set objGroup = GetObject("LDAP://" & group)
If trim(objGroup.CN) = trim(strGroupToTest) Then
bMatched = True
'wscript.echo "Group match"
Exit For
End If
Next
If bMatched then
'wscript.echo "User in group"
wscript.quit 1
else
'wscript.echo "User not in group"
wscript.quit 0
End If
И вот пакетная программа для вызова его:
:: Test to see if we should run this script
cscript /nologo Groupcheck.vbs "groupname"
if %errorlevel% EQU 0 (
echo Failed groupcheck, exiting...
Goto :EOF
) Else (
echo Passed group check....
'map your printer here
)
Для части 1 я нашел, что некоторый vbscript перечислил принтеры здесь. Ищите showprn файлы. Также найденный этой информацией об установке принтеров от командной строки, которая могла бы быть легче, чем vbscript, который Вы имеете.
То, когда кажется, что вещи являются трудными в окнах, первый вопрос Вы, shold спрашивают себя, "почему это настолько трудно, возможно, существует другой путь". В этом случае, в то время как можно отобразить принтеры в сценарии входа в систему, Вы, вероятно, не были должны. Можно использовать предпочтения групповой политики для применения принтеров к группам, которые Вы хотите без сценариев.
Смотрите на:
Предпочтения GP: Добавьте новый принтер, установите по умолчанию
Одна причина необходимо использовать предпочтения групповой политики
Я использовал бы групповую политику для добавления принтеров, если это возможно. Если необходимо использовать vbs, вот vbscript, который мы используем, чтобы сделать различные вещи определенным группам (добавьте принтеры, добавьте сетевые диски, и т.д.), мы устанавливаем этот сценарий для выполнения через групповую политику за всеми пользователями.
Dim strComputerName
Dim strUserName
Dim strDomainName
Dim wshShell
Dim bForce
Dim bUpdateProfile
Dim adsobj
bForce = true
bUpdateProfile = true
on error resume next
Set wshNetwork = WScript.CreateObject( "WScript.Network" )
Set wshShell = WScript.CreateObject("WScript.Shell" )
do while wshNetwork.username = ""
WScript.Sleep 250
loop
strComputerName = wshNetwork.computerName
strUserName = wshNetwork.userName
strDomainName = wshNetwork.userDomain
adspath = "WinNT://" & strDomainName & "/" & strUserName
set adsobj = getobject(adspath)
'========= MAKE CHANGES BELOW =========
cRemoveExistingDrives()
'=== Map company-wide drives and printers
cMapNetworkDrive "S:", "\\server\Shared$"
cAddNetworkPrinter "\\server\HP3050"
'=== Map Group Specific Drives and printers
for each prop in adsobj.groups
select case UCASE(prop.name)
case "ACCOUNTING USERS"
cAddNetworkPrinter "\\server\AcctngPrinter"
wshNetwork.SetDefaultPrinter "AcctngPrinter"
cMapNetworkDrive "X:", "\\server\accounting$"
case "HR USERS"
cAddNetworkPrinter "\\server\HRPrinter"
wshNetwork.SetDefaultPrinter "HRPrinter"
cMapNetworkDrive "Y:", "\\server\hr$"
end select
next
'========= NO CHANGES BELOW THIS LINE ===========
Sub cRemoveExistingDrives()
on error resume next
Dim colNetDrives
Set colNetDrives = wshNetwork.EnumNetworkDrives
If colNetDrives.Count = 0 then
'No drives
Else
For x = 0 to colNetDrives.count-1 Step 2
wshNetwork.RemoveNetworkDrive colNetDrives.Item(x), bForce, bUpdateProfile
Next
End If
End Sub
Sub cMapNetworkDrive(strDriveLetter, strPath)
on error resume next
wshNetwork.RemoveNetworkDrive strDriveLetter, bForce, bUpdateProfile
wshNetwork.MapNetworkDrive strDriveLetter, strPath
End Sub
Sub cAddNetworkPrinter(strPath)
on error resume next
wshNetwork.AddWindowsPrinterConnection strPath
End Sub
Мне очень нравится использовать Kixtart . Он имеет синтаксис, подобный C, и вы можете настраивать сценарии входа в систему на основе членства в AD.
С Kixtart вы можете сделать;
If InGroup("group1")
$rc = AddPrinterConnection("\\server\printer_a")
$rc = AddPrinterConnection("\\server\printer_b")
$rc = AddPrinterConnection("\\server\printer_c")
EndIf
If InGroup("group2")
$rc = AddPrinterConnection("\\server\printer_d")
$rc = AddPrinterConnection("\\server\printer_e")
$rc = AddPrinterConnection("\\server\printer_f")
EndIf