Datei übertragen auf anderen Server via Visual Studio

Hi!

Hier ein Beispiel. Gefunden in der allgemeinen Hilfe

geschrieben in VB2008 musst du also eventuell ein wenig anpassen und ist ungetestet

Auf System.Management musst du explizit einen Verweis setzen


Imports System
Imports System.Management
Imports System.IO

Module Module1
Sub main()
'User/Passwort übergeben
Dim Anmelden() As String = {"USER", "PASSWORT"}

RemoteConnect.Main_(Anmelden)
End Sub


Public Class RemoteConnect

Public Overloads Shared Function Main_(ByVal args() As String) As Integer

'User/Passwort übernehmen
Dim options As ConnectionOptions
options = New ConnectionOptions
options.Username = args(0)
options.Password = args(1)

'VErbindung aufbauen
Dim scope As ManagementScope
scope = New ManagementScope("\\SERVERNAME:Win32_LogicalDisk.DeviceID=""C:""", options)
scope.Connect()

' Query system for Operating System information
Dim query As ObjectQuery
query = New ObjectQuery( _
"SELECT * FROM Win32_OperatingSystem")
Dim searcher As ManagementObjectSearcher
searcher = _
New ManagementObjectSearcher(scope, query)

Dim queryCollection As ManagementObjectCollection
queryCollection = searcher.Get()

Dim m As ManagementObject
For Each m In queryCollection
' Daten anzeigen
Console.WriteLine("Computer Name : {0}", _
m("csname"))
Console.WriteLine("Windows Directory : {0}", _
m("WindowsDirectory"))
Console.WriteLine("Operating System: {0}", _
m("Caption"))
Console.WriteLine("Version: {0}", m("Version"))
Console.WriteLine("Manufacturer : {0}", _
m("Manufacturer"))
Next

Return 0
End Function
End Class




Grüße!


Mayho