snop
local root | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Crash Master
Цитата:| Может я конечно не в тему, но антивирусы уже сами не апдейтятся? |
Апдейтятся сами,но надо настроить время апдейта и частоту и так на каждой машине
Лень двигатель прогресса 
Цитата:| Можно примеры и как откуда и чего это запускать? |
Конечно,мне не жалко
Код:
'************************************************
' File: mapdrives.vbs
' Author: Собствено я
'************************************************
Option Explicit
Dim oArgs,oDrives,WshNetwork,i
Const RootPath = "\\server\home$\staff\"
Const TempPath = "\\server\tmp"
Const AppPath = "\\server\apps"
Const OfficePath = "\\server\office$"
Const ConfedentialPath = "\\server\office$\staff\"
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oArgs=WScript.Arguments
Set oDrives = WshNetwork.EnumNetworkDrives
on error resume next
WshNetwork.MapNetworkDrive "X:",RootPath & WshNetwork.UserName
WshNetwork.MapNetworkDrive "S:",ConfedentialPath & WshNetwork.UserName
WshNetwork.MapNetworkDrive "T:",TempPath
WshNetwork.MapNetworkDrive "Y:",AppPath
WshNetwork.MapNetworkDrive "O:",OfficePath
'*** End
|
Это был скрипт подключения дисков (закинутый в logon script for user configuration in GPO)
Диск X на сервере выглядит как \\server\home$\staff\%username%
А так до появления Exchange,настраивался Аутлук,для роаминг профайлс
Код:
Set objNet = WScript.CreateObject("WScript.Network")
Namer = objNet.UserName
AccountName = namer & "@mail_server"
SMTPAddress = namer & "@mail_server"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Account Manager\Accounts", "00000001"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Account Manager\Accounts\00000001\Account Name", AccountName, "REG_SZ"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Account Manager\Accounts\00000001\Connection Type", "0", "REG_DWORD"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Account Manager\Accounts\00000001\IMAP Prompt for Password", "1", "REG_DWORD"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Account Manager\Accounts\00000001\IMAP Server", "mail_server", "REG_SZ"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Account Manager\Accounts\00000001\IMAP Use Sicily", "0", "REG_DWORD"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Account Manager\Accounts\00000001\IMAP User Name", Namer, "REG_SZ"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Account Manager\Accounts\00000001\SMTP display name", Namer, "REG_SZ"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Account Manager\Accounts\00000001\Smtp email address", SMTPAddress, "REG_SZ"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Account Manager\Accounts\00000001\Smtp Reply to email address", SMTPAddress, "REG_SZ"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Account Manager\Accounts\00000001\SmtP server", "mail_server", "REG_SZ"
|
Добавлено
Crash Master
Если надо могу еще подкинуть,но было бы желательно чтобы остальные тоже поделились.
Авось пригодится
|
