Frage ist gelöstMit VBS Datum, User in Zwischenablage kopieren
25.11.2010
09:05:53 Uhr2401 Aufrufe
10 Antworten
09:05:53 Uhr
10 Antworten
Noch nicht bewertet
Hallo,
ich suche nach einer Möglichkeit das Aktuelle Datum (dd.mm.yyyy) per VBS Script in die Zwischenablage zu kopieren, um es dann per paste wieder einzufügen. Das selbe brauche ich auch noch in einem weiteren Script für den User. Kann mir hier jemand helfen, denn so gut kenn ich mich jetzt nicht in VBS aus.
ich suche nach einer Möglichkeit das Aktuelle Datum (dd.mm.yyyy) per VBS Script in die Zwischenablage zu kopieren, um es dann per paste wieder einzufügen. Das selbe brauche ich auch noch in einem weiteren Script für den User. Kann mir hier jemand helfen, denn so gut kenn ich mich jetzt nicht in VBS aus.
bastla schreibt am 25.11.2010 um 09:34:01 Uhr
Hallo neulermer!
Das wollten andere auch schon
: http://www.geekstogo.com/forum/topic/1330 ...
Das Datum bekommst Du mit "date" und für den aktuellen User:
Wenn's kein VBS sein muss, ginge es als Batch unter Verwendung von"clip.exe" noch einfacher:
Wozu soll die ganze Aktion eigentlich dienen?
Grüße
bastla
Das wollten andere auch schon
: http://www.geekstogo.com/forum/topic/1330 ...Das Datum bekommst Du mit "date" und für den aktuellen User:
01.
Set WshNetwork = CreateObject("WScript.Network") 02.
User = WshNetwork.UserName01.
echo %date%|clip 02.
echo %username%|clipWozu soll die ganze Aktion eigentlich dienen?
Grüße
bastla
neulermer schreibt am 25.11.2010 um 10:34:32 Uhr
ich arbeite mit ProE (3D CAD Programm) und hier muss ich immer die Parameter manuell ausfüllen. Man kann zwar per Mapkeys ("programmierte" Tastenfolge, shortcuts oder wie man die nennen will) einiges ausfüllen lassen, aber sowas können die nicht. Man kann in einem Mapkey aber ein VBS ausführen, deswegen der Umweg mit der Zwischenablage. Eine andere Möglichkeit gibt es leider nicht.
Kannst du mir vielleicht ncoh erklären, wie man den User oder das Datum in die Zwischenablage kriegt? Ein komplettes Skript wäre hilfreich, da ich wirklich nicht viel Ahnung vom Programmieren habe.
Kannst du mir vielleicht ncoh erklären, wie man den User oder das Datum in die Zwischenablage kriegt? Ein komplettes Skript wäre hilfreich, da ich wirklich nicht viel Ahnung vom Programmieren habe.
bastla schreibt am 25.11.2010 um 11:27:39 Uhr
Hallo neulermer!
Na dann kopiere ich mal für Dich den Scriptansatz aus dem oben verlinkten Artikel und passe ihn etwas an:
Grüße
bastla
Na dann kopiere ich mal für Dich den Scriptansatz aus dem oben verlinkten Artikel und passe ihn etwas an:
01.
Set Clipboard = New cClipBoard 02.
03.
ClipBoard.Clear 04.
ClipBoard.Data = FormatDateTime(Date) 05.
MsgBox "... und jetzt der User ..." 06.
ClipBoard.Data = CreateObject("WScript.Network").UserName 07.
08.
Class cClipBoard 09.
Private objHTML 10.
Private Sub Class_Initialize 11.
Set objHTML = CreateObject("InternetExplorer.Application") 12.
objHTML.Navigate ("about:blank") 13.
End Sub 14.
Public Sub Clear() 15.
objHTML.Document.ParentWindow.ClipboardData.ClearData() 16.
End Sub 17.
18.
Public Property Let Data (Value) 19.
objHTML.Document.ParentWindow.ClipboardData.SetData "Text" , Value 20.
End Property 21.
22.
Public Property Get Data() 23.
Data = objHTML.Document.ParentWindow.ClipboardData.GetData("Text") 24.
End Property 25.
26.
Private Sub Class_Terminate 27.
objHTML.Quit 28.
Set objHTML = Nothing 29.
End Sub 30.
31.
End Classbastla
bastla schreibt am 25.11.2010 um 12:26:28 Uhr
Hallo neulermer!
Das Script muss mit dem Dateityp ".vbs" gespeichert sein - falls Du den Windows-Editor verwendet hast, wird vermutlich automatisch noch ".txt" angefügt worden sein; um das zu vermeiden, beim Speichern als "Dateityp" "Alle Dateien" einstellen.
Wie das Script dann von Deinem Programm aus gestartet werden muss, kann ich Dir leider nicht sagen - zum Testen kannst Du aber einfach das Script per Doppelklick starten.
Grüße
bastla
[Edit] Nur der Ordnung halber: Zum Zeitpunkt meiner Antwort lief das Script noch nicht [/Edit]
Das Script muss mit dem Dateityp ".vbs" gespeichert sein - falls Du den Windows-Editor verwendet hast, wird vermutlich automatisch noch ".txt" angefügt worden sein; um das zu vermeiden, beim Speichern als "Dateityp" "Alle Dateien" einstellen.
Wie das Script dann von Deinem Programm aus gestartet werden muss, kann ich Dir leider nicht sagen - zum Testen kannst Du aber einfach das Script per Doppelklick starten.
Grüße
bastla
[Edit] Nur der Ordnung halber: Zum Zeitpunkt meiner Antwort lief das Script noch nicht [/Edit]
TimoBeil schreibt am 25.11.2010 um 14:13:04 Uhr
Moin,
das ist keine Fehlermeldung - sondern ein Sicherheitshinweis.
Kommt die auch, wenn du die doppelt anklickst oder nur, wenn dein Cad Tool die startet?
Anyway einmal klick weg ist es (bis zum nächsten mal)
Gruß
das ist keine Fehlermeldung - sondern ein Sicherheitshinweis.
Kommt die auch, wenn du die doppelt anklickst oder nur, wenn dein Cad Tool die startet?
Anyway einmal klick weg ist es (bis zum nächsten mal)
Gruß
bastla schreibt am 25.11.2010 um 16:26:59 Uhr
Hallo neulermer!
Dann eben die im oben verlinkten Artikel genannte Alternative ...
Besorge Dir (falls auf Deinem bisher nicht genannten System nicht vorhanden) die CLIP.EXE, speichere diese in einem passenden Ordner (zB C:\Scripts) und verwende folgende beiden VBScripts:
bzw
Falls Du auch noch ein automatisches "Enter" nach dem Einfügen haben möchtest, dann so:
Grüße
bastla
Dann eben die im oben verlinkten Artikel genannte Alternative ...
Besorge Dir (falls auf Deinem bisher nicht genannten System nicht vorhanden) die CLIP.EXE, speichere diese in einem passenden Ordner (zB C:\Scripts) und verwende folgende beiden VBScripts:
CreateObject("WScript.Shell").Run "cmd /c <nul set /p""=%date%""|C:\Scripts\CLIP",0CreateObject("WScript.Shell").Run "cmd /c <nul set /p""=%username%""|C:\Scripts\CLIP",0CreateObject("WScript.Shell").Run "cmd /c echo %date%|C:\Scripts\CLIP",0Grüße
bastla
