Private Sub Command1_Click()
Dim cmdp As String
Dim cmds As String
 
    cmdp = Environ("comspec")
    cmds = cmdp & " /C net net use > c:\temp\netuse.txt"
    Shell cmds, vbHide
End Sub

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell