隨手記錄: Microsoft

顯示具有 Microsoft 標籤的文章。顯示所有文章

2017年9月29日星期五

Microsoft RemoteApp

下午3:18 Microsoft, MIS No comments

電腦瀏覽器瀏覽網址
https://[Host Name].[Domain Name]/RDWeb/Pages/zh-TW/Default.aspx

行動裝置使用 Microsoft RD Client App 連接
https://[Host Name].[Domain Name]/RDWeb/Feed/webfeed.aspx

安裝使用 RemoteApp 必要條件

Terminal Service Licence
Remote Desktop Gateway
Remote Desktop Service
IIS
CA

這樣做的好處是：

讓行動裝置可以使用電腦版的 Windows Application
如果用戶端電腦沒有安裝Application，例如 Office 授權數量不足，或是某些需要管控的應用程式、ERP等等，可以透過瀏覽器+遠端桌面程事來執行應用程式。
將資料集中在伺服器上。

https://technet.microsoft.com/zh-tw/library/cc755055(v=ws.11).aspx

Excel 連接 MS SQL 資料庫VBA巨集程式

下午5:14 Excel, Microsoft, MIS, Office, SQL, VBA 1 comment

Sub connectSQL()
    Dim Conn As ADODB.Connection
    Dim sConnect As String
    Dim strSqlInstance As String
    Dim strSqlDB As String
    Dim strSqlUser As String
    Dim strSqlPWD As String
    ' strSqlInstance = "SERVER_NAME\INSTANCE"
    ' 如果伺服器只有裝一次 SQL，就只要輸入伺服器名稱
    strSqlInstance = "Your SQL Server Name or IP Address"
    strSqlDB = "Your Database Name"
    strSqlUser = "sa"
    strSqlPWD = "password"
    sConnect = "Provider=SQLOLEDB"
    sConnect = sConnect & ";DATA SOURCE=" & strSqlInstance & ";Initial Catalog=" & strSqlDB
   ' 如果把 User ID=...;Password=... 改成 "Integrated Security=sspi;"，認證方式就變成 AD 登入帳號
    sConnect = sConnect & ";User ID=" & strSqlUser & ";Password=" & strSqlPWD & ";"
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = sConnect
    Conn.Open
   ' 這裡輸入你處理 SQL 的命令
    Conn.Close
End Sub

實際範例：

Sub GetTableValues()
    Dim Conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim intColCounter As Integer
    Dim sConnect As String
    Dim strSqlInstance As String
    Dim strSqlDB As String
    Dim strSql As String
    Dim strWorkSheet As String

    strWorkSheet = "工作表1"
    strSqlInstance = "Your SQL Server Name or IP Address"
    strSqlDB = "Your Database Name"
    strSqlUser = "sa"
    strSqlPWD = "password"

    sConnect = "Provider=SQLOLEDB"
    sConnect = sConnect & ";Data Source=" & strSqlInstance & ";Initial Catalog=" & strSqlDB
    sConnect = sConnect & ";User ID=" & strSqlUser & ";Password=" & strSqlPWD & ";"

    Set Conn = New ADODB.Connection
   ' strSql 設定為查詢資料表的 SQL 命令字串
    strSql = "SELECT * FROM dbo.Asset"

    ' 把資料都放進 rs 資料集合(Recoredset)
    With Conn
        .ConnectionString = sConnect
        .CursorLocation = adUseClient
        .Open
        .CommandTimeout = 0
        Set rs = .Execute(strSql)
    End With

    ' 清除 Excel 工作表內容
    Worksheets(strWorkSheet).Cells.Clear
    ' 如果 rs 資料集的資料筆數屬性大於 0
    If rs.RecordCount > 0 Then
        ' 從 A1 格，開始輸出欄位名稱(橫向 Row)
        For intColCounter = 0 To rs.Fields.Count - 1
           Worksheets(strWorkSheet).Range("A1").Offset(0, intColCounter) = rs.Fields(intColCounter).Name
        Next
        ' 在 A2 格，一次輸出所有資料內容
       Worksheets(strWorkSheet).Range("A2").CopyFromRecordset rs
    Else
        MsgBox ("找不到數據")
    End If
    rs.Close
    Conn.Close
    Set rs = Nothing
    Set Conn = Nothing
End Sub

Run Hyper-V Virtual Machine in VMware Workstation Virtual Machine

下午4:49 Hyper-V, Microsoft, MIS, Virtualization, VMware No comments

在VMware Workstation 裡安裝 Windows Server 2012 R2 Datacenter Edition 試用版虛擬機

安裝完成後，再進行安裝 Hyper-V，會得到

Hyper-V can not be installed: The hypervisor is already running.

這個錯誤訊息。

請先將 VMware Workstation 的 VM Guest 關機，並關掉VMware Workstation，然後找到 VM Guest 目錄中的 .vmx 檔案，內容增加以下三行設定

hypervisor.cpuid.v0 = "FALSE"
mce.enable = "TRUE"
vhv.enable = "TRUE"

然後再次執行 VMware Workstation，並在 VM 的 CPU 選項勾選

Virtualize Intel VT-x/EPT or AMD-V/RVI
Virtualize CPU performance counters

並啟動 VM Guest

開機完成後，登入Windows Server ，執行 Powershell

