Das auch... wobei das ja leider viel zu selten vorkommt
das liegt doch an dir, wie wir jetzt gelernt haben. Mach gutes Wetter, dann kannst Du auch in den Pool.
btw. kann hier zufällig jemand Japanisch und kann mir sagen was "Pin to taskbar" bzw. "An Taskleiste anheften" heißt ?
タスクバーにピン
Moin zusammen 
タスクバーにピン
das hat dir google translator gesagt oder ?
das hat dir google translator gesagt oder ?
hömma... natürlich kann ich KEIN japanisch 
klar war es der übersetzer, aber es war zu verführerisch einfach so ohne kommentar zu antworten 
EDIT: huhu raiach
japanisch lernen oder STRG Z
Ich sitze hier und schwitze, der Schweiß läuft in die Ritze, bei dieser verdammten Hitze!
Morgen erst mal frei genommen, hält man ja kaum auf der Arbeit. Büro, nur mit Ventilator und gefühlten 30 Grad
Ich sitze hier und schwitze, der Schweiß läuft in die Ritze, bei dieser verdammten Hitze!
too much information
mal was für die statistiker
januarspam 202 antworten
februar 435 antworten
märz 245 antworten
april 433 antworten
mai 691 antworten
juni 220 antworten
JULI bis jetzt 1169 und wir haben noch 5 tage 
Go for Gold 
in den ersten Monaten des Jahres hatten wir noch parallel mehrere solcher Threads,
z.B. "anonyme boardsuechtler" etc laufen... : )
Aber ne schoene Statistik.
Bonjour. 
dann hat KoR schon gewonnen 
so japanische Übersetztung fertig. Nicht zuletzt danka Ava
On Error Resume Next
If Wscript.Arguments.count <> 3 Then wscript.quit
Const CSIDL_COMMON_PROGRAMS = &H17
Const CSIDL_PROGRAMS = &H2
Set objShell = CreateObject("Shell.Application")
Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path
Set objFolder = objShell.Namespace(Wscript.Arguments(0))
Set objFolderItem = objFolder.ParseName(Wscript.Arguments(1))
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Wscript.Arguments(3) = "t" Then
'China
If InStr(Replace(objVerb.name, "&", ""), "ƒ^ƒXƒN ƒo[‚É•\Ž¦‚·‚é(K)") Then objVerb.DoIt
End If
If Wscript.Arguments(3) = "s" Then
'China
If InStr(Replace(objVerb.name, "&", ""), "¸ƒXƒ^[ƒg ƒƒjƒ…[‚É•\Ž¦‚·‚é(U)") Then objVerb.DoIt
End If
Next
Bonjour.
bonjour
so japanische Übersetztung fertig. Nicht zuletzt danka Ava :DOn Error Resume NextIf Wscript.Arguments.count <> 3 Then wscript.quitConst CSIDL_COMMON_PROGRAMS = &H17Const CSIDL_PROGRAMS = &H2Set objShell = CreateObject("Shell.Application")Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.PathSet objFolder = objShell.Namespace(Wscript.Arguments(0))Set objFolderItem = objFolder.ParseName(Wscript.Arguments(1))Set colVerbs = objFolderItem.VerbsFor Each objVerb in colVerbsIf Wscript.Arguments(3) = "t" Then'ChinaIf InStr(Replace(objVerb.name, "&", ""), "ƒ^ƒXƒN ƒo[‚É•\Ž¦‚·‚é(K)") Then objVerb.DoItEnd IfIf Wscript.Arguments(3) = "s" Then'ChinaIf InStr(Replace(objVerb.name, "&", ""), "¸ƒXƒ^[ƒg ƒƒjƒ…[‚É•\Ž¦‚·‚é(U)") Then objVerb.DoItEnd IfNext
wenn ich jetzt sage, ich versteh nur bahnhof, is des die untertreibung des jahres^^ ich würde eher sagen GRAND CENTRAL STATION 
für was brauchst du denn so einen skript?
das ist ein Script um automatisiert unter dem Benutzercontext ein Symbol in die Taskbar bzw. ins Startmenü anzupinnen.
In diesem Fall macht es den IE und das Outlook Symbol rein. Standardmäßig ist bei Win7 64Bit hier nur der 64 Bit IE. Dieser konnte aber kein Flash und keine anderen Addins, daher verwendet eigentlich jeder die 32 Bit Variante. Und genau das macht das Script.
Also bei mir war bei WIn 7 standardmäßig der IE 32 und 64 bit drauf.
Aber die Verknüpfung in der Taskbar ist by default in der Enterprise Version die 64bittige
