Valhalla Legends Archive

Does anybody have a free, malware-free application that can crack PST files, an employee im providing support for forgot their password for their pst file.

Let me know!

I check back from time to time..

Hey,

It's been awhile since I've last posted, just started a new job . I was wondering if anyone here had some decent experience with MS Windows Active Directory? My computer systems technologist program taught be a fair amount, but you can only remember so much over 4 years.

Does anyone have any good sugggestions on an Active Directory Resource book? The Windows Server 2008 Resource Kit book looks good but I wasn't able to find one specifically for Windows Server 2K3, not to mention there seems to be a large amount of Active Directory books out there. So, if anyone has any suggestions, it be great to hear them!

Quote from: pianka on May 21, 2009, 07:56 PM
I just assumed he wasn't with her (and the DVDs) otherwise they wouldn't need to stream it

And the winner is........

Quote from: bulletproof tiger on May 20, 2009, 04:22 AM
is this a sexual refernce joke? i dont get it

I already did i joke on that with a hard drive with a broken pin thread a few weeks back.

To explain the story, my girlfriend and I are rather addicted to LOST. We have most of the seasons on DVD up to season 4. I am wondering if anyone has a program that can stream video content from my girlfriends computer where she has the DVD in her DVD drive to mine so we can watch it at the same time. A lot of the time I am not in the same city as she is and am working in Toronto a lot of the time doing IT contract work.

So, I know that I could probably RDP or use some remote connect software to try and do this but I am wondering if anyone had a suggestion of a dedicated program that could do this.

So yeah... any suggestions are appreciated.

Thanks for the advice, I'll give the manufacture a call, hopefully they can let me know the best way to get this resolved.

The pin on the hard drive itself is broken off, I'm assuming as I pulled the "teather" to place the drive into it's slot on the bottom of the laptop, pins got crushed.

I wouldn't mind paying for the data back as long as it's not a massive amount. It is somewhat valuable, having all of my college notes on there, CCNA/CCNP, and CISSP information. I'm going to take it to a local computer store that has some equipment that can modify hardware componets and see what they think of it.

Grok had some good advice that I didn't think of before. I'll look into some exact models online and see what the prices are.

Thanks!

I'm trying to convert a few macros to work from Word 2003 to Word 2007.

The follow code works under Word 2003.


Private Sub UserForm_Initialize()

'Dim wdApp As Word.Application
'Set wdApp = New Word.Application

Dim subfolders As Boolean

Dim MyPath As String
Dim MyPath2 As String
Dim MyPath3 As String
Dim MyPath4 As String
Dim MyPath5 As String

Dim MyName As String

subfolders = False
MyPath = variables.formspath
MyPath2 = variables.formspath & "ACU Forms"
MyPath3 = variables.formspath & "Directors Office"
MyPath4 = variables.formspath & "Insolvency"
MyPath5 = variables.formspath & "Revenue"


'strip quotation marks from path

If Len(MyPath) = 0 Then Exit Sub

'If Asc(MyPath) = 34 Then
'MyPath = Mid$(MyPath, 2, Len(MyPath) - 2)
'End If

'========== Page 1 ====================
'get files from the selected folder path
'and insert them into the select ListBox

'MyName = Dir$(MyPath & "*.*")

CustomFindFile "*.dot", MyPath, False, 1
'========== Page 2 ====================
CustomFindFile "*.dot", MyPath2, False, 2
'========== Page 3 ====================
CustomFindFile "*.dot", MyPath3, False, 3
'========== Page 4 ====================
CustomFindFile "*.dot", MyPath4, True, 4
'========== Page 5 ====================
CustomFindFile "*.dot", MyPath5, True, 5


End Sub


'==========

Function CustomFindFile(strFileSpec As String, path As String, recursive As Boolean, vList As Integer)
Dim fsoFileSearch As FileSearch
Dim i As Integer, j As Integer
Dim insert As Boolean
Dim aSize As Long
Dim bsize As Long
Dim formFiles0() As String 'filenames
Dim formFiles1() As String 'fullpath filenames
Dim k As Integer

k = 0
ClearFindAndReplaceParameters

