Frage Entwicklung
gelöst Erstellung einer CMD Datei aus Excel

12.09.2006, aktualisiert 13.09.2006, 5695 Aufrufe, 9 Kommentare

Hallo Experten!

ich habe eine kurze Frage:

Wie kann ich mit Hilfe von VBA aus Excel 2000 eine CMD-Datei erstellen?

Meine Excel-Tabelle hat folgende Form:
spalte A spalte B spalte C spalte D
PCW004 srvprt01 VS_T430 /cd

die CMD-Datei sollte wie die bezeichnung in spalte A heißen, also PCW004.bat

Der Inhalt der CMD Datei sollte wie folgt aussehen

%logonserver%\netlogon\tools\con2prt.exe SpalteD \\SpalteB\SpalteC

also wie folgt:
%logonserver%\netlogon\tools\con2prt.exe /cd \\srvprt02\VS_T430 :Ende exit

kann mir vielleicht jemand helfen dies mit VBA zu realisieren?
danke....

9 Antworten

LÖSUNG Biber schreibt am 12.09.2006 um 17:22:23 Uhr
LÖSUNG wakko schreibt am 12.09.2006 um 18:05:38 Uhr
- LÖSUNG Forencamper schreibt am 13.09.2006 um 08:42:02 Uhr
- LÖSUNG Forencamper schreibt am 13.09.2006 um 09:09:41 Uhr
  - LÖSUNG Biber schreibt am 13.09.2006 um 09:24:10 Uhr
    - LÖSUNG Forencamper schreibt am 13.09.2006 um 09:30:47 Uhr
      - LÖSUNG Biber schreibt am 13.09.2006 um 09:45:09 Uhr
    - LÖSUNG Forencamper schreibt am 13.09.2006 um 09:52:27 Uhr
      - LÖSUNG Biber schreibt am 13.09.2006 um 10:06:11 Uhr

Biber (Level 5) - Jetzt verbinden

LÖSUNG 12.09.2006 um 17:22 Uhr

Moin Forencamper,

wäre es nicht sinnhafter, diese Tabelle komplett im CSV-Format für alle Clients erreichbar zu halten und deren LoginSkripte jeweils die Zeile mit "PCW004" rauszusuchen?

Du brauchst ja sonst bei 1000 Clients 1000 Batchdateien.

Gruß
Biber

wakko (Level 1) - Jetzt verbinden

LÖSUNG 12.09.2006 um 18:05 Uhr

Sub makebat()
Dim datnr%, strtemp$, i%
i = 1
Do Until ActiveSheet.Range("A" & i).Value = ""
    datnr = FreeFile
    Open "c:\" & ActiveSheet.Range("A" & i) & ".bat" For Output As #datnr //evt. Pfad Anpassen (speichert so direkt unter c
    strtemp = "%logonserver%\netlogon\tools\con2prt.exe " & ActiveSheet.Range("D" & i) & " \\" & ActiveSheet.Range("B" & i) & " \\" & ActiveSheet.Range("C" & i)
    Print #datnr, strtemp
    Close #datnr
    i = i + 1
Loop
End Sub01.
Sub makebat() 
02.
Dim datnr%, strtemp$, i% 
03.
i = 1 
04.
Do Until ActiveSheet.Range("A" & i).Value = "" 
05.
    datnr = FreeFile 
06.
    Open "c:\" & ActiveSheet.Range("A" & i) & ".bat" For Output As #datnr //evt. Pfad Anpassen (speichert so direkt unter c 
07.
    strtemp = "%logonserver%\netlogon\tools\con2prt.exe " & ActiveSheet.Range("D" & i) & " \\" & ActiveSheet.Range("B" & i) & " \\" & ActiveSheet.Range("C" & i) 
08.
    Print #datnr, strtemp 
09.
    Close #datnr 
10.
    i = i + 1 
11.
Loop 
12.
End Sub

MfG

Forencamper (Level 1) - Jetzt verbinden

LÖSUNG 13.09.2006 um 08:42 Uhr

thx,

funktioniert so!

Forencamper (Level 1) - Jetzt verbinden

LÖSUNG 13.09.2006 um 09:09 Uhr

also, funktioniert soweit perfekt.
aber:
es gibt computer die 2 Drucker zugeordnet haben, im excel also 2 spalten haben.
kann ich es irgendwie abprüfen wenn direkt darunter nochmals der selbe pc-name steht dass er diese zeile dann auch in das CMD script einfügt?

Biber (Level 5) - Jetzt verbinden

LÖSUNG 13.09.2006 um 09:24 Uhr

Moin Forencamper,

sinngemäß so:

Sub makebat()
Dim datnr%, strtemp$, i%
i = 1
Do Until ActiveSheet.Range("A" & i).Value = ""
    datnr = FreeFile
    Open "c:\" & ActiveSheet.Range("A" & i) & ".bat" For Output As #datnr //evt. Pfad Anpassen (speichert so direkt unter c
    strtemp = "%logonserver%\netlogon\tools\con2prt.exe " & ActiveSheet.Range("D" & i) & " \\" & ActiveSheet.Range("B" & i) & " \\" & ActiveSheet.Range("C" & i)
    if (ActiveSheet.Range("A" & i).Value = ActiveSheet.Range("A" & i+1).Value ) then
       i = i +1 
       strtemp = "%logonserver%\netlogon\tools\con2prt.exe " & ActiveSheet.Range("D" & i) & " \\" & ActiveSheet.Range("B" & i) & " \\" & ActiveSheet.Range("C" & i)
    end if   
    Print #datnr, strtemp
    Close #datnr
    i = i + 1