在 PowerShell 裡執行以下命令，即可進行安裝 Hyper-V

Enable-WindowsOptionalFeature –Online -FeatureName Microsoft-Hyper-V –All –NoRestart

Install-WindowsFeature RSAT-Hyper-V-Tools –IncludeAllSubFeature

Install-WindowsFeature RSAT-Clustering –IncludeAllSubFeature

Install-WindowsFeature Multipath-IO

Restart-Computer

重新開機之後，就可以執行 Hyper-V Manager 了

再研究AADSync

下午5:06 AADSync, Azure, DirSync, Microsoft, MIS, O365, Office 365 No comments

AADSync 的架構是電腦上安裝SQL Express & Azure PowerShell Module

大致流程是

1.連接 AD Server，將資訊 export 到 SQL

2.連接Azure AD，將資訊 export 到 SQL

3.在SQL中比對兩者差異

4.將差異結果 Import 到 Azure AD。

$adConnector = "<CASE SENSITIVE AD CONNECTOR NAME>"
$aadConnector = “<CASE SENSITIVE AAD CONNECTOR NAME>”

Import-Module adsync

$gs = Get-ADSyncGlobalSettings
$p = New-Object Microsoft.IdentityManagement.PowerShell.ObjectModel.ConfigurationParameter "Microsoft.Synchronize.SynchronizationPolicy", String, SynchronizationGlobal, $null, $null, $null
$p.Value = "Delta"
$gs.Parameters.Remove($p.Name)
$gs.Parameters.Add($p)

Set-ADSyncGlobalSettings -GlobalSettings $gs

$c = Get-ADSyncConnector -Name $adConnector
$p = New-Object Microsoft.IdentityManagement.PowerShell.ObjectModel.ConfigurationParameter “Microsoft.Synchronize.ForceFullPasswordSync”, String, ConnectorGlobal, $null, $null, $null
$p.Value = 1
$c.GlobalParameters.Remove($p.Name)
$c.GlobalParameters.Add($p)
$c = Add-ADSyncConnector -Connector $c

Set-ADSyncAADPasswordSyncConfiguration -SourceConnector $adConnector -TargetConnector $aadConnector -Enable $false
Set-ADSyncAADPasswordSyncConfiguration -SourceConnector $adConnector -TargetConnector $aadConnector -Enable $true

如何讓微軟網域帳密與Office 365同步

晚上7:30 AADSync, Azure, DirSync, Microsoft, MIS, O365, Office 365 2 comments

微軟又出了一個同步工具「Azure AD Connect」，以下網址是微軟提供的四種同步方式比較。

AADSync不是使用Windows整合式驗證，也不是系統服務！

因此，當網域管理者變更密碼時，會造成AADSync連接AD失敗，無法讀取帳號資訊，也就無法把正確資料同步到雲端！

所以在更改網域管理者密碼之後，請記得到AADSync裡去設定新的密碼！

公司最近租了Mirosoft Office 365 Business Premium ，所以自己花了一些時間去爬文，想讓網域帳號及密碼，跟微軟雲端帳號密碼同步；但是微軟雲端產品一直在變動，所以在網路上會找到以下三種方法，讓人搞不清楚。

使用 Azure Active Directory 同步工具(簡稱 DirSync)
使用 Forefront Identity Manager 2010 R2
Azure Active DirectorySynchronization Service (簡稱AADSync)

以下是從微軟官網抓下來的比較表：

現在要講的就是用 AADSync來進行同步，怎麼安裝及設定

AADSync 免費的部份可以做單向的同步，也就是從你的 AD Server將帳密同步到 O365 的使用者；日後管理帳密主要都是在你的AD Server上做。

如果要雙向同步，必須購買 AAD Premium 服務…

廢話不多說，直接講怎麼建置！

當然是您要先有微軟網域
在 AD Server上下載 Microsoft Azure Active Directory Sync Service套件，雖然下載是英文版，但是安裝過程都是中文。
這一步最重要，我就是被它呼巄了好久，這裡要輸入的並不是 Azure AD 的帳號，所以你也不用花時間去註冊 Azure AD 帳號；之前以為要輸入Azure AD帳號，就去註冊，偏偏該死的Azure網站驗證帳號不知出什麼問題，簡訊驗證不能發送，電話語音驗證也不行。這裡是要輸入Office 365的管理帳號！
到這一步，AADSync套件已經安裝完成，如果有什麼同步失敗的警告，先不要鳥它。把程式關掉之後，登出Windows，再重新登入，讓AADSync剛才修改的群組權限生效。
接下來，執行 Azure AD Sync 的 Synchronization Service。
在 Synchronization Service Manager 裡，點擊 Connectors
然後在你的網域名稱上 Double Click，開啟內容設定
然後點選左邊Connector Designer 裡的 Configure Directory Partitions，再點擊右邊下方的 Containers 按鍵。
輸入完網域管理者密碼後按下OK
接下來就是勾選要同步哪些 Containers (OU)
完成以上步驟後，就一路按 OK ，回到程式主畫面，這樣就完成了 AADSync 的安裝及設定。
但是要注意的是，AADSync預設是三小時才同步一次！如果您要手動進行動步也很簡單，就去執行 %ProgramFiles%\Microsoft Azure AD Sync\Bin\DirectorySyncClientCmd.exe，程式就會馬上進行同步！