17
VBS soll Internetfavorit anlegen
Hallo, ich stehe noch ziemlich am Anfang in VBS aber komme bei den einfachsten fragen per google nicht wirklich weiter.
Ich möchte über VBS 2 Internetverknüpfungen unter Favoriten im Webbrowser für Edge erstellen:
Ich möchte gerne einen Favorit als about:flags und einen für google anlegen - bin für jeden Rat dankbar.
Mit freundlichen Grüßen
Ich möchte über VBS 2 Internetverknüpfungen unter Favoriten im Webbrowser für Edge erstellen:
Ich möchte gerne einen Favorit als about:flags und einen für google anlegen - bin für jeden Rat dankbar.
Mit freundlichen Grüßen
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 460111
Url: https://administrator.de/contentid/460111
Ausgedruckt am: 12.11.2024 um 19:11 Uhr
17 Kommentare
Neuester Kommentar
Const ADMINISTRATIVE_TOOLS = 6
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objFolderItem = objFolder.Self
Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFld = objFolderItem.Path
Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Links\Test.URL")
objURLShortcut.TargetPath = "www.google.de"
objURLShortcut.SaveDanke, aber funktioniert nicht
Hallo,
Sagst du uns auch was icht funktioniert, welche Meldung du erhälst, was du tust? Oder sollen wir uns etwas ausdenken? CMD? Doppelklick auf die Datei? WSCRIPT? CSCRIPT? Die Dateiendung ist was? Was steht in deiner erzeugten Test.uel denn drin? Welche Rechte, usw. usw. usw.
Gruß,
Peter
Sagst du uns auch was icht funktioniert, welche Meldung du erhälst, was du tust? Oder sollen wir uns etwas ausdenken? CMD? Doppelklick auf die Datei? WSCRIPT? CSCRIPT? Die Dateiendung ist was? Was steht in deiner erzeugten Test.uel denn drin? Welche Rechte, usw. usw. usw.
Gruß,
Peter
Keine Fehlermeldung - Es wird kein Link unter "Favoriten" angelegt..
Moin,
Ich glaub ja du solltest aufhören einfach Code der du nicht verstehst auf dein System zu kopieren und auszuführen
Was meinst du machen die folgenden Zeilen? Einen Link in Favoriten anlegen? oder auf dem Desktop? hmmmm...
lg,
Slainte
Es wird kein Link unter "Favoriten" angelegt.
Ich glaub ja du solltest aufhören einfach Code der du nicht verstehst auf dein System zu kopieren und auszuführen
Was meinst du machen die folgenden Zeilen? Einen Link in Favoriten anlegen? oder auf dem Desktop? hmmmm...
strDesktopFld = objFolderItem.Path
Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Links\Test.URL") lg,
Slainte
Hier mein vollständiger Code bisher:
Set objShell = WScript.CreateObject("WScript.Shell")
Set WSHShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
Sub RunAsAdmin
If CreateObject("WScript.Shell").Run("%ComSpec% /C NET FILE", 0, True) <> 0 Then
ArgsList = ""
For i = 1 To WScript.Arguments.Count
ArgsList = ArgsList & """ """ & WScript.Arguments(i - 1)
Next
CreateObject("Shell.Application").ShellExecute WScript.FullName, """" & WScript.ScriptFullName & ArgsList & """", , "runas", 5
WScript.Quit
End If
End Sub
RunAsAdmin
Const ADMINISTRATIVE_TOOLS = 6
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objFolderItem = objFolder.Self
Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFld = objFolderItem.Path
Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Links\Test.URL")
objURLShortcut.TargetPath = "www.google.de"
objURLShortcut.Save
Set WshShell = Nothing
Set objShell = Nothing
WScript.Quit
Das ist der Tip, den ich hier als erstes bekommen habe - allerdings legt mir das Script auch keine URL auf dem Desktop ab..
weia... wer benennt seine Variablen/Konstanten so entgegen deren Inhalt?!
NameSpace
https://docs.microsoft.com/en-us/windows/desktop/api/Shldisp/ne-shldisp- ...
ShellSpecialFolderConstants
https://docs.microsoft.com/en-us/windows/desktop/api/Shldisp/ne-shldisp- ...
zum Glück ist Freitag
NameSpace
https://docs.microsoft.com/en-us/windows/desktop/api/Shldisp/ne-shldisp- ...
ShellSpecialFolderConstants
https://docs.microsoft.com/en-us/windows/desktop/api/Shldisp/ne-shldisp- ...
zum Glück ist Freitag
Hallo,
Sagst du uns auch was und wie du was tust - oder auch nicht tust, da du ja keinerlei Rückmeldung oder sonstwas bekommst - ist immer dann wenn ein Benutzer nichts tut.
Ich hatte schon Angst das der Freitag ohne einen Freitagsthread einfach vorbeigeht
Gruß,
Peter
Sagst du uns auch was und wie du was tust - oder auch nicht tust, da du ja keinerlei Rückmeldung oder sonstwas bekommst - ist immer dann wenn ein Benutzer nichts tut.
Ich hatte schon Angst das der Freitag ohne einen Freitagsthread einfach vorbeigeht
Gruß,
Peter
Zitat von @SlainteMhath:
Was meinst du machen die folgenden Zeilen? Einen Link in Favoriten anlegen? oder auf dem Desktop? hmmmm...
beides nicht wirklich wie ein kurzes debugging zeigen würden. Ziel ist nämlich C:\Users\pebcak\Favorites\Links\Test.URLWas meinst du machen die folgenden Zeilen? Einen Link in Favoriten anlegen? oder auf dem Desktop? hmmmm...
Nun muss natürlich auch der Ordner Links vorhanden sein - das Vorhandensein wird natürlich nicht geprüft...
per Standard sollte das aber funktionieren und der Link in der Favoritenliste auftauchen. Nun weiß ich aber nicht, ob der Edge die überhaupt wie der Internetexplorer nutzt
Siehe mein letzter Post
ja schon geil so ein Copy&Paste&Copy&Paste&Cop....Wahnsinn.
Hallo,
Gruß,
Peter
Zitat von @Senseless-Creature:
Das ist der Tip, den ich hier als erstes bekommen habe - allerdings legt mir das Script auch keine URL auf dem Desktop ab..
Welche Spitze hast du hier als erstes bekommen?Das ist der Tip, den ich hier als erstes bekommen habe - allerdings legt mir das Script auch keine URL auf dem Desktop ab..
Gruß,
Peter
Hallo,
Ja, viele machen es so wie der MS Witz mit einen kaputten Auto. Alle aussteigen, wieder einsteigem und weiterfahren. Irgendwann wird auch das OS es so machen- Kopieren, Pasten, Geht nicht, Beschweren, Kopieren, Pasten, Geht, MS war Schuld, Benutzer zeigt Smiley.
Aber es ist Frei . . . Tag
Gruß,
Peter
Ja, viele machen es so wie der MS Witz mit einen kaputten Auto. Alle aussteigen, wieder einsteigem und weiterfahren. Irgendwann wird auch das OS es so machen- Kopieren, Pasten, Geht nicht, Beschweren, Kopieren, Pasten, Geht, MS war Schuld, Benutzer zeigt Smiley.
Aber es ist Frei . . . Tag
Gruß,
Peter
Ah, ok - der Code erstellt mir den Link in der Favoritenleiste im IE allerdings nicht im Edge..
Set objShell = WScript.CreateObject("WScript.Shell")
Set WSHShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
Sub RunAsAdmin
If CreateObject("WScript.Shell").Run("%ComSpec% /C NET FILE", 0, True) <> 0 Then
ArgsList = ""
For i = 1 To WScript.Arguments.Count
ArgsList = ArgsList & """ """ & WScript.Arguments(i - 1)
Next
CreateObject("Shell.Application").ShellExecute WScript.FullName, """" & WScript.ScriptFullName & ArgsList & """", , "runas", 5
WScript.Quit
End If
End Sub
RunAsAdmin
Const ADMINISTRATIVE_TOOLS = 6
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objFolderItem = objFolder.Self
Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFld = objFolderItem.Path
Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Links\Test.URL")
objURLShortcut.TargetPath = "www.google.de"
objURLShortcut.Save
Set WshShell = Nothing
Set objShell = Nothing
WScript.Quit
Hallo,
https://gallery.technet.microsoft.com/scriptcenter/How-to-create-a-deskt ...
https://www.itworld.com/article/2943955/how-to-script-microsofts-edge-br ...
Gruß,
Peter
Zitat von @Senseless-Creature:
Ah, ok - der Code erstellt mir den Link in der Favoritenleiste im IE allerdings nicht im Edge..
Vielleicht besser beim nächsten mal einfach dein verwendetes OS vorher zu nenen.Ah, ok - der Code erstellt mir den Link in der Favoritenleiste im IE allerdings nicht im Edge..
https://gallery.technet.microsoft.com/scriptcenter/How-to-create-a-deskt ...
https://www.itworld.com/article/2943955/how-to-script-microsofts-edge-br ...
Gruß,
Peter
Verknüpfungen bringen dir beim Edge nichts, der speichert seine Bookmarks in einer *.edb Datenbank im Ordner
https://www.win-10-forum.de/windows-10-allgemeines/58943-ordner-favourit ...
http://www.edgemanage.emmet-gray.com/index.html
http://www.edgemanage.emmet-gray.com/Articles/ViewESE.html
%localappdata%\Packages\Microsoft.MicrosoftEdge_8wekyb3d8bbwe\AC\MicrosoftEdge\User\Default\DataStore\Data\nouser1\120712-0049\DBStorehttps://www.win-10-forum.de/windows-10-allgemeines/58943-ordner-favourit ...
http://www.edgemanage.emmet-gray.com/index.html
http://www.edgemanage.emmet-gray.com/Articles/ViewESE.html
1