Set fsoFileSearch = Application.FileSearch
With fsoFileSearch
.NewSearch
.LookIn = path
.filename = strFileSpec
.SearchSubFolders = recursive
If .Execute() > 0 Then
   
    ReDim formFiles0(1 To .FoundFiles.count)
    ReDim formFiles1(1 To .FoundFiles.count)
   
    'assign found files to an array
    For i = 1 To .FoundFiles.count
        'strFileList = strFileList & Dir(.foundfile(i), vbDirectory) & vbCrLf
        'lstFileList.AddItem Dir(.FoundFiles(i), vbDirectory)
         If Dir(.FoundFiles(i), vbDirectory) <> "" Then
            k = k + 1
            formFiles1(k) = .FoundFiles(i)
            formFiles0(k) = Dir(.FoundFiles(i), vbDirectory)
         End If
         
    Next i
   
     'assign files to correpsonding page list
   
    '================== Page 1 - Operations - LIST
    If vList = 1 Then
   
        'remove duplicates from array of filenames
         aSize = UniquifyStringArray(formFiles0, uFormFiles0)
        uFormFiles1 = formFiles1
   
        For i = 1 To aSize
        select_userForm.lstFileList.AddItem uFormFiles0(i)
        Next i
   
    '================== Page 2 - ACU - LIST
    ElseIf vList = 2 Then
   
        aSize = UniquifyStringArray(formFiles0, pg2FormFiles0)
        pg2FormFiles1 = formFiles1
   
        For i = 1 To aSize
        select_userForm.lstFileList2.AddItem pg2FormFiles0(i)
        Next i
       
    '================== Page 3 - AM - LIST
    ElseIf vList = 3 Then
   
        aSize = UniquifyStringArray(formFiles0, pg3FormFiles0)
        pg3FormFiles1 = formFiles1
   
        For i = 1 To aSize
        select_userForm.lstFileList3.AddItem pg3FormFiles0(i)
        Next i
   
    '================== Page 4 - Insolvency - LIST
    ElseIf vList = 4 Then
   
        aSize = UniquifyStringArray(formFiles0, pg4FormFiles0)
        pg4FormFiles1 = formFiles1
   
        For i = 1 To aSize
        select_userForm.lstFileList4.AddItem pg4FormFiles0(i)
        Next i
       
    ElseIf vList = 5 Then
   
        aSize = UniquifyStringArray(formFiles0, pg5FormFiles0)
        pg5FormFiles1 = formFiles1
   
        For i = 1 To aSize
        select_userForm.lstFileList5.AddItem pg5FormFiles0(i)
        Next i
   
    End If

End If
End With

'MsgBox strFileList

End Function


Function UniquifyStringArray(ByRef InputArray() As String, _
    ByRef UniqueArray() As String) As Long

    Dim C As New Collection
    Dim i As Long

    On Error Resume Next

    For i = LBound(InputArray) To UBound(InputArray)
        C.Add InputArray(i), InputArray(i)
    Next

    ReDim UniqueArray(1 To C.count)

    For i = 1 To C.count
        UniqueArray(i) = C(i)
    Next

    UniquifyStringArray = C.count

    Set C = Nothing
End Function


The main problem with the code is located here
in the CustomFileFind Function.


Function CustomFindFile(strFileSpec As String, path As String, recursive As Boolean, vList As Integer)
Dim fso As New FileSystemObject
Dim folder, files
Dim fileArray(1000) As String
Dim folderIdx As Variant
Dim i As Integer, j As Integer, m As Integer
Dim count As Integer
Dim insert As Boolean
Dim aSize As Long
Dim bsize As Long
Dim formFiles0() As String 'filenames
Dim formFiles1() As String 'fullpath filenames
Dim k As Integer

k = 0
count = 1
ClearFindAndReplaceParameters

'With fsoFileSearch
'.NewSearch
'.LookIn = path
'.filename = strFileSpec
'.SearchSubFolders = recursive
'If .Execute() > 0 Then

Set folder = fso.GetFolder(path)
Set files = folder.files

For Each folderIdx In files
    fileArray(count) = folderIdx.name
    count = count + 1
Next

ReDim formFiles0(1 To count)
ReDim formFiles1(1 To count)
   
    'assign found files to an array
For i = 1 To count
    'strFileList = strFileList & Dir(.foundfile(i), vbDirectory) & vbCrLf
    'lstFileList.AddItem Dir(.FoundFiles(i), vbDirectory)
     If Dir(fileArray(i), vbDirectory) <> "" Then
        k = k + 1
        formFiles1(k) = fileArray(i)
        Debug.Print "testing!"
        ' skips over next debug.print... WHY?
        Debug.Print fileArray(i)
        formFiles0(k) = Dir(fileArray(i), vbDirectory)
      End If
         
Next i
Debug.Print "Made it to here!"
     'assign files to correpsonding page list
   
    '================== Page 1 - Operations - LIST
    If vList = 1 Then
   
        'remove duplicates from array of filenames
         aSize = UniquifyStringArray(formFiles0, uFormFiles0)
        uFormFiles1 = formFiles1
       
   
        For i = 1 To aSize
            select_userForm.lstFileList.AddItem uFormFiles0(i)
        Next i
   
    '================== Page 2 - ACU - LIST
    ElseIf vList = 2 Then
   
        aSize = UniquifyStringArray(formFiles0, pg2FormFiles0)
        pg2FormFiles1 = formFiles1
   
        For i = 1 To aSize
        select_userForm.lstFileList2.AddItem pg2FormFiles0(i)
        Next i
       
    '================== Page 3 - AM - LIST
    ElseIf vList = 3 Then
   
        aSize = UniquifyStringArray(formFiles0, pg3FormFiles0)
        pg3FormFiles1 = formFiles1
   
        For i = 1 To aSize
        select_userForm.lstFileList3.AddItem pg3FormFiles0(i)
        Next i
   
    '================== Page 4 - Insolvency - LIST
    ElseIf vList = 4 Then
   
        aSize = UniquifyStringArray(formFiles0, pg4FormFiles0)
        pg4FormFiles1 = formFiles1
   
        For i = 1 To aSize
        select_userForm.lstFileList4.AddItem pg4FormFiles0(i)
        Next i
       
    ElseIf vList = 5 Then
   
        aSize = UniquifyStringArray(formFiles0, pg5FormFiles0)
        pg5FormFiles1 = formFiles1
   
        For i = 1 To aSize
        select_userForm.lstFileList5.AddItem pg5FormFiles0(i)
        Next i
   
    End If

