execute a DOS command via VBA

[rjrobinson2005]

I have been attempting to execute the following DOS command via excel vba

cmd net user KERRS1 /DO >C:\DATA\RJR\users.txt

Dim RetVal
RetVal = Shell("cmd net user KERRS1 /DO >C:\DATA\RJR\users.txt", 1)

although it opens a dos window but does not execute the net user command.

Any suggestions greatly appreciated

 

[tlowry]

Welcome to MrExcel!

Have you tried putting the command(s) into a .bat file and "shell" the .bat file

Sub doDOS()

    Dim RetVal
    RetVal = Shell("c:\temp\demo.bat", 1)


End Sub