Dim oShell, WshShell, WshProcessEnv, Fi, Fso, proe_ver

Set oShell = CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshProcessEnv = WshShell.Environment("Process")

Sub sk(Befehl)
	WshShell.SendKeys(Befehl)
	WScript.Sleep 100     'Zeitangabe in Millisekunden 
End Sub

Function Datumszahl(zahl)
	If Len(Zahl) = 1 Then
		Datumszahl = "0" & zahl
	Else
		Datumszahl = zahl
	End If
End Function

Function jpg
	akt_tag = day(now)
	akt_tag = Datumszahl(akt_tag)
	akt_monat = month(Now)
	akt_monat = Datumszahl(akt_monat)
	akt_jahr = year(now)
	akt_jahr = Datumszahl(akt_jahr)
	akt_stunde = hour(now)
	akt_stunde = Datumszahl(akt_stunde)
	akt_minute = minute(now)
	akt_minute = Datumszahl(akt_minute)
	akt_sekunde = Second(now)
	akt_sekunde = Datumszahl(akt_sekunde)
	
	datumsinfo = "shot" & akt_jahr & "_" & akt_monat & "_" & akt_tag & "---" & akt_stunde & "_" & akt_minute & "_" & akt_sekunde
	
	WshShell.AppActivate "(Aktiv)"
	WshShell.AppActivate "Pro/ENGINEER"
	WshShell.AppActivate " - Pro/ENGINEER"
	WshShell.AppActivate "(Aktiv) - Pro/ENGINEER"
	WScript.Sleep 100
	sk "%d"
	sk "p"
	sk "{TAB 3}"
	sk "{DOWN 40}"
	sk "{UP 3}"
	sk "+{TAB 3}"
	sk "+{HOME}"
	sk datumsinfo
	sk "{ENTER}"
	sk "{TAB 2}"
	sk "{UP 15}"
	sk "{DOWN 4}"
	sk "{TAB}"
	sk "{UP 3}"
	sk "{DOWN}"
	sk "{TAB}"
	sk "{ENTER}"
End Function

jpg

WScript.Quit()