Programm per Batchdatei starten und Parameter übergeben und mit Visual Basic auslesen

Danke für deine Antwort.

Nein es ist nicht kaputt. Ich habe einfach nichts gefunden.

Gruss

Stefan

Danke funktioniert aber nicht

Die neuste,
ich programmiere mit visual studio 2012

Ich habe jetzt einmal ein Testprojekt gemacht.

Wie muss ich das jetzt eingeben in der Kommandozeile und wo wird der Wert hineingeschrieben?

Wie muss ich den das bei meinem Programm machen ich schicke euch mal den Quellcode

Imports Microsoft.Win32
Imports System

Module DMS_Integration_deaktivieren

Private Property objShell As Object

Sub Main()
Dim WshShell
Dim OsType
Dim objFSO
Dim fso
Dim createfolder
Dim ESO
Dim Antwort As Char
Dim p As Process
ESO = CreateObject("Scripting.FileSystemObject")
objFSO = CreateObject("Scripting.FileSystemObject")
WshShell = CreateObject("WScript.Shell")
objShell = CreateObject("wscript.shell")
fso = CreateObject("Scripting.filesystemobject")

OsType = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE") ' Liest den Registry-Wert aus der die Architektur (x86 oder x64) definiert

For Each p In Diagnostics.Process.GetProcesses()
If p.ProcessName = "excel" Then
Console.WriteLine("Excel ist momentan gestartet bitte beenden sie ihr Excel-Programm")
GoTo LastLine
End If
Next

' Parameter auslesen

' Parameter benutzen

' Wenn er auf a ist dann aktiveren

Line5:
If objFSO.FileExists("C:\Program Files\Microsoft Office\Office12\XLSTART\DMintegration.xlam") Then
Console.WriteLine("Die Integration ist schon aktiviert und kann deshalb nicht akiviert werden")
Line0:
Console.WriteLine("Wollen sie es deaktivieren? (y/n)")
Antwort = CChar(CStr(Console.Read()))
If Antwort = "y" Then
GoTo Line1
ElseIf Antwort = "n" Then
GoTo LastLine
Else
Console.WriteLine("Geben Sie bitte für Ja y ein und für Nein n")
GoTo Line0
End If

End If

If OsType = "x86" Then ' Wenn er 32bit ist dann mach das


' Datei wieder ans richtige Ort verschieben
objFSO.MoveFile("C:\Program Files\Microsoft Office\Office12\XLSTART\Deaktiviert\DMintegration.xlam", "C:\Program Files\Microsoft Office\Office12\XLSTART\DMintegration.xlam")

' Jetzt setzt er den Registry-Eintrag auf 3, das bedeutet aktiviert
objShell.regwrite("HKEY_CURRENT_USER\Software\Microsoft\Office\Excel\Addins\DMintegration_NET.Connect\LoadBehavior", "00000003", "REG_DWORD")

' "Deaktiviert" Ordner wieder löschen
ESO.DeleteFolder("C:\Program Files\Microsoft Office\Office12\XLSTART\Deaktiviert")


ElseIf OsType = "AMD64" Then ' wenn er 64 ist dann mach das

' Datei wieder ans richtige Ort verschieben
objFSO.MoveFile("C:\Program Files (x86)\Microsoft Office\Office12\XLSTART\Deaktiviert\DMintegration.xlam", "C:\Program Files (x86)\Microsoft Office\Office12\XLSTART\DMintegration.xlam")

' Jetzt setzt er den Registry-Eintrag auf 3, das bedeutet aktiviert
objShell.regwrite("HKEY_CURRENT_USER\Software\Microsoft\Office\Excel\Addins\DMintegration_NET.Connect\LoadBehavior", "00000003", "REG_DWORD")

' "Deaktiviert" Ordner wieder löschen
ESO.DeleteFolder("C:\Program Files (x86)\Microsoft Office\Office12\XLSTART\Deaktiviert")


End If

' Wenn er auf d ist dann deaktivieren
Line1:
If objFSO.FileExists("C:\Program Files\Microsoft Office\Office12\XLSTART\Deaktiviert\DMintegration.xlam") Then
Console.WriteLine("Die Integration ist schon deaktiviert und kann deshalb nicht deakiviert werden")
Line2:
Console.WriteLine("Wollen sie es aktivieren? (y/n)")
Antwort = Console.Read()
If Antwort = "y" Then
GoTo Line5
ElseIf Antwort = "n" Then
GoTo LastLine
Else
Console.WriteLine("Geben Sie bitte für Ja y ein und für Nein n")
GoTo Line2
End If

End If

If OsType = "x86" Then ' Wenn er 32bit ist dann mach das

If objFSO.FileExists("C:\Program Files\Microsoft Office\Office12\XLSTART\Deaktiviert\DMintegration.xlam") Then
Console.WriteLine("Die Integration ist schon deaktiviert und kann deshalb nicht deakiviert werden")
End If

' Ordner für die Verschiebung erstellen
createfolder = fso.CreateFolder("C:\Program Files\Microsoft Office\Office12\XLSTART\Deaktiviert")

' Verschiebung der Datei
objFSO.MoveFile("C:\Program Files\Microsoft Office\Office12\XLSTART\DMintegration.xlam", "C:\Program Files\Microsoft Office\Office12\XLSTART\Deaktiviert\DMintegration.xlam")

' Jetzt setzt er den Registry-Eintrag auf 8, das bedeutet deaktiviert
objShell.regwrite("HKEY_CURRENT_USER\Software\Microsoft\Office\Excel\Addins\DMintegration_NET.Connect\LoadBehavior", "00000008", "REG_DWORD")

ElseIf OsType = "AMD64" Then ' wenn er 64 ist dann mach das

If objFSO.FileExists("C:\Program Files (X86)\Microsoft Office\Office12\XLSTART\Deaktiviert\DMintegration.xlam") Then
Console.WriteLine("Die Integration ist schon deaktiviert und kann deshalb nicht deakiviert werden")
End If

' Ordner für die Verschiebung erstellen
createfolder = fso.CreateFolder("C:\Program Files (x86)\Microsoft Office\Office12\XLSTART\Deaktiviert")
' Verschiebung der Datei
objFSO.MoveFile("C:\Program Files (x86)\Microsoft Office\Office12\XLSTART\DMintegration.xlam", "C:\Program Files (x86)\Microsoft Office\Office12\XLSTART\Deaktiviert\DMintegration.xlam")

' Jetzt setzt er den Registry-Eintrag auf 8, das bedeutet deaktiviert
objShell.regwrite("HKEY_CURRENT_USER\Software\Microsoft\Office\Excel\Addins\DMintegration_NET.Connect\LoadBehavior", "00000008", "REG_DWORD")

End If
LastLine:
End Sub
End Module