automate new accounts

[Rbartlem]

BackTrackPasswords.xls
	A	B	C	D	E	F
1	Password	UserName	Company	EmailAddress	Add	Remove
2	bu0OB1PT	AMPMTowing	AMPMTowing		Add	Remove
3	K9Yk7Lp0	MMTowing	M&MTowing		Add	Remove
4	779H8PrL	PJTowing	PJ'sTowing		Add	Remove
5	WW5Qn5Y5	LouiesTow	Louie'sTowing		Add	Remove
6	H8jW6tKa	OscarTow	Oscar's/WaikemTowing		Add	Remove
Sheet1

Ok... What I would like to do is make it so the add buttons and remove buttons do certain commands.... I tried using vbscript to make a standalone app to add

'NewBackupUser
Dim WshShell
Dim Message
Dim Title
Title = "Create New Backup User"
Set WshShell = WScript.CreateObject("WScript.Shell")
Name = InputBox("What would you like the username to be. Must be less than 20 characters and can

not contain \/:*?<>: or quotation marks",Title,"USERNAME", 4000, 2000)
Password = InputBox("What would you like the username to be. Must be less than 14 characters and

can not contain \/:*?<>: or quotation marks",Title,"PASSWORD", 4000, 2000)
Email = InputBox("What is the email address?",Title,"Email address", 4000, 2000)
WshShell.Run "RemoteManagementClient.exe xx.xxx.xxx.xx.x TapeStor CREATE " & Name & " "

& Password & " "" & Email & "" " & Email
Wscript.Echo "Done"

but I want the add button to do all that and instead of it prompting for username and password I want it to get them from their cell in the sheet... any ideas?

 

[Norie]

Do I have to select the entire row or just one cell in that row for it to work?

Just one cell.

What you posted looks OK to me, but I don't know what the syntax is for your command.

To test if the correct command is being produced by the code try this:

Msgbox strCommand & strAccount

BTW why are you using the WSScript object?

Why not use the VBA Shell command?

Perhaps something like this?

Shell(strCommand & strAccount)

 

[Rbartlem]

I'm sorry I'm not sure what would need to be changed to use shell instead? or what needs to be changed to get the msgbox to work... what I tryed for the message box just gave me an error....

Sub NewUser()
   'Create New User
Dim ws As Worksheet
Dim strCommand As String
Dim strAccount As String
Dim UserRow As Long
    
    Set ws = ActiveSheet
    
    UserRow = ActiveCell.Row
  
    strCommand = "RemoteManagementClient.exe 66.106.68.226 2003 TapeStor CREATE "
    
    strAccount = ws.Range("A" & UserRow) & " " 'Company
    strAccount = strAccount & ws.Range("C" & UserRow) & " " 'Password
    strAccount = strAccount & Chr(34) & ws.Range("B" & UserRow) & Chr(34) & " " 'Username
    strAccount = strAccount & ws.Range("D" & UserRow) 'Email Address
                
    Set wsShell = CreateObject("wscript.shell")
    Set proc = wsShell.Exec(strCommand & strAccount)

    Set wsShell = Nothing
    Set proc = Nothing

End Sub

 

[Norie]

What message box are you referring to?

To use shell it might look something like this:

Sub NewUser() 
   'Create New User 
Dim ws As Worksheet 
Dim strCommand As String 
Dim strAccount As String 
Dim UserRow As Long 
Dim retval    

    Set ws = ActiveSheet 
    
    UserRow = ActiveCell.Row 
  
    strCommand = "RemoteManagementClient.exe 66.106.68.226 2003 TapeStor CREATE " 
    
    strAccount = ws.Range("A" & UserRow) & " " 'Company 
    strAccount = strAccount & ws.Range("C" & UserRow) & " " 'Password 
    strAccount = strAccount & Chr(34) & ws.Range("B" & UserRow) & Chr(34) & " " 'Username 
    strAccount = strAccount & ws.Range("D" & UserRow) 'Email Address 
 
     retval = Shell(strCommand & strAccount)
            
'    Set wsShell = CreateObject("wscript.shell") 
'    Set proc = wsShell.Exec(strCommand & strAccount) 

'    Set wsShell = Nothing 
'    Set proc = Nothing 

End Sub

 

[Rbartlem]

Is there a way to make it so it doesn't automatically close the cmd window after the command is run? That way I can see how the server is responding...

 

[Norie]

Take a look at the Shell statement in help.

You can pass another parameter that sets the window.

That might be what you are looking for.

 

[Rbartlem]

I looked but I can't find anything that will keep it open. Do you have any suggestions? Maybe I should start a new forum on Keep a shell window open ???

 

[Norie]

It might be an idea to start a new thread.

When you used the other method did it keep the window open?

If it did you may as well revert to that.

 

[Rbartlem]

no both methods close automatically... I think I will start a new thread...

Thanks for your help!

 

[Norie]

Rbartlem

Is your code working other than having problems with keeping the window open?

 

[Rbartlem]

I don't have it configured on the server side yet to recieve the connection. I believe it is working but the only way for me to see for sure is if the window stayed open. That way when the server responds I can see what it says. If I could have it somehow echo whatever else is responded by the server that would work also.