senseless-creature
Jun 07, 2019
view1810
view17
0
Goto Top

VBS soll Internetfavorit anlegen

GermansolvedQuestionVB for ApplicationsDevelopment
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 460111

Url: https://administrator.de/contentid/460111

Printed on: April 26, 2024 at 17:04 o'clock

17 Comments
Latest comment
Goto Top
Member: emeriks
Solution emeriks Jun 07, 2019 at 12:02:07 (UTC)
Goto Top
Ähnlicher Thread:
https://social.technet.microsoft.com/Forums/scriptcenter/en-US/d2777384- ...
heart1
Member: Senseless-Creature
Senseless-Creature Jun 07, 2019 at 12:15:58 (UTC)
Goto Top
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

Danke, aber funktioniert nicht face-sad
Member: Pjordorf
Pjordorf Jun 07, 2019 at 12:38:20 (UTC)
Goto Top
Hallo,

Zitat von @Senseless-Creature:
Danke, aber funktioniert nicht face-sad
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
Member: Senseless-Creature
Senseless-Creature Jun 07, 2019 at 12:46:10 (UTC)
Goto Top
Keine Fehlermeldung - Es wird kein Link unter "Favoriten" angelegt..
Member: SlainteMhath
SlainteMhath Jun 07, 2019 at 12:50:30 (UTC)
Goto Top
Moin,

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
Member: Senseless-Creature
Senseless-Creature Jun 07, 2019 at 12:51:37 (UTC)
Goto Top
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
Member: Senseless-Creature
Senseless-Creature Jun 07, 2019 at 12:54:34 (UTC)
Goto Top
Das ist der Tip, den ich hier als erstes bekommen habe - allerdings legt mir das Script auch keine URL auf dem Desktop ab..
Member: SlainteMhath
SlainteMhath Jun 07, 2019 at 13:01:51 (UTC)
Goto Top
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 face-smile
Member: Pjordorf
Pjordorf Jun 07, 2019 at 13:02:48 (UTC)
Goto Top
Hallo,

Zitat von @Senseless-Creature:
Keine Fehlermeldung - Es wird kein Link unter "Favoriten" angelegt..
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 vorbeigehtface-smile

Gruß,
Peter
Member: Kraemer
Kraemer Jun 07, 2019 updated at 13:06:53 (UTC)
Goto Top
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.URL

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
Member: SlainteMhath
SlainteMhath Jun 07, 2019 at 13:06:34 (UTC)
Goto Top
Zitat von @Kraemer:
beides nicht wirklich wie ein kurzes debugging zeigen würden.

Siehe mein letzter Post face-smile
Member: Kraemer
Kraemer Jun 07, 2019 at 13:07:53 (UTC)
Goto Top
Zitat von @SlainteMhath:

Zitat von @Kraemer:
beides nicht wirklich wie ein kurzes debugging zeigen würden.

Siehe mein letzter Post face-smile
ja schon geil so ein Copy&Paste&Copy&Paste&Cop....Wahnsinn.
Member: Pjordorf
Pjordorf Jun 07, 2019 at 13:09:15 (UTC)
Goto Top
Hallo,

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?

Gruß,
Peter
Member: Pjordorf
Pjordorf Jun 07, 2019 at 13:15:03 (UTC)
Goto Top
Hallo,

Zitat von @Kraemer:
ja schon geil so ein Copy&Paste&Copy&Paste&Cop....Wahnsinn.
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
Member: Senseless-Creature
Senseless-Creature Jun 07, 2019 at 13:15:08 (UTC)
Goto Top
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
Member: Pjordorf
Pjordorf Jun 07, 2019 updated at 13:24:43 (UTC)
Goto Top
Hallo,

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.
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
Mitglied: 139920
Solution 139920 Jun 07, 2019 updated at 13:43:09 (UTC)
Goto Top
Verknüpfungen bringen dir beim Edge nichts, der speichert seine Bookmarks in einer *.edb Datenbank im Ordner
%localappdata%\Packages\Microsoft.MicrosoftEdge_8wekyb3d8bbwe\AC\MicrosoftEdge\User\Default\DataStore\Data\nouser1\120712-0049\DBStore
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
heart1
GermansolvedQuestionVB for ApplicationsDevelopment