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, 6791 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
Findstr Path CMD ja - Batch Script nein - FireFox Profiles (2)

Frage von ChrisIO zum Thema Batch & Shell ...

Peripheriegeräte
PowerChute Business Edition startet das Script nicht (12)

Frage von merome zum Thema Peripheriegeräte ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Server-Hardware
Einem Stromausfall entgegen wirken (22)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema Server-Hardware ...

Festplatten, SSD, Raid
PC stellt nach dem Bios ab (20)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...

Windows 7
Freeware MSI Tool (13)

Frage von uridium69 zum Thema Windows 7 ...

DSL, VDSL
gelöst Ständige Störungen - Internet (12)

Frage von gamerff zum Thema DSL, VDSL ...