Tai yra siuo atveju trys vartotojo registracijos taskai, pirmas XP 
kompiuteri, antras vietiniam tinkle, ir trecias pasharintam kompiuteri, jie 
gali buti visi trys vienodi, tokiu atveju vartojui uzteks prisiloginti tik 
prie savo kompiuterio, arba visi trys skirtingi, tokiu atveju reikalingos ir 
trys atskyros autorizacijos, tai as dabar nezinau iki kokios vietos 
nesutampa, jei tik iki tinko autorizacijos, tai pirma reiktu autorizuoti 
vartotoja vietiniam tinkle o po to tik kreiptis i norima kompiuteri, jei 
 >Permision< uzdetas atskyras slaptazodis nuo tinklo tada loginimosi etapai 
yra eiles tvarka, Kompiuteris, Tinklas, Tinkle esantis kompiuteris. Bet 
tokiu atveju palikdamas sistemoje atvira tekstine, kaip suprantu BAT byla, 
automatizuodamas pasijungima kartu su slaptazodziais, pazeidi sauguma zymiai 
labiau, nei visoe 3 vietose nustatydamas ta pati vartotojo varda ir 
slaptazodi.
"Darius" <wizardas@splius.lt> wrote in message 
news:hf8559$iam$1@trimpas.omnitel.net...
> 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
>>
>>
>
>