Skrive til dosprompt

Det bør den da også gøre !

Hvad er forskellen ?

At fra en dospromt udfører den handlingen, og skriver ikke noget i dosprompen, og fra Visual studio udskriver den en masse i konsollen. Jeg synes bare umiddelbart at den burde gøre det i dosprompten også

Hvordan udskriver du ?  Med Console.WriteLine ?

ja

Et eller andet må der være galt.

C:\>type test.vb
Imports System

Module Main
  Sub Main()
      Console.WriteLine("Virker")
  End Sub
End Module
C:\>vbc test.vb
Microsoft (R) Visual Basic .NET Compiler version 7.10.3052.4
for Microsoft (R) .NET Framework version 1.1.4322.573
Copyright (C) Microsoft Corporation 1987-2002. All rights reserved.


C:\>test
Virker

Det er en permanent åben DOS box vi snakker om ikke ?

Altså ikke noget dobbelt klik på EXE i Windows Explorer eller noget Start Run.

Nej den bliver kørt i som i en dosprompt, da den skal have en tekstfil med som parameter. Klienten er som nedenstående:

Imports System
Imports System.Runtime.Remoting
Imports General
Imports System.Runtime.Remoting.Channels.Tcp
Imports System.Runtime.Remoting.Channels

Module Tcpclient

    Sub tcpclient(ByVal LabelValues As Array, ByVal fileName As String)
        Dim channel As New TcpChannel
        ChannelServices.RegisterChannel(channel)

        Dim mgr As LeaseManager = CType(Activator.GetObject( _
            GetType(LeaseManager), "tcp://192.168.1.12:1234/ProvManager.binary"), _
            LeaseManager)

        Console.WriteLine("")
        Console.WriteLine("        Firmanavn")
        Console.WriteLine("")

        Console.WriteLine("Provisioneringsclienten er startet")


        Dim lease As New LeaseInfo

        lease.Ip = LabelValues.GetValue(0)
        lease.MAC = LabelValues.GetValue(1)
        lease.Scope = LabelValues.GetValue(2)
        lease.Debitor = LabelValues.GetValue(3)
        lease.Filnavn = LabelValues.GetValue(4)
        lease.Id = LabelValues.GetValue(5)

        .Write("Hallo")

        Console.WriteLine()
        Console.WriteLine()
        Console.WriteLine("    Leasen indeholder følgende data")
        Console.WriteLine()
        Console.WriteLine("Ipadresse:              " & lease.Ip)
        Console.WriteLine("MACadresse:              " & lease.MAC)
        Console.WriteLine("Scopeadresse:            " & lease.Scope)
        Console.WriteLine("Debitoradresse:          " & lease.Debitor)
        Console.WriteLine("Filnavn:                " & lease.Filnavn)
        Console.WriteLine("Id:                      " & lease.Id)
        Console.WriteLine()
        Console.WriteLine()

        Dim ok As String
        Dim res As sendReply = mgr.Listener(lease)

        If res.Ok Then
            fileManager.createFile(fileName & ".ok", "")
            Console.WriteLine("Provosioneringen er lykkedes")
        Else
            fileManager.createFile(fileName & ".err", "")
            Console.WriteLine("Provisioneringen er mislykkedes")
        End If

        Console.WriteLine()
        Console.WriteLine()
        Console.WriteLine("Tryk på Enter for at afslutte")

        Console.ReadLine()
    End Sub
End Module

Men ovenstående bliver kørt af en administrator, som ikke skal udskrive noget. Det er kun TCPklienten(ovenstående) som skal gøre det.