I want to run a command in CMD (Command Prompt)

[Crash171]

As the title states, I would like to have a simple macro to run a command in CMD. To expand on this a little, I want to enter a "net use" command.

To open CMD, this works:

Shell "C:\Windows\System32\cmd.exe"

Now how do I send the command? The command is basically "net use j: \\devicename /user:username password".


I would love any input!! Also if there is a better way to open CMD then using "Shell", please let me know.

 

[Crash171]

Still working on this one with no progress... But I can't give up.

 

[Crash171]

Tried this:

Shell "C:\Windows\System32\cmd.exe"
filenameout$ = "C:\Windows\System32\cmd.exe"
        Sess0.Screen.MoveTo 24,28
        Sess0.Screen.Sendkeys("net use j: \\devicename ")
        ODR1$ = Sess0.Screen.GetString(24,28,38)
        Print #1,ODR1$

It opens the command prompt, but does not enter anything into it. My thinking was I could copy the text from Attachmate into the command prompt by designating it as "ODR1$". I use this method to copy order numbers into a text document, but it didn't work.

 

[Crash171]

I'm not sure what I was thinking with the "Shell". Anyway, below is today's progress. Now I have two questions....[highlight #FCAF3E]What object type do I need to use??[/highlight] [highlight #73D216]Will "bWaitOnReturn = True" work to let CMD process the like before moving onto the next?[/highlight] [highlight #3465A4]Will this section correctly close and end CMD?[/highlight]

'Declare the CMD as Object
        Dim xCMD As Object
        [highlight #FCAF3E]Set xCMD = CreateObject("something.something")[/highlight]
        xCMD.Open FileName:="C:\Windows\System32\cmd.exe"
        xCMD.Visible = True
        [highlight #73D216]bWaitOnReturn = True[/highlight]
        
        
'Start work
        xCMD.Sendkeys("net use j: \\devicename")
        
'--------------------------------------------------------------------------------
'   Enter your Username Below
'--------------------------------------------------------------------------------

        xCMD.Sendkeys("/USER:USERNAME")


'--------------------------------------------------------------------------------
'   Enter your Username Above
'--------------------------------------------------------------------------------
'   Enter your Password Below
'--------------------------------------------------------------------------------
        
        xCMD.Sendkeys("PASSWORD")

'--------------------------------------------------------------------------------
'   Enter your Password Above
'--------------------------------------------------------------------------------

[highlight #3465A4]xCMD.quit
Set xCMD = nothing[/highlight]

	System.TimeoutValue = OldSystemTimeout
End Sub

 

[remy988]

please excuse me for asking, but exactly what are you trying to accomplish?

 

[Crash171]

I don't mind you asked at all. I figured it out last night. My goal was to gain access to a virtual drive using a Net Use command in CMD. We have to access the drive once a day. So now I have created the below macro that runs when we open Attachmate.

Shell("cmd.exe /c j: \\devicename /user:username password")

All I was missing from my original post was the "/c".