'MsgBox strFileList

End Function


Basically since the FileSearch function is not supported in the Object Library for Word 2007, I tried to use the FileSystemObject to get a listing and a counter to count the total number of files in a specific 'path'. when I debug.printed the array that I placed each filename found, it printed out valid results. When I replaced the variable names and tried to see if I could get the same result from Word 2003, I was unsuccessful.
Once it gets past the "Made it to here!" debug.print, it tries to place those values into these values.
If vList = 1 Then
   
        'remove duplicates from array of filenames
         aSize = UniquifyStringArray(formFiles0, uFormFiles0)
        uFormFiles1 = formFiles1
       
   
        For i = 1 To aSize
            select_userForm.lstFileList.AddItem uFormFiles0(i)
        Next i


My code runs, but produces undesired results. Mainly, instead of placing each filename found into its respected 'tab' it places a '.'

I know the code is buggy around,

'With fsoFileSearch
'.NewSearch
'.LookIn = path
'.filename = strFileSpec
'.SearchSubFolders = recursive
'If .Execute() > 0 Then

Set folder = fso.GetFolder(path)
Set files = folder.files

For Each folderIdx In files
    fileArray(count) = folderIdx.name
    count = count + 1
    debug.print fileArray(count)
Next

ReDim formFiles0(1 To count)
ReDim formFiles1(1 To count)
   
    'assign found files to an array
For i = 1 To count
    'strFileList = strFileList & Dir(.foundfile(i), vbDirectory) & vbCrLf
    'lstFileList.AddItem Dir(.FoundFiles(i), vbDirectory)
     If Dir(fileArray(i), vbDirectory) <> "" Then
        k = k + 1
        formFiles1(k) = fileArray(i)
        Debug.Print "testing!"
        ' skips over next debug.print... WHY? (doesn't print variable name)
        Debug.Print fileArray(i)
        formFiles0(k) = Dir(fileArray(i), vbDirectory)
      End If
         
Next i
Debug.Print "Made it to here!"


So if I can get some advice on what I am doing wrong here, it would be great! I'm not the greatest at Visual Basic, but some help would be nice.

Now my IT Security contract is finisihed, now I'm a contract programmer!

Working with VB Word Macro's for the government(ohhh Caaannnaaddaaa)!

Fuck you economy.

I'm still here.

Although I've been a member and have been aware of vL for almost over a decade now, I still occasionally read the forums. I think the problem has been that people have grown up and moved on in a sense. I started coming here when I was in grade 8 and now I've graduated college. And although I sometimes haven't contributed a lot to these forums, I am a part of it and still wish to see it continue to run.

It depends I think on how vL wishes to continue all this, either as a gaming community which develops things for those games (traditionally what vL started out as) or to move more to a general computing/IT website where professionals can discuess whats on their minds from an IT stand point; articles, etc, either new technologies, etc; which is what I would probably be more interested in.

And as I've learned over spending my time here, being allowed on these forums is a priviledge and not a right; I'm well aware that vL decides where vL wants to go, but I thought I'd put my two cents in.

Hey,


I have a hard drive that I use in a laptop that I removed and plugged into a USB to laptop HD converter to remove files and manage the device on a faster computer. Anyway... once I placed the HD back into the laptop, I must of forced it into the pin slots too hard and a pin was thus bent and not allowing access to it. So I tried to bend it back gently and alas, the pin broke.. oh no.

So, what are my options here? The drive itself is fine, but now it won't sync itself with any computer because of this broken pin. I need the files located on this drive.

What should I do? Got any advice?

I have to subscribe to continue reading that? BS.

Quote from: cokesucker on January 19, 2009, 08:04 PM
possibly its being compressed a hell of a lot more? this is like saying "when i pound my sunglasses with a hammer and stuff them into a thimble then glue them back together again they dont look as good as if i fold them up and put them in my pocket" or should this be a lossy vs lossless discussion?

classic.

I suggest you e-mail Arta, or send hm a private message.

Looks like the project is pretty inactive, possibly dead. So good luck.

http://forum.valhallalegends.com/index.php?board=17;action=display;threadid=6131

http://forum.valhallalegends.com/index.php?topic=8751.0

http://forum.valhallalegends.com/index.php?board=49.0