Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Entwicklung VB for Applications

Mitglied: DemseinAdmin

DemseinAdmin (Level 1) - Jetzt verbinden

29.08.2008, aktualisiert 10:57 Uhr, 6801 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
VB for Applications
gelöst VB-Script per Aufgabenplanung (2)

Frage von S4kar97 zum Thema VB for Applications ...

Batch & Shell
gelöst Systemvariable über Batch nicht abrufbar! (7)

Frage von Brotkasten zum Thema Batch & Shell ...

Java
Java deployment.properties und Systemvariablen (3)

Frage von 1x1speed zum Thema Java ...

Batch & Shell
gelöst Modify a vb script to change the targets in lnk files (2)

Frage von jukuhuku zum Thema Batch & Shell ...

Neue Wissensbeiträge
Sicherheits-Tools

Trendmicro OSCE und das Fall Creators Update Win10 RS3

(3)

Information von Henere zum Thema Sicherheits-Tools ...

Microsoft Office

Text in Zahlen umwandeln

Tipp von logische zum Thema Microsoft Office ...

Erkennung und -Abwehr

Infineon TPMs unsicher! Bitlocker ggf. angreifbar

(4)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Firewall

PfSense Repository für Version 2.3.x

(7)

Information von Dobby zum Thema Firewall ...

Heiß diskutierte Inhalte
Microsoft Office
ICH BIN AM ENDE MEINES IT-WISSENS ANGELANGT!!!! (38)

Frage von 134537 zum Thema Microsoft Office ...

Windows Server
gelöst Gruppenrichtlinie greift nicht zu! (23)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...