My Documents и иже с ними...

[Xander]

Кто-нибудь знает, можно в маздае руками такие штуки создавать?
То есть, можно ли создать фолдер на десктопе, но так, чтобы отображенные там файлы лежали не в
C:\\Documents and Settings\\bla-bla-bla\\Desktop
а, допустим в C:\\job?

[USE]

Все это дело можно в регистри поменять, как для карент юзера так и для локал машин. Т.е. просто можешь перенести все свои десктопы, избранное и т.д. на другой диск.

Вот небольшой скрипт когда-то на перле писал, во времена моего знакомства с ним из кода понятно что и где. если надо будет подробнее, опишу.

Код: [Выделить]


#!/usr/bin/perl

$version="RegEdit v1.0 for WinNT/W2k/XP";

use Win32::Registry;
use Win32::NetAdmin;

$user=Win32::LoginName;

@a=@ARGV;


sub help
{
    die <$version

Usage:  regedit.pl

Commands:

    -doc    Move documents to the $profile
    -url    Show last 25 typed urls
    -show   Show statistics for user \'$user\'
    -env    Change environment (set to Path)
    -start  Set startup.cmd


HELP
}

$now=localtime;

$out_file="$user.dat";

$profile = "E:\\\\home\\\\%USERNAME%";
@sysdir = ("Desktop", "Favorites", "Sendto");
@path = ("f:\\\\util", "f:\\\\util\\\\arc", "f:\\\\util\\\\control", "f:\\\\fidonet\\\\control");
@env = ("Path", "PATHEXT", "windir");

# $lm_run = HKLM Run
$::HKEY_LOCAL_MACHINE->Open("SOFTWARE\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Run",$lm_run);

# $cu_run = HKCU Run
$::HKEY_CURRENT_USER->Open("SOFTWARE\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Run",$cu_run);

# $cu_usf = HKCU User Shell Folders
$::HKEY_CURRENT_USER->Open("SOFTWARE\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Explorer\\\\User Shell Folders",$cu_usf);

# $lm_env = HKLM Env
$::HKEY_LOCAL_MACHINE->Open("SYSTEM\\\\ControlSet001\\\\Control\\\\Session Manager\\\\Environment",$lm_env);

sub show_data
{
    print "$user statistics:\\n\\n";
    foreach $dir (@sysdir)
    {
        $cu_usf->QueryValueEx("$dir", REG_EXPAND_SZ, $path);
        print "$dir located in $path\\n\\n";

    }
    foreach $env (@env)
    {
        $lm_env->QueryValueEx("$env", REG_EXPAND_SZ, $value);
        print "$env are $value\\n\\n";

    }
}

sub set_startup
{
    $lm_run->SetValueEx("home", 0, REG_EXPAND_SZ, "f:\\\\util\\\\control\\\\home.cmd");
    $cu_run->SetValueEx("startup", 0, REG_EXPAND_SZ, "f:\\\\util\\\\control\\\\startup.cmd");
}


#####################################################

sub doc_sec
{
    foreach $dir (@sysdir)
    {
        $cu_usf->SetValueEx("$dir", 0, REG_EXPAND_SZ, "$profile\\\\system\\\\$dir");
    }
    $cu_usf->SetValueEx("Personal", 0, REG_EXPAND_SZ, "$profile\\\\My Documents");
    $cu_usf->QueryValueEx("Personal", REG_EXPAND_SZ, $path);
    $cu_usf->SetValueEx("My Pictures", 0, REG_EXPAND_SZ, "$path\\\\My Pictures");
}

####################################################

sub change_env
{
    $lm_env->QueryValueEx("Path", REG_EXPAND_SZ, $oldpath);
    foreach $path (@path)
    {
        $oldpath = $path.";".$oldpath;
        $lm_env->SetValueEx("Path", 0, REG_EXPAND_SZ, "$oldpath");
    }

    $lm_env->QueryValueEx("PATHEXT", REG_EXPAND_SZ, $oldext);
    $ext = ".PL;".$oldext;
    $lm_env->SetValueEx("PATHEXT", 0, REG_EXPAND_SZ, "$ext");
}


