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

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, 6778 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 ...

Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

VB for Applications
VB.net Combobox databinding langsam (3)

Frage von ForgottenRealm zum Thema VB for Applications ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst ZIP-Archive nach Dateien durchsuchen und Pfade ausgeben (33)

Frage von evinben zum Thema Batch & Shell ...

Router & Routing
Routingproblem in Homerouter-Kaskade mit Raspi (20)

Frage von Oldschool zum Thema Router & Routing ...

Server
Freenas schlechte Schreib Performance bei NFS (16)

Frage von janosch12 zum Thema Server ...

C und C++
Methode multiple return values (8)

Frage von mayho33 zum Thema C und C ...