[Petya V4sechkin]

Скрипт для создания интернет-соединения

[19w85]

Скрипт для создания интернет-соединения »

По теме:
1) CMAK - не вариант абсолютно
2) Скрипт AutoIt на Win7 x64 не работает, т.е. сразу встает на паузу. Да и не скрыто он я так понимаю работает.
3) Оба скрипта vbs, "старый" и "улучшенный", (кстати "старый" скрипт я уже раньше находил и пробовал). Сейчас еще раз попробвал, оба vbs. Оба не работают, видно что "улучшенный" "нажимает" совершенно не те кнопки (видимо опять под XP всё). Да и даже если бы работал, отображаются все действия как если бы это всё делалось вручную.

В "улучшенном" vbs правда есть нужная часть кода (которая тоже работает не так как должна):

'В интернет-соединении ставим галочку "Сохранять имя пользователя и пароль", если не стоит

но даже если исправить (думаю смогу), толку всё равно от этого почти нет, т.к. это почти тот же самый ручной метод, т.к. всё отображается и после доработки, чтобы этот vbs сработал и поставилась галочка на сохранение логина-пароля обязательно в свойствах соединения понадобится, чтобы было включено "Запрашивать логин-пароль", т.к. без этого окна ничего не сработает.

Сабж всё ещё актуален.

[Iska]

1) CMAK - не вариант абсолютно »

Отчего так?

[19w85]

Отчего так? »

http://forum.oszone.net/post-1094156-7.html

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

[Kazun]

Особо не тестировал,но у меня под Windows 7 отработало,как надо.

Код:

$code = @"
const int UNLEN = 256;
const int PWLEN = 256;
const int DNLEN = 15;

[DllImport("Rasapi32.dll ", CharSet=CharSet.Auto, SetLastError=true)] 
public static extern uint RasSetCredentials( 
  [MarshalAs(UnmanagedType.LPWStr)]
  string lpszPhonebook,
  [MarshalAs(UnmanagedType.LPWStr)]
  string lpszEntry,
  LPRASCREDENTIALS lpCredentials,
  bool fClearCredentials
);

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Auto)] 
public struct LPRASCREDENTIALS { 
  public uint dwSize;
  public uint dwMask;
  [MarshalAs(UnmanagedType.ByValTStr, SizeConst = UNLEN + 1)]
  public string szUserName;
  [MarshalAs(UnmanagedType.ByValTStr, SizeConst = PWLEN + 1)]
  public string szPassword;
  [MarshalAs(UnmanagedType.ByValTStr, SizeConst = DNLEN + 1)]
  public string szDomain;
}
"@

Add-Type -MemberDefinition $code -Namespace Ras -Name RasCred

#Путь к Phonebook
$pbk = "$env:APPDATA\Microsoft\Network\Connections\Pbk\rasphone.pbk"
#Название соединения
$con = "MyNet"

$StrCred = New-Object Ras.RasCred+LPRASCREDENTIALS

<#
http://msdn.microsoft.com/en-us/library/aa376730(v=vs.85).aspx
dwMask флаги

3 - 1 -bor 2 (UserName -bor Password)

RASCM_UserName = 0x00000001,
RASCM_Password = 0x00000002,
RASCM_Domain = 0x00000004,
RASCM_DefaultCreds = 0x00000008,
RASCM_PreSharedKey = 0x00000010,
RASCM_ServerPreSharedKey = 0x00000020,
RASCM_DDMPreSharedKey = 0x00000040

#>

$StrCred.dwMask = 3
$StrCred.szUserName = "Test"
$StrCred.szPassword = "Test"

[Ras.RasCred]::RasSetCredentials($pbk,$con,$StrCred,$false)

[19w85]

Kazun,
Огромное спасибо, работает идеально!

P.S. Как чувствовал, что Вы моя последняя надежда на нормальное решение сабжа...так оно и оказалось

[19w85]

Kazun,
А можно попросить ещё чуток дополнить скрипт?
Добавить возможность передавать имя соединения при помощи доп. ключа при запуске скрипта, вместо фиксированно заданного тут:

Код:

$con = "MyNet"

Т.е. типа такого:

Код:

powershell .\temp.ps1 -Name "Name Connect"

P.S. В идеале, конечно, передавать "Имя соединения+UserName+Password" но необходимый минимум хотя бы имя соединения.

[Kazun]

Добавить в верхушку скрипта:

param($Name)

Удалить строку: $con = "MyNet"

И исправить [Ras.RasCred]::RasSetCredentials($pbk,$con,$StrCred,$false) на [Ras.RasCred]::RasSetCredentials($pbk,$name,$StrCred,$false)

Собственно для UserName,Password:

Код:

param(
 	$Name,
	$UserName,
	$PassWord
)

[19w85]

Kazun,
Ещё раз огромное спасибо, теперь сабж можно считать решённым на все 100%