sub typ_url
{
    $::HKEY_CURRENT_USER->Open("SOFTWARE\\\\Microsoft\\\\Internet Explorer\\\\TypedURLs",$cu_tu);
    open(OUT,">$out_file");

    print OUT "$version\\n\\n";
    print OUT "User: $user\\n\\n";
    print OUT "Date: $now\\n\\n";

    print "$version\\n\\n";
    print "User: $user\\n\\n";
    print "Date: $now\\n\\n";
    for ($i=1; $i<=25; $i++)
    {
        $cu_tu->QueryValueEx("url"."$i", REG_SZ, $url);
        print OUT "$url\\n";
        print "$url\\n";
    }
    close(OUT);
}

#show_data();

if( $a[0] eq "-doc" )
{
    doc_sec();
}
elsif( $a[0] eq "-url" )
{
    typ_url();
}
elsif( $a[0] eq "-show" )
{
    show_data();

}
elsif( $a[0] eq "-env" )
{
    change_env();
}
elsif( $a[0] eq "-start" )
{
    set_startup();
}
else
{

    help();
}
$lm_run->Close();
$lm_env->Close();
$cu_usf->Close();
$cu_run->Close();


[Metaller]

А shortcut на папку чем не устраивает?

[USE]

А shortcut на папку чем не устраивает?

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

[NAS]

USE
Свойства папки "Мои документы" той что на раб. столе лежит и там меняй ее размещение как угодно.

[USE]

Свойства папки "Мои документы" той что на раб. столе лежит и там меняй ее размещение как угодно

т.е. кликая правой кнопкой мыши и меняя Target? да так быстро для себя поменять можно, но когда у тебя 200 пользователей на машине может быть, а машин 100 и регистрироваться они могут в любой момент тогда бегать и каждому править путя, чтобы в случае чего можно было восстановить все, не очень правильно. такой способ для ендюзеров

[Xander]

Я вот поменял путь к My Documents, и она перестала у меня в диалогах показываться
А ярлык на папку отродясь в этих диалогах не показывался.

[USE]

Я вот поменял путь к My Documents, и она перестала у меня в диалогах показываться

попробуй сделать Log Off - Log On, если не поможет тогда придется тебе в регистри править. так более надежно будет.

[Oak]

Для 100 пользователей - запихни в скрипт , который при логине запускается смену значений registry

[Xander]

USE, оно у меня уже полгода так живет
"Log on - Log off"...неужели я на такое ламо похож?

[Xander]

Вопрос, соббсно, в том, где еще, кроме как в
SOFTWARE\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Explorer\\\\User Shell Folders
живут эти настройки, и как создавать собственные Shell Folder\'ы...

[YA]

Делал когда-то давно системную папку, которая ложилась в "Мой компьютер". Немного не то, конечно, но если нужно поищу.

[Xander]

Она в системных диалогах показывается на первом уровне иерархии?
Если нет, то не надо

[USE]

Для 100 пользователей - запихни в скрипт , который при логине запускается смену значений registry

я придумал более рациональный способ для переноса всех пользовательских документов и т.п. просто прописываю то что мне надо при помощи $profile = "E:\\\\home\\\\%USERNAME%"; т.е. вместо %USERNAME% будет отображаться каталог с текущим именем пользователя. удобно имхо.

[USE]

[OFF]

"Log on - Log off"...неужели я на такое ламо похож?

да нет просто и профессионалы иногда бывает, что ошибаются либо по невнимательности, либо по усталости и т.п.[/OFF]

Она в системных диалогах показывается на первом уровне иерархии?

есть утилита если не ошибаюсь xq-xsetup называется. так в ней есть много разных твиков, и т.п. настройки системы, разные можно делать, кстати очень легко систему завалить так что с ней надо быть осторожно.

см. на http://www.xteq.com по-моему. но я давно там ее брал уже, сегодня не смог достучаться до него.