Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Ziel definieren in .vbs

Frage Entwicklung Batch & Shell

Mitglied: mc-doubleyou

mc-doubleyou (Level 2) - Jetzt verbinden

06.12.2010 um 16:17 Uhr, 2942 Aufrufe, 5 Kommentare

Hallo,

Ich möchte gerne einen Link (ShortCut) am Desktop von bestimmten Benutzern erstellen und zwar per VBS

Auf dem Desktop des derzeitigen Benutzers funktioniert auch ohne Probleme aber die Definition das es zB. der User Desktop sein soll funktioniert gar nicht.

Hier mal mein bisheriger Code

01.
 
02.
SuperadminDesktop = "C:\Dokumente und Einstellungen\Superadmin\Desktop\" 
03.
 
04.
Const strProgramtitel="Liegenschaftsbewertung NEU" 
05.
Const strProgram ="c:\windows\notepad.exe" 
06.
Dim objShortcut 
07.
Dim objShell 
08.
Set objShell= WScript.CreateObject("Wscript.Shell") 
09.
strLPfad=objShell.SpecialFolders("SuperadminDesktop") 
10.
Set objShortcut=objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk") 
11.
objShortcut.TargetPath= strProgram 
12.
objShortcut.Description= "strProgramtitel" 
13.
objShortcut.Save  
14.
 
Hoffe ihr könnt den Fehler finden.

Danke!
Mitglied: MrTrebron
06.12.2010 um 16:32 Uhr
Hi MC

versuch mal
01.
SupderadminDesktop = "C:\Dokumente und Einstellungen\Superadmin\Desktop\" 
02.
  
03.
Const strProgramtitel = "Liegenschaftsbewertung NEU"  
04.
Const strProgram = "c:\windows\notepad.exe"  
05.
Dim objShortcut  
06.
Dim objShell  
07.
Set objShell = WScript.CreateObject("Wscript.Shell")  
08.
Set objShortcut = objShell.CreateShortcut(SuperadminDesktop & "\" & strProgramtitel & ".lnk")  
09.
objShortcut.TargetPath = strProgram  
10.
objShortcut.Description = "strProgramtitel"  
11.
objShortcut.Save  
12.
 
13.
MsgBox("Done")
Gruß
Norbert
Bitte warten ..
Mitglied: mc-doubleyou
06.12.2010 um 16:40 Uhr
Hi Trebron,

das Done erscheint und es wirkt als würde es klappen, leider ist aber auch dann kein Link am Desktop dieses Benutzers sichtbar.
Bitte warten ..
Mitglied: AndreasHoster
06.12.2010 um 17:11 Uhr
Debugging für Anfänger:
Regel 1: Niemals davon ausgehen, daß das Programm das tut, was man erwartet ohne es nachzuprüfen.

Zum Nachprüfen:
Im Beispiel von Norbert zwischen Zeile 07 und 08 mal einbauen:
msgbox SuperadminDesktop & "\" & strProgramtitel & ".lnk"

Dann würde man sofort feststellen, daß man den Link an einer falschen Stelle versucht zu setzen, da man in Zeile 1 einen Tippfehler hat:
SupderadminDesktop statt SuperadminDesktop

Damit wird der Link im Pfad \Liegenschaftsbewertung Neu.lnk angelegt, was natürlich nicht das ist, was man erwartet hat.
Bitte warten ..
Mitglied: MrTrebron
07.12.2010 um 07:59 Uhr
Hi MC

das "done" war nur zur Überprüfung wie weit das Script läuft

Gruß
Norbert
Bitte warten ..
Mitglied: MrTrebron
07.12.2010 um 08:00 Uhr
Hi Andreas,

danke. Hatte den Code auf meinem Rechner etwas anders gestaltet (Pfade und Variablen Namen) und wohl ein wenig zu hastig getippt.

Gruß
Norbert
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Powershell: ScrollBar in ListBox definieren (11)

Frage von Markus2016 zum Thema Batch & Shell ...

Router & Routing
2 Routen zu einem Ziel (10)

Frage von chewbacca001 zum Thema Router & Routing ...

Batch & Shell
gelöst VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen) (5)

Frage von Luuke257 zum Thema Batch & Shell ...

Windows 10
Windows 10 Standardprogramme zum öffnen definieren (1)

Frage von DragonKill zum Thema Windows 10 ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(2)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
gelöst Leiten "dumme" Switches VLAN-Tags mit durch? (26)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (15)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Router & Routing
FTTH bzw FTTB Router (13)

Frage von ukulele-7 zum Thema Router & Routing ...