Скрипт: пути баз 1С

Понадобился скрипт, который вытащит из профилей пользователей на терминал сервере, пути до баз 1С, которые у них подключены.

Вот что получилось:

'==========================================================================
' 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 "Все!"

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *