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