Loop
End Sub01.
Sub makebat() 
02.
Dim datnr%, strtemp$, i% 
03.
i = 1 
04.
Do Until ActiveSheet.Range("A" & i).Value = "" 
05.
    datnr = FreeFile 
06.
    Open "c:\" & ActiveSheet.Range("A" & i) & ".bat" For Output As #datnr //evt. Pfad Anpassen (speichert so direkt unter c 
07.
    strtemp = "%logonserver%\netlogon\tools\con2prt.exe " & ActiveSheet.Range("D" & i) & " \\" & ActiveSheet.Range("B" & i) & " \\" & ActiveSheet.Range("C" & i) 
08.
    if (ActiveSheet.Range("A" & i).Value = ActiveSheet.Range("A" & i+1).Value ) then 
09.
       i = i +1  
10.
       strtemp = "%logonserver%\netlogon\tools\con2prt.exe " & ActiveSheet.Range("D" & i) & " \\" & ActiveSheet.Range("B" & i) & " \\" & ActiveSheet.Range("C" & i) 
11.
    end if    
12.
    Print #datnr, strtemp 
13.
    Close #datnr 
14.
    i = i + 1 
15.
Loop 
16.
End Sub

Aber meinen Einwand oben hast Du auch zur Kenntnis genommen?

Gruß
Biber

Forencamper (Level 1) - Jetzt verbinden

LÖSUNG 13.09.2006 um 09:30 Uhr

ja, einwand zur Kenntnis genommen,
aber leider ist des bei uns so ne Vorgabe dass wir eben für jeden client
ein File haben müssen - ich versteh es auch nicht warum
sin 400 Clients un den Aufwand könnte man sich echt ersparen....

probier es jetzt gleich mal aus

Biber (Level 5) - Jetzt verbinden

LÖSUNG 13.09.2006 um 09:45 Uhr

ein File haben müssen - ich versteh es auch nicht warum
sin 400 Clients un den Aufwand könnte man sich echt ersparen....

Sag es nicht uns... sag es den Vorgebern...

Forencamper (Level 1) - Jetzt verbinden

LÖSUNG 13.09.2006 um 09:52 Uhr

funktioniert so leider nicht, es nimmt mir immer nur den letzten von mehreren Datensätzen mit gleichem PC namen....

Biber (Level 5) - Jetzt verbinden

LÖSUNG 13.09.2006 um 10:06 Uhr

ja, hast recht... ich sollte erstmal Kaffee trinken...

...
    strtemp = strtemp & vbCRLF & "%logonserver%\netlogon\tools\con2prt.exe " & .....01.
... 
02.
    strtemp = strtemp & vbCRLF & "%logonserver%\netlogon\tools\con2prt.exe " & .....

Sorry
Biber

Frage Entwicklung

Ähnliche Inhalte

Hilfe bei Erstellung eines Suchfelds im Excel

Frage von ZeeReeMicrosoft Office1 Kommentar

Hi liebe community ich bräuchte mal eure Kenntnisse um mein Problem im Excel zu lösen. Problem: Ich brauche ein ...

CMD: Unterschiede bei cmd Dateien in der Ausführung

gelöst Frage von ralfkauskBatch & Shell10 Kommentare

Hallo zusammen Ich habe gerade ein kleines Verständnisproblem. Durch ein Powershell Skript habe ich mir etliche .cmd Dateien erstellen ...

Windows Aufgabenplanung: Excel-Datei automatisch ausführen in Abhängigkeit von Erstellung

Frage von paterpenWindows Tools

Hallo, ich würde gerne eine Excel-Datei automatisch aufrufen in Abhängigkeit von der Erstellung anderer Dateien. Konkretes Poblem: Alle 30 ...

Mit CMD Dateien ersetzen

gelöst Frage von wlannerWindows 85 Kommentare

Hallo, ich habe einen Ordner mit verschiedenen Excel-Vorlagendateien (alle haben einen anderen Namen). Jetzt habe ich die Mustervorlage und ...

Neue Wissensbeiträge

2016 - Restore mit WBAdmin - iSCSI Device als Sicherungsziel

Erfahrungsbericht von Henere vor 1 TagBackup1 Kommentar

Servus zusammen, was mich eben einige graue Haare gekostet hat Server 2016. Ich habe meinem Server eine weitere M2 ...

(Part num your Hacked phone. +XX XXXXXX5200)

Erfahrungsbericht von Henere vor 3 TagenHumor (lol)7 Kommentare

Mein Handy hat aber ne ganz andere Endnummer. Muss ich mir jetzt Sorgen machen ? :-) Vielleicht betrifft es ...

Letztes Update für Exchange 2016 CU9 war in gewisser Weise destruktiv

Erfahrungsbericht von DerWoWusste vor 3 TagenExchange Server9 Kommentare

Kurzer Erfahrungsbericht zu Exchange2016-KB4340731-x64 Der Exchangeserver hat wie gewöhnlich versucht, es in der Nacht automatisch zu installieren - abgesehen ...

Neue Sicherheitslücke Foreshadow (L1TF) gefährdet fast alle Intel-Prozessoren

Information von Frank vor 4 TagenErkennung und -Abwehr3 Kommentare

Eine neue Sicherheitslücke, genannt Foreshadow (alias L1TF) wurde auf der Usenix Security 18 von einem Team internationaler Experten veröffentlicht. ...

Heiß diskutierte Inhalte