'Pro/E ---> Mapkey "0" (Attribute ausfüllen)

Dim Fi, Fso

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

username = WshProcessEnv("USERNAME")

username_l = Len(username)
username_1 = UCase(left(username,1))
username_2 = right(username, username_l-1)

eintragsname = username_1 & username_2

Sub sk(Befehl)

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

End Sub

Heute = Date

WScript.Sleep 100

sk "wsh_erzeugt_von"
sk eintragsname
sk "{ENTER}"
sk "{ENTER}"
sk "{ENTER}"

WScript.Quit()