Code: Windows Netzwerk

*/ Kurzbeispiel für den Zugriff auf diese Struktur
*/ Der Zugriff erfolgt über: My.Systems.WNetwork
*/ Wird dieses Objekt in einem REPLACE oder einer Schleife SCAN ... ENDSCAN | FOR ... NEXT benötigt
*/ so sollte vor der Schleife die Objektstruktur in eine Variable geholt werden!
*/ Die Ausführungsgeschwindigkeit wird dadurch sehr vergrößert!
*/ Beispiel:
*/ Definieren einer LOKALEN Variablen
LOCAL loWNetwork AS My.Systems.WNetwork
*/ Setzen der Variablen
loWNetwork = My.Systems.WNetwork
*/ Jetzt erst die Schleifen durchlaufen... man beachte ALL, dass können ne Menge Sätze sein...
REPLACE ALL Feldname1 WITH loWNetwork.Function1(),Feldname2 WITH loWNetwork.Function1(), ...
*/ Oder in einer Schleife...
SCAN
	lvValue = loWNetwork.Function(Alias.Spalte) + 25
	lvValue = loWNetwork.Function2(m.lvValue)
	REPLACE Feldname WITH m.lvValue,...
ENDSCAN
*/ Es sind auch geschachtelte Aufrufe möglich...

Memberliste von WNetwork

Liste der Methoden von WNetwork

Hilfeinformation

Variant = My.Systems.WNetwork.AddPrinterConnection(LocalName as String,RemoteName as String,UpdateProfile as Variant,UserName as Variant,Password as Variant)
Variant = My.Systems.WNetwork.AddPrinterConnection(LocalName,RemoteName,UpdateProfile,UserName,Password)

Variant = My.Systems.WNetwork.AddWindowsPrinterConnection(PrinterName as String,DriverName as String,Port as String)
Variant = My.Systems.WNetwork.AddWindowsPrinterConnection(PrinterName,DriverName,Port)

Variant = My.Systems.WNetwork.EnumNetworkDrives()

Variant = My.Systems.WNetwork.EnumPrinterConnections()

Variant = My.Systems.WNetwork.MapNetworkDrive(LocalName as String,RemoteName as String,UpdateProfile as Variant,UserName as Variant,Password as Variant)
Variant = My.Systems.WNetwork.MapNetworkDrive(LocalName,RemoteName,UpdateProfile,UserName,Password)

Variant = My.Systems.WNetwork.RemoveNetworkDrive(Name as String,Force as Variant,UpdateProfile as Variant)
Variant = My.Systems.WNetwork.RemoveNetworkDrive(Name,Force,UpdateProfile)

Variant = My.Systems.WNetwork.RemovePrinterConnection(Name as String,Force as Variant,UpdateProfile as Variant)
Variant = My.Systems.WNetwork.RemovePrinterConnection(Name,Force,UpdateProfile)

Variant = My.Systems.WNetwork.SetDefaultPrinter(Name as String)
Variant = My.Systems.WNetwork.SetDefaultPrinter(Name)

String = My.Systems.WNetwork.ComputerName

String = My.Systems.WNetwork.Organization

String = My.Systems.WNetwork.Site

String = My.Systems.WNetwork.UserDomain

String = My.Systems.WNetwork.UserName

String = My.Systems.WNetwork.UserProfile