Страница: 1 |
Страница: 1 |
Вопрос: Проблемы с 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