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
GELÖST

VBS-Script Ändern auf automatische systemroot-Erkennung

Frage Entwicklung Batch & Shell

Mitglied: onegasee59

onegasee59 (Level 2) - Jetzt verbinden

25.11.2008, aktualisiert 22:37 Uhr, 6243 Aufrufe, 4 Kommentare

Hallo

ich hatte mal eine *.VBS gefunden mit dem ich für meine Batch bei Bedarf eine Verknüpfung auf dem Desktop erstellen kann.

01.
set wshshell = CreateObject("WScript.Shell")  
02.
'Ort des Windowsdesktops 
03.
'desktopdir = "System-LW\winnt\profiles\USERID\desktop" 
04.
desktopdir = wshshell.SpecialFolders(0) 
05.
 
06.
neuerlink = desktopdir & "\PC Neustart.lnk" 
07.
set link = wshshell.Createshortcut(neuerlink) 
08.
link.TargetPath = "C:\WIN-Scripte\PC-Shutdown-Reboot\PC Neustart.exe" 
09.
link.Save 
10.
 
11.
neuerlink1 = desktopdir & "\PC Ausschalten.lnk" 
12.
set link1 = wshshell.Createshortcut(neuerlink1) 
13.
link1.TargetPath = "C:\WIN-Scripte\PC-Shutdown-Reboot\PC Ausschalten.exe" 
14.
link1.Save 
15.
 
16.
'MsgBox ("Verknüpfungen zu "PC Neustart.exe" und "PC Ausschalten.exe" wurden auf dem Desktop angelegt!")
Könnt ich mir den Code so ändern das in der Zeile 8 und 13 ("link1.TargetPath = -...) das System-LW automatisch vom *.vbs eingestellt wird.

Danke
onegase59
Mitglied: dog
25.11.2008 um 01:22 Uhr
Eine Möglichkeit:
01.
strSystemDrive = wshshell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") 
Das benutzt die %SYSTEMDRIVE%-Umgebungsvariable (nicht getestet)

Grüße

Max
Bitte warten ..
Mitglied: onegasee59
25.11.2008 um 01:33 Uhr
Danke Max,

Und wie muss ich
01.
strSystemDrive = wshshell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") 
in meinen Code einbauen?

so? link1.TargetPath = "strSystemDrive\WIN-Scripte\PC-Shutdown-Reboot\PC Ausschalten.exe"

onegasee59
Bitte warten ..
Mitglied: dog
25.11.2008 um 01:47 Uhr
etwa so:

01.
'Wsh Shell Objekt 
02.
set wshshell = CreateObject("WScript.Shell")  
03.
'Ort des Windowsdesktops 
04.
desktopdir = wshshell.SpecialFolders(0) 
05.
'Laufwerksbuchstabe 
06.
systemDrive = wshshell.ExpandEnvironmentStrings("%SYSTEMDRIVE%")  
07.
 
08.
neuerlink = desktopdir & "\PC Neustart.lnk" 
09.
set link = wshshell.Createshortcut(neuerlink) 
10.
link.TargetPath = systemDrive & "\WIN-Scripte\PC-Shutdown-Reboot\PC Neustart.exe" 
11.
link.Save 
12.
 
13.
neuerlink1 = desktopdir & "\PC Ausschalten.lnk" 
14.
set link1 = wshshell.Createshortcut(neuerlink1) 
15.
link1.TargetPath = systemDrive & "\WIN-Scripte\PC-Shutdown-Reboot\PC Ausschalten.exe" 
16.
link1.Save
Bitte warten ..
Mitglied: onegasee59
25.11.2008 um 22:37 Uhr
Hallo

Zitat von dog:
----
etwa so:....

Genau so geht es.

Herzlichen Dank für Deine Hilfe.

Gruß
onegasee59
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Hilfe Bei einem vbs Script (19)

Frage von Hattori-Hanzo zum Thema Batch & Shell ...

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
gelöst Vbs oder batch zum Ändern von Dateinamen ab Zeichenkette (13)

Frage von vbaGast zum Thema Windows 10 ...

Batch & Shell
Script Lokales Admin Passwort ändern (3)

Frage von MaxBerg zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 im Unternehmen? (26)

Frage von zorlayan zum Thema Windows 10 ...

LAN, WAN, Wireless
Ping u. DNS geht am Rechner nicht mehr (19)

Frage von Kuemmel zum Thema LAN, WAN, Wireless ...

Festplatten, SSD, Raid
Raid 1 2 SSD mit Windows Server 2016 (17)

Frage von jaywee zum Thema Festplatten, SSD, Raid ...