title image


Smiley Klar geht!
Hallo Jens,









Sub RemoteDesktop_Starten()

Dim zelle As Object

'Bereich anpassen

For Each zelle In[a1:a10]

Exec (zelle)

Next

End Sub



Function Exec(IP As String)

Dim a

a = Shell("C:\Programme\Remote Desktop\mstsc.exe" & " /v:" & IP & " /console", 1)

End Function







Code eingefügt mit Syntaxhighlighter 4.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: