Понадобился скрипт, который вытащит из профилей пользователей на терминал сервере, пути до баз 1С, которые у них подключены.
Вот что получилось:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
'========================================================================== ' VBScript Source File -- Created with SciTE ' NAME: 1c_path_to_base.vbs ' AUTHOR: borin ' DATE : 18.05.2010 ' COMMENT: Скрипт создает лог файл c:\log_1c_title.txt, туда пишет информацию ' о подключенных базах, информацию берет из профелей т.е. из ntuser.dat ' Внимание! Работает на профилях которые не загружены в данный момент. '========================================================================== ' Указываем путь к папке с профилями strPathProfile = "\\a-server\x$\Documents and Settings\" set WshShell = WScript.CreateObject ("WScript.Shell") set objFso = CreateObject("Scripting.FileSystemObject") Set objPathToProfile = objFso.GetFolder(strPathProfile).SubFolders For Each strFolder In objPathToProfile strPathNtuser = strFolder.Path & "\ntuser.dat" WshShell.Run "reg load hku\" & strFolder.Name & " " & chr(34) & strPathNtuser & chr(34),0,TRUE WshShell.Run "%COMSPEC% /C reg query hku\" & strFolder.Name & "\software\1c\1cv7\7.7\Titles >> c:\log_1c_title.txt",0,TRUE WshShell.Run "reg unload hku\" & strFolder.Name,0,TRUE Next MsgBox "Все!" |