Click here to Skip to main content
15,907,913 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Maximise already created process Pin
Dave Kreskowiak4-Feb-09 2:21
mveDave Kreskowiak4-Feb-09 2:21 
QuestionBack up ms access database using vb.net2005 Pin
hrishiS12-Jan-09 23:36
hrishiS12-Jan-09 23:36 
AnswerRe: Back up ms access database using vb.net2005 Pin
Tom Deketelaere13-Jan-09 1:42
professionalTom Deketelaere13-Jan-09 1:42 
AnswerRe: Back up ms access database using vb.net2005 Pin
Wendelius13-Jan-09 6:52
mentorWendelius13-Jan-09 6:52 
QuestionImage Processing Pin
nishkarsh_k12-Jan-09 19:24
nishkarsh_k12-Jan-09 19:24 
AnswerRe: Image Processing Pin
Guffa13-Jan-09 1:03
Guffa13-Jan-09 1:03 
QuestionActive Directory Computer Groups in VBA Pin
AaronM_NZ12-Jan-09 16:44
AaronM_NZ12-Jan-09 16:44 
AnswerRe: Active Directory Computer Groups in VBA Pin
AaronM_NZ13-Jan-09 15:06
AaronM_NZ13-Jan-09 15:06 
I have found the answer, based on this post - http://www.tek-tips.com/viewthread.cfm?qid=1245332&page=1[^]

My resulting code now looks like this, in case anyone else is interested:

Sub TestHarness
    Set objTrans = CreateObject("NameTranslate")
   
    objTrans.Set 3, "<domainname>\<servername>$"
    strComputerDN = objTrans.Get(1)
    
    Set objComputer = GetObject("LDAP://" & strComputerDN)
    colGroups = objComputer.MemberOf
    
    For i = 0 To UBound(colGroups)
        ActiveCell.Value = GetGroup(colGroups(i))
        ActiveCell.Offset(1, 0).Select
    Next
End Sub
 
Function GetGroup(strGroup) As String
    z = Split(strGroup, ",")
    If Left(z(0), 3) = "CN=" Then
        GetGroup = Right(z(0), Len(z(0)) - 3)
    Else
        GetGroup = ""
    End If
End Function

QuestionHow To Make A file Read only Pin
sarfarazaliqureshi12-Jan-09 9:11
sarfarazaliqureshi12-Jan-09 9:11 
AnswerRe: How To Make A file Read only Pin
EliottA12-Jan-09 9:46
EliottA12-Jan-09 9:46 
AnswerRe: How To Make A file Read only Pin
Dave Kreskowiak12-Jan-09 10:36
mveDave Kreskowiak12-Jan-09 10:36 
AnswerRe: How To Make A file Read only Pin
Eddy Vluggen12-Jan-09 21:11
professionalEddy Vluggen12-Jan-09 21:11 
QuestionDesign time UserControls Pin
Burnsys212-Jan-09 8:09
Burnsys212-Jan-09 8:09 
QuestionProgramatically activate a form without showing it! Pin
User 540919012-Jan-09 6:55
User 540919012-Jan-09 6:55 
AnswerRe: Programatically activate a form without showing it! Pin
Dave Kreskowiak12-Jan-09 11:08
mveDave Kreskowiak12-Jan-09 11:08 
QuestionProblem Executing Append Query Pin
Calferreira12-Jan-09 3:30
Calferreira12-Jan-09 3:30 
AnswerRe: Problem Executing Append Query Pin
Eddy Vluggen12-Jan-09 3:38
professionalEddy Vluggen12-Jan-09 3:38 
GeneralRe: Problem Executing Append Query Pin
Calferreira12-Jan-09 3:43
Calferreira12-Jan-09 3:43 
AnswerRe: Problem Executing Append Query Pin
EliottA12-Jan-09 3:39
EliottA12-Jan-09 3:39 
GeneralRe: Problem Executing Append Query Pin
Calferreira12-Jan-09 3:41
Calferreira12-Jan-09 3:41 
GeneralRe: Problem Executing Append Query Pin
EliottA12-Jan-09 3:43
EliottA12-Jan-09 3:43 
GeneralRe: Problem Executing Append Query Pin
Calferreira12-Jan-09 3:45
Calferreira12-Jan-09 3:45 
GeneralRe: Problem Executing Append Query Pin
EliottA12-Jan-09 3:47
EliottA12-Jan-09 3:47 
GeneralRe: Problem Executing Append Query Pin
Calferreira12-Jan-09 3:48
Calferreira12-Jan-09 3:48 
GeneralRe: Problem Executing Append Query Pin
Eddy Vluggen12-Jan-09 3:48
professionalEddy Vluggen12-Jan-09 3:48 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.