Verwenden von Systemvariablen in VB Script

Set wmireg = GetObject("winmgmts:\\.\root\default:StdRegProv")  
Set fso = CreateObject("Scripting.FileSystemObject")  

Const HKLM = &H80000002
Const REG_SZ = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY = 3
Const REG_DWORD = 4
Const REG_MULTI_SZ = 7

strLogDir = "%USERPROFILE%\"  
strLogFile = "xptour_run.txt"  

If Not (fso.FileExists(strLogDir & strLogFile)) Then

	key = "Software\Microsoft\Windows\CurrentVersion\Applets\Tour"  
	result = wmireg.CreateKey(HKLM, key)
	result = wmireg.SetDWORDValue(HKLM, key, "RunCount", 0)  
	
	If (result = 0) Then
		WScript.Echo "Schlüssel angelegt."  
	Else
		WScript.Echo "Fehler Nr. " & result  
	End If

	Set txtfile = fso.CreateTextFile(strLogDir & strLogFile)
	txtfile.WriteLine "done"  
   	txtfile.Close


Else
'Script ist schon mal gelaufen  
End If