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, 6762 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 ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(1)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
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
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

VB for Applications
gelöst VB Script nach gefundenem Wort die nächsten 4 Zeichen ersetzten (2)

Frage von deutsch73 zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (13)

Frage von JayyyH zum Thema Switche und Hubs ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Backup
Clients als Server missbrauchen? (9)

Frage von 1410640014 zum Thema Backup ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...