Option Explicit
Sub Main
Dim intReturn As Integer
Dim varUsername As Variant
Dim varPassword As Variant
Dim varDomainName As Variant
Dim intNewDesktop As Integer
Dim intInteractive As Integer
Dim intLaunchExplorer As Integer
Dim intLockMouse As Integer
Dim intLockKeyboard As Integer
varUsername = "username"
varPassword = "password"
varDomainName = "domainname"
intNewDesktop = 1
intInteractive = 1
intLaunchExplorer = 0
intLockMouse = 0
intLockKeyboard = 0
intReturn = Action2.Login (varUsername, varPassword, varDomainName, intNewDesktop, intInteractive, intLaunchExplorer, intLockMouse, intLockKeyboard)
If intReturn = 0 Then
MsgBox "Failure"
MsgBox( Action2.GetLastError )
ElseIf intReturn = 1 Then
MsgBox "Success"
End If
End Sub