Страница: 1 |
Вопрос: Проблемы с FSO, нужна помощь. | Добавлено: 13.04.06 13:49 |
Автор вопроса: ![]() |
Задача такая:
Нужно автоматически загружать адресную книгу при начале сеанса, затирая старую. Книга лежит на ландиске, который на всех машинах в оффисе настроен как w:\ Написал такой батник, после чего повесил в автозагрузку: del "%APPDATA%\Microsoft\Address Book\%USERNAME%.WAB" copy w:\test\bat4.wab "%APPDATA%\Microsoft\Address Book\%USERNAME%.WAB" Только вот на некоторых компьютерах %APPDATA%= скажем "c:\Documents and Settings\User1\Application Data" а %USERNAME% = User2 Конечный файл должен имент имя User2.wab Я попробовал сделать это с помощью FileSystemObject, но не знаю, как получить %APPDATA% и как выдрать оттуда кусок с User1.. |
Ответы | Всего ответов: 2 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #1 | Добавлено: 13.04.06 23:57 |
бррррр, иль спать пора, или я торможу причём здесб fso, asp, vbs... ^) |
Номер ответа: 2 Автор ответа: ![]() ![]() ICQ: 250543104 Вопросов: 13 Ответов: 118 |
Профиль | Цитата | #2 | Добавлено: 13.10.06 18:30 |
Сохранить в \\server\netlogon\WAB.VBS
запускать "cscript //nologo \\server\netlogon\wab.vbs" Set objFSO=Createobject("Scripting.Filesystemobject" ![]() Set ObjNet=Createobject("Wscript.Network" ![]() Set objShell=Createobject("Wscript.Shell" ![]() userprofile=objShell.expandenvironmentstrings("%userprofile%" ![]() If Right(userprofile,1)<>"\" Then userprofile=userprofile & "\" user=objNet.Username objFSO.CopyFile "w:\test\bat4.wab", userprofile & "Application Data\Microsoft\Address Book\" & user & ".wab", True If Err.Number<>0 Then Wscript.Echo Err.Description End If |
Страница: 1 |
|