Управление Dial-in правами из *.asp

[FSA]

Наконец-то научился создавать пользователя NT и одновременно создавать почтовый ящик для него из скрипта.
Теперь проблема, как разрешить доступ пользователю через модем!
На Perl это реализовывалось через API:
=========================
$RasAdminUserSetInfo=new Win32::API("rassapi","RasAdminUserSetInfo",[P,P,P],N);
$RasAdminUserGetInfo=new Win32::API("rassapi","RasAdminUserGetInfo",[P,P,P],N);
..........
$zz=$RasAdminUserGetInfo -> Call( $lpServer, $lpUser, $lpRas_Info);

$lpUser = A_to_U ($UserInfo{"name"});
$zz=$RasAdminUserSetInfo -> Call( $lpServer, $lpUser, $lpRas_Info);
=========================
Просто копировались права уже существующего пользователя.
Может кто объяснит, как подобное можно провернуть на VBScript?