| Вопрос: Проблемы с FSO, нужна помощь. | Добавлено: 13.04.06 13:49 |
Автор вопроса:  Batkom
|
|
Задача такая:
Нужно автоматически загружать адресную книгу при начале сеанса, затирая старую. Книга лежит на ландиске, который на всех машинах в оффисе настроен как 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 Автор ответа:  HACKER Разработчик 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 |