OpenOffice VBA/makros open Cmd

[gm4486]

Sub Main
rem Print "Hallo world"
Dim Command As String
 Command = "ipconfig /all"
 Shell("cmd /k" & Command, 1, True)
End Sub

 

Καλησπερα παιδια, σπαω το κεφάλι μου τις τελευταιες 2 μερες, ομως δεν μπορεσα να βγαλω ακρη

Προσπαθω να τρεξω το cmd μεσα απο Openoffice Calc-Makros.

Το πρόβλημα είναι ότι ενω δουλεύει, δεν προλαβαινω να δω τα αποτελεσματα, αφου το παραθυρο κλεινει αμεσως.

Ιδανικα θα ηθελα το παραθυρο του cmd να μενει ανοιχτο και να μπορω να πληκτρολογω επιπλεον εντολες.

Εναλλακτικα να πηγαινει το output se ena txt file (αν κ το προσπαυησα, το τχτ αρχειο εμφανιυεται κενο)

 

Ευχαριστω εκ των προτερων

[pmav99]

http://snipplr.com/view/14935/

[gm4486]

δεν δουλευει, δοκιμασε το

[firewalker]

Με τον διακόπτη /k δεν έπρεπε να κλείνει. Αν το τρέξεις από Start > Run κλείνει;

[pmav99]

@gm4486

δεν έχω windows.

[gm4486]

οχι, με το run δεν κλεινει. επισης αν κανω το ιδιο με bash σε linux δουλευει κανονικα. καπου διαβασα (νομιζω στο επισημο φορουμ του Οο οτι δεν υπαρχει λυση στο θεμα, οτι δηλ συγκεκριμενα για το cmd δεν δουλευει ενω όλα τα άλλα δουλευουν κανονικα). Τεσπα, οποιος εχει ορεξη ας πειραματιστει. 

Μηπως ξερει κανεις αν μπορω να ανοιξω το cmd με Οο μακρος αλλα Javascript η Beanshell? Δυστυχως δεν τις κατεχω αυτες τις γλωσσες

[pmav99]

Αν θες εξήγησε πιο αναλυτικά τι θες να κάνεις μήπως υπάρχει και άλλη λύση.

[gm4486]

 να αποκτησω admin access σε ενα cloud συστημα που τρεχει citrix, για να αποδειξω στο αφεντικο οτι το συστημα του παραμενει τρυπιο μιας κ ηθελε να το παρουσιάσει σαν security update. To συστημα τρεχει windows server 2008 R2, and right click is deactivated. Ta μονα προγραμματα που φαινονται ειναι ie, oppenoffice και αυτα της δουλειας. Καπως ετσι δουλευει;

Mονο που σε εμενα, ενω το cmd εκτελει τις εντολλες μου, το παραθυρο εξαφανιυεται

[Bspus]

δοκιμασε να προσθεσεις το pause ως τελευταια εντολη

[pmav99]

Έτσι; http://www.codeproject.com/Tips/123810/Get-user-input-from-DOS-prompt