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 Verwenden von Systemvariablen in VB Script

Mitglied: DemseinAdmin

DemseinAdmin (Level 1) - Jetzt verbinden

29.08.2008, aktualisiert 10:57 Uhr, 6828 Aufrufe, 4 Kommentare

Hallo zusammen,

ich stehte gerade vor folgendem Anfängerproblem ;)

Habe mir ein kleines Script zusammengebastelt, welches beim ersten Anmelden in meiner Domäne ausgeführt werden, und die XP-Tour unterbinden soll.
Hier mal der Code:

01.
Set wmireg = GetObject("winmgmts:\\.\root\default:StdRegProv") 
02.
Set fso = CreateObject("Scripting.FileSystemObject") 
03.
 
04.
Const HKLM = &H80000002 
05.
Const REG_SZ = 1 
06.
Const REG_EXPAND_SZ = 2 
07.
Const REG_BINARY = 3 
08.
Const REG_DWORD = 4 
09.
Const REG_MULTI_SZ = 7 
10.
 
11.
strLogDir = "%USERPROFILE%\" 
12.
strLogFile = "xptour_run.txt" 
13.
 
14.
If Not (fso.FileExists(strLogDir & strLogFile)) Then 
15.
 
16.
	key = "Software\Microsoft\Windows\CurrentVersion\Applets\Tour" 
17.
	result = wmireg.CreateKey(HKLM, key) 
18.
	result = wmireg.SetDWORDValue(HKLM, key, "RunCount", 0) 
19.
	 
20.
	If (result = 0) Then 
21.
		WScript.Echo "Schlüssel angelegt." 
22.
	Else 
23.
		WScript.Echo "Fehler Nr. " & result 
24.
	End If 
25.
 
26.
	Set txtfile = fso.CreateTextFile(strLogDir & strLogFile) 
27.
	txtfile.WriteLine "done" 
28.
   	txtfile.Close 
29.
 
30.
 
31.
Else 
32.
'Script ist schon mal gelaufen 
33.
End If
Komischerweise sagt mir der Debugger nun, dass der Pfad nicht erreichbar wäre. Kann er die Systemvariable %USERPROFILE% etwa so nicht richtig auflösen?
Hat einer ne Idee?

Gruß
LiNDi
Mitglied: 53222
29.08.2008 um 10:17 Uhr
Hallo,

kann sein das ich mich jetzt irre, aber muss die Systemvariable nicht erst mit environ() gesetzt werden?!

Gruß
BaBYloN
Bitte warten ..
Mitglied: DemseinAdmin
29.08.2008 um 10:27 Uhr
Soviel ich weiß, bzw. nach meinem Test grade, gibt es unter VBS keine Environ() Funktion!?
Bitte warten ..
Mitglied: AndreasHoster
29.08.2008 um 10:39 Uhr
Nö Environ() gibts nicht, aber:
01.
Set oWSH = CreateObject("WScript.Shell") 
02.
strLogDir = oWSH.ExpandEnvironmentStrings("%username%\")
Bitte warten ..
Mitglied: DemseinAdmin
29.08.2008 um 10:57 Uhr
Funktioniert 100%ig, vielen Dank!
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Systemvariable funktioniert im Script nicht

Frage von miczarBatch & Shell4 Kommentare

Guten Morgen zusammen, ich habe hier mehrere PCs mit Windows 7 System auf dem ich ein Script laufen habe. ...

VB for Applications

VB-Script in VB-Script starten und Parameter übergeben

gelöst Frage von denkisVB for Applications7 Kommentare

Hallo liebe Scriptgemeinde, ich muss mehrere Rechner für den Übergang in eine neue Domäne vorbereiten. Dafür sind drei wesentliche ...

Batch & Shell

Probleme bei der Ausführung eines VB-Scriptes

Frage von AuricGoldfingerBatch & Shell1 Kommentar

Hallo zusammen, ich habe folgendes Script geschrieben: Leider bekomme ich bei der Ausführung den Fehler Was mache ich falsch?? ...

Windows Server

Drucker entfernen in VB-Script

gelöst Frage von NilsvLehnWindows Server2 Kommentare

Hallo ich habe eine kleine Frage bzgl. unseres Anmeldeskriptes. Ich habe ein IT-netzwerk an einer Uni übernommen. Ich arbeite ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 8 StundenWindows 103 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 11 StundenAdministrator.de Feedback10 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 1 TagGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...