Problems running a UNC command from a button 2

[Modex]

Hi all,

I have set up a small database that records details about a number of machines and would like to be able to jump to the C: drive of any selected machine. I tried doing this via this code, but nothing happens. Could anyone please help me.

Many thanks

ModeX

Private Sub Command124_Click()
On Error GoTo error1
Dim p1 As String
p1 = "\\" & [Server ID] & "\c$"
a = Shell(p1, vbNormalFocus)
GoTo end1
error1:

end1:

Also,
does anyone know of a way to fire up perfmon.exe for a remote machine by the same method. Bascially I would like to find a machine in the database and click a button to look at the performance of that machine

Thanks once again

ModeX

 

[CautionMP]

ModeX,
No answer on part 1, on part 2 try adding the Microsoft Management Console x.x as a reference to your database (Microdoft Visual Basic: Tools=>References, Microsoft Management Console x.x) this will allow you to create an istance of the MMC in code, call the ConnectTo method, then query/view/store information from the subject computer.

Hope this helps,
Brett.

Just because something can be done doesn’t mean it's a good idea...but how will you know 'till you try.

 

[drctx]

this should work.

Private Sub Command0_Click()
On Error GoTo error1
Dim p1 As String
p1 = Environ("SystemRoot") & "\explorer.exe" & " \\" & [Server ID] & "\c$"

Call Shell(p1, vbNormalFocus)

GoTo end1

error1:
MsgBox Err.Description

end1:

End Sub

 

[Modex]

Thanks very much guys, I will check out both pieces of code when I get into work tomorrow.

Very much appreciated

ModeX