「東雲忠太郎」の平凡な日常のできごと

2024.02.26

SharePointRestAPIでサイトユーザーを取得するコード

カテゴリ： VB.NET

Imports System.Net.Http

Imports System.Text

Imports System.Threading.Tasks

Imports Newtonsoft.Json.Linq

Module Module1

Sub Main()

Dim siteUrl As String = "https://your-sharepoint-site-url"

Dim username As String = "your-username"

Dim password As String = "your-password"

GetSiteUsers(siteUrl, username, password).Wait()

End Sub

Async Function GetSiteUsers(siteUrl As String, username As String, password As String) As Task

Dim credentials As String = Convert.ToBase64String(Encoding.ASCII.GetBytes($"{username}:{password}"))

Using client As New HttpClient()

client.DefaultRequestHeaders.Authorization = New System.Net.Http.Headers.AuthenticationHeaderValue("Basic", credentials)

Dim endpointUrl As String = $"{siteUrl}/_api/web/siteusers"

Dim response As HttpResponseMessage = Await client.GetAsync(endpointUrl)

If response.IsSuccessStatusCode Then

Dim responseContent As String = Await response.Content.ReadAsStringAsync()

Dim json As JObject = JObject.Parse(responseContent)

Dim users As JArray = json("value")

' 取得したユーザーの情報を出力

For Each user As JObject In users

Dim userId As Integer = user("Id")

Dim userName As String = user("Title")

Console.WriteLine($"User ID: {userId}, User Name: {userName}")

Else

Console.WriteLine($"Failed to retrieve site users. StatusCode: {response.StatusCode}")

End If

End Using

End Function

End Module

お気に入りの記事を「いいね！」で応援しよう

Last updated 2024.02.26 03:03:45

[VB.NET] カテゴリの最新記事

IDataErrorInfo インターフェースは、デー… 2024.04.20
SharePointRestAPIでリストに登録されてい… 2024.02.26
SharePointRestAPIで共有フォルダ内のファ… 2024.02.26

【毎日開催】

15記事にいいね！で1ポイント

10秒滞在

いいね! -- / --

次の日記を探す

おめでとうございます！
ミッションを達成しました。

※「ポイントを獲得する」ボタンを押すと広告が表示されます。

Create a Mobile Website

スマートフォン版を閲覧 | PC版を閲覧

「東雲 忠太郎」の平凡な日常のできごと

SharePointRestAPIでサイトユーザーを取得するコード

「東雲忠太郎」の平凡な日常のできごと