Yra jungiamasi i pasarinta kompa, ant jo yra VISTA.
Nuejus i tinkla i ta kompa ir numetus shortcuta exe programos i desktopa 
viskas veikia, perkrauni kompa, nebeveikia, ismeta loginimosi lenta, 
pirsilogini ir ismeta kad tipo neranda tokio failo. Tada bandai nueit per 
tinkla i ta kompa, ismeta access denied. Perkrauni kompa, gali vel per nauja 
sukurt shortcuta, jis veiks iki sekancio restarto.

Vartotoju vardai nesutampa. Jungiamasi is kompu su XP/Vista.

Tai va tokia problema. Del to ir reikalinga loginimosi scriptas, kad 
prisiloginus auto paleistu ta prog.


-- 
Pagarbiai,
Darius

"IF" <nojauslaivas@gmail.com> wrote in message 
news:hf6oju$5jb$1@trimpas.omnitel.net...
> Private Declare Function LogonUser Lib "kernel32" Alias "LogonUserA" 
> (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal 
> lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider 
> As Long, phToken As Long) As Long
>
> Public Function Pasijungimas(Vartotojas As String, AdminoDziaugsmas As 
> String, Slaptazodis As String, Kelias As string) As Long
> Nr As Long
> On Error GoTo Klaida
> Nr = LogonUser(Vartotojas, AdminoDziaugsmas, Slaptazodis, 3, 0)
>   If Nr < 1 Then
>   MsgBox "Maloniai prasome paskambiti Adminui"
>   Exit Function
>   End If
> Shell Kelias
> End Function
>
>
> __________________________
>
> Netikrinau gal kur iveliau klaida. Daug paprastesnis budas 
> elementariausiai padaryti shortcuta i nurodyta kataloga, paprastai sistema 
> turetu vartotojo uzklausti pasijungimo slaptazodzio.
>
> Suvelei cia VB su scriptu, tai parasiau VB, VB.Net vietoj Long bus 
> Integer, Neaisku ar tu ir useri nori automatiskai is to paties kompiuterio 
> pasiimti, tokiu atveju nera prasmes is vis loginti, nes jei sistemos ir 
> kompiuterio useris bei slaptazodis sutampa. pasijungimas vyksta 
> automatiskai
>
>
> P.S Ponai noriu paklausti, gal as ne cia kazkur papuoles, as kaip ir 
> ieskojau programuotoju Newsu, tai gal as ne cia pakliuves
>
>