[AP] 取得server 的domain name

'//取得server 的domain name
ex: AAA/organization，會取得organization的資料

If Strright(Ucase(db.Server), "/O=") = "CHIPMOS" Then
doc.StationCode = Left(doc.Station(0), 1)
End If