Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: onegasee59

onegasee59 (Level 2) - Jetzt verbinden

25.11.2008, aktualisiert 22:37 Uhr, 6301 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
VB for Applications
VBS Script kann Prgramm nicht starten
gelöst Frage von C.BoernerVB for Applications15 Kommentare

Hallo ihr Admins, Ich habe folgendes Scenarios ein Programm läuft im Hintergrund (Drivve-Image) das übergibt Werte an ein VBS ...

Batch & Shell
Hilfe Bei einem vbs Script
gelöst Frage von Hattori-HanzoBatch & Shell19 Kommentare

Hey Leute Könnt ihr mir bitte sagen was daran falsch ist? beschäftige mich erst seit kurzem mit vbs scripts. ...

JavaScript

VBS-Script wird nicht vollständig ausgeführt

Frage von HousefrauJavaScript3 Kommentare

Hallo zusammen, wir lassen über eine Gruppenrichtlinie einen Script ausführen, welcher die Drucker der einzelnen Parteien mappen soll. Leider ...

Entwicklung

VBS Script in Powershell aufrufen

gelöst Frage von HanutaEntwicklung7 Kommentare

Hallo Zusammen, ich möchte einen VBS Script in Powershell aufrufenist das überhaupt möglich ? Wenn ja, wie ? VG ...

Neue Wissensbeiträge
Sicherheit

Zero Day-Schwachstelle im Internet Explorer - wird von APT bereits ausgenutzt

Information von kgborn vor 8 StundenSicherheit

Im Kernel des Internet Explorer scheint es eine Zero Day-Lücke zu geben, die von staatlichen Akteuren (APT) im Rahmen ...

Microsoft
Folder Security Viewer-Lizenzen zu gewinnen
Information von kgborn vor 8 StundenMicrosoft

Ich nehme das Thema mal in Absprache mit Frank hier auf, da es für den einen oder anderen Administrator ...

Hardware

Feueralarm killt Festplatten in Rechenzentrum - führt zu größerem Ausfall

Information von kgborn vor 9 StundenHardware10 Kommentare

Noch ein kleiner Beitrag für Administratoren, die in Rechenzentren aktiv sind - so als Fingerzeig. Denn es gibt Szenarien, ...

MikroTik RouterOS

Mikrotik Advisory: Vulnerability exploiting the Winbox port

Information von colinardo vor 9 StundenMikroTik RouterOS

Brand aktuell: Eine Schwachstelle im Winbox-Port bei Mikrotik Routern erlaubt das Auslesen der User-Datenbank der Router. Patch ist aktuell ...

Heiß diskutierte Inhalte
Linux
Linux Server oder Windows Server - lohnt eine Umstellung auf Linux und ebenso basierende SW bei einer langfristigen Planung?
Frage von motus5Linux23 Kommentare

Wir brauchen bei uns einen neuen Server. Dieser wird als Fileserver, Domäne Controller sowie Exchange Server verwendet. Wir versuchen ...

DSL, VDSL
ISP Wechsel auf Vodefone Koax, Gebäudeverkabelung nur per Cat 7
gelöst Frage von wusa88DSL, VDSL17 Kommentare

Hallo Zusammen, ich bin momentan bei Mnet als Glasfaser Kunde und möchte Preis/Leistungs-Technisch zu Kabel Deutschland / Vodafone wechseln. ...

Windows Server
Domänencontroller trennen
Frage von Akit57Windows Server13 Kommentare

Hallo, ich hoffe das mir hier jemand meine Frage trotz der spärlichen Informationen die ich geben kann beantworten kann: ...

LAN, WAN, Wireless
Kommunikation zwischen verschiedenen IP-Bereichen
Frage von DirkHoLAN, WAN, Wireless13 Kommentare

Hallo zusammen, von Unitymedia habe ich ein neues Modem (Connect Box) erhalten, das u.a. IPv4 aber keinen Bridge Mode ...