全て
| カテゴリ未分類
| 通常
| 数学
| 投資
| 副業
| 転職・就職
| ブログ
| 株Stock
| VBA
| SharePoint
| REST API
| RenderListDataAsStream
| PowerAutomateDesktop
| Graph API
| PowerApps
| PowerAutomate
| PowerFx
| OfficeScriptオフィススクリプト
| PowerAutomate日時Excel日時相互関係
| PowerShell
| Dataverse
| UiPath
| OneDrive
| LINQ
| VB.NET
| C#.NET
| WPFC#.NET
| Git
カテゴリ: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}") Next 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] カテゴリの最新記事
|