Discussion Article

Subject:
.Exe problem
Name:
gary
Email (spam proof):

Email the originator of this post
Date:
Wednesday, November 24, 2004
Hits:
66
Discussion (Terms and Conditions):

Hi,
Just really learning VB so this may sound silly but I'll give it a go!!

I have a vb program that I have saved as an exe that uploads all the software and registry info of PC's to a database. This needs to be done for 500 pc's. I have tried and application that uses DOS called PSEXEC which does actually run the but it obviously involves logging me into each maching because when I look at the DB - my username is down for all machines as Current User!

So what I am trying to do (not sure if it will work!) is to create another script that can shell the other exe to run so I have created this script called Timer.exe that in turn, runs the other script after 5 seconds. 
Again, this works locally but when i try to run it remotely on another machine it gives me a "Runtime Error 5 - Invalid procedure call or arguement"

Does anyone know what the problem is here???  Below is the code for Timer.exe that Runs the other script which is stored on a server and is called elmo.exe

Dim intCnt As Integer

Private Sub Form_Load()
  Timer1.Interval = 1000 ' Add these 3 lines of code where ever you want timer to start calling the function
  Timer1.Enabled = True
  intCnt = 1

End Sub

Private Sub Timer1_Timer()
  If intCnt = 5 Then 'this runs after 5 secs so can be changed to 1 or 2 if you want
    DoEvents
    Shell ("\\eiebhnt050\elmo$\elmo.exe")
    intCnt = 1
    Timer1.Enabled = False '<-- Added this line to stop the timer after run
    Unload Me
  Else
    intCnt = intCnt + 1
  End If
  
End Sub

thanks!!

Gary

Sponsored by the best FTP application on the internet: