adamst
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
хотелось бы поделится как сделать автоматический разворот Pandion
вот этим скриптом копирую при загрузке системы программы и выставляю ярлыки
Dim fso
Dim wshshell
Dim wshproenv
Set fso = CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set wshproenv = wshshell.Environment("PROCESS")
pr = wshproenv("programfiles")
'MsgBox pr & "\Pandion\"
'если нет этого файла то копировать всю папку
If FSO.FileExists(pr+"\Pandion\Pandion.exe")=false then
FSO.CopyFolder "\\dc\Documents\Filer\install\Pandion",pr+"\Pandion",true
End IF
'WScript.Echo "Добавляем в автозагрузку чат, для захода в чат введите данные логин@pdc пароль 123456"
Set WSHShell = WScript.CreateObject("WScript.Shell")
' Читаем путь к автозагрузке всех пользователей системы
DesktopPath = WSHShell.SpecialFolders("AllUsersStartup")
' Создаем ярлык на Рабочем столе
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & _
"\Чат завода.lnk")
' Задаем свойства объекта-ярлыка и сохраняем их
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings _
("%programfiles%\Pandion\Pandion.exe")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings _
("%programfiles%\Pandion\")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings _
("%programfiles%\Pandion\Pandion.exe, 0")
MyShortcut.Save
''''''''''''''***************************''''''''''''''''''''''''''''
' Читаем путь к Рабочему столу
DesktopPath = WSHShell.SpecialFolders("AllUsersDesktop")
' Создаем ярлык на Рабочем столе
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & _
"\Чат завода.lnk")
' Задаем свойства объекта-ярлыка и сохраняем их
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings _
("%programfiles%\Pandion\Pandion.exe")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings _
("%programfiles%\Pandion\")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings _
("%programfiles%\Pandion\Pandion.exe, 0")
MyShortcut.Save
DesktopPath = WSHShell.SpecialFolders("AllUsersStartup")
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(DesktopPath+"\UserPandion.vbs")=false then
FSO.CopyFile "\\dc\Documents\Filer\install\UserPandion.vbs",DesktopPath+"\"
' MsgBox "файла нет, хотя... " & DesktopPath & "\"
Else
' MsgBox "файл существует уже " & DesktopPath & "\UserPandion.vbs"
End If
****************************************
это при логоне пользователя
у всех пользователей домена один и тот же пароль, а в базу завожу самостоятельно в соответсвтии какой у него логин для входа в систему, при логоне копирую все настройки с предварительно подготовленного файла настроек и потом подправляю, так что пользователь просто логинется и если я для него завел учетку то у него заработает чат...
Dim fso
Dim wshshell
Dim wshproenv
'создаем для работы с файлами
Set fso = CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")
'для работы с переменными'
Set wshproenv = wshshell.Environment("PROCESS")
dirPr = wshproenv("USERPROFILE")
If FSO.FileExists(dirPr & "\Application Data\Pandion\global.xml")=false then
'MsgBox dirPr & "\Application Data\Pandion"
FSO.CopyFolder "\\dc\Documents\Filer\install\UserPandion\Pandion",dirPr+"\Application Data\Pandion",true
End IF
userNow = wshproenv("USERNAME")
'правим XML файл т.е. подставляем пользователя который будет логинится'
'Set doc = WScript.CreateObject("MSXML2.DOMDocument.4.0")
Set doc = CreateObject("Microsoft.XMLDOM")
doc.async=false
doc.validateOnParse=true
doc.load(dirPr & "\Application Data\Pandion\global.xml")
Set AdresUser = doc.selectsingleNode("/settings/last_address")
AdresUser.text=userNow & "@pdc"
doc.save(dirPr & "\Application Data\Pandion\global.xml")
|
