Black_Lung Цитата: Прописать получение % переменых, vbs напрямую с ними не работает .
Код:
Set WshShell = WScript.CreateObject("WScript.Shell")
username = wshShell.ExpandEnvironmentStrings("%username%")
'Очищаем временные папки
Dim fso, fso1, sfso, i, s, file, files
Dim folder_count, file_count
Dim d_temp, c_temp, local_temp, Cookie, internet_temp, log
Dim s_, folder_count_, file_count_ ,folder_
set fso = CreateObject("Scripting.FileSystemObject")
' папочки можно и дополнить
Set WshShell = WScript.CreateObject("WScript.Shell")
d_temp = wshShell.ExpandEnvironmentStrings("c:\windows\temp")
c_temp = wshShell.ExpandEnvironmentStrings("c:\temp")
Cookie = wshShell.ExpandEnvironmentStrings("c:\Documents and Settings\%username%\Cookies")
internet_temp = wshShell.ExpandEnvironmentStrings("%HOMEDRIVE%\DOCUME~1\%username%\LOCALS~1\Tempor~1\Content.IE5")
doc = wshShell.ExpandEnvironmentStrings("%HOMEPATH%\Recent")
opera_cache = wshShell.ExpandEnvironmentStrings("C:\Documents and Settings\%username%\Application Data\Opera\Opera\profile\cache4\")
'файл лога, необходимо создать пердварительно
log = wshShell.ExpandEnvironmentStrings("d:\clear.log")
спасибо, в таком варианте работает
теперь бы ещё разобраться как извлекать профили юзеров для обработки через реестр по типу :
SetLocal EnableExtensions
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" /V ProfilesDirectory') Do Set Profiles=%%J
Call Set Profiles=%Profiles%
For /F "Delims=" %%I In ('Dir /B /AD-S-H "%Profiles%" ^| FindStr /V /B /I /C:"All Users"') Do (
ну что-то вроде этого :
'#######################################################
On Error Resume Next
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objRegistry=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys
'каким образом объединить скрипт,что я приводил с этим
'#######################################################
да и под семеркой не работает, вот с этой части :
for each i in sfso
в части кода :
for each i in sfso
i.attributes=0
s= dir_name + "\"
s = s + i.name + CHR (13) + CHR (10)
file.Write s
next