问对Web VB.Net的身份验证

EN

Option Explicit On
Imports System.Net

Dim objFSO As Object
Dim objExec As Object
Dim objNetwork As Object
Dim strComputer As String
Dim strUser As String
Dim User As String
Dim Password As String
Dim Domain As String
Dim URL As String
Dim Cred As String

Dim strTaskName As String
Dim strPackageName As String
Dim strDeliveryMethod As String
Dim strCustomGroup As String

Dim boolStartNow As Boolean
Dim WakeUpMachines As Boolean
Dim boolCommonTask As Boolean

Dim strAutoSync As String
Dim TaskID As String

Dim strConnection As New System.Data.SqlClient.SqlConnection
Dim LDWebService
Dim intTaskID As String
Dim LDService As Object

Dim strDeviceName As String

Sub RunLANDeskTask(ByVal sender As Object, ByVal LDService As MBSDKServiceLD.MBSDKSoap)



End Sub

Sub CreateTask

    User = "username1"
    Password = "password1"
    Domain = "domain1"

    URL = "http://myserver/MBSDKService/MsgSDK.asmx?WSDL"
    Dim MyCredentails As New System.Net.CredentialCache()
    Dim NetCred As New System.Net.NetworkCredential(User, Password, Domain)
    MyCredentails.Add(New Uri(URL), "Basic", NetCred)

strPackageName = "Adobe Acrobat XI PRO"
    strDeliveryMethod = "Standard push distribution"

    Dim strTargetDevice As String
    strTargetDevice = Nothing

    strTaskName = strPackageName & " - " & DateTime.Now & " -Provisioning Task for" & "   " & strComputer

    Try
        RunLANDeskTask(LANDeskMBSDK, LDService.CreateTask(strTaskName,   strDeliveryMethod, strPackageName, False, False, strAutoSync).TaskID)
    Catch ex As Exception
        MsgBox("Error creating task")

    End Try
End Sub