'*** v9.4 *** www.dieseyer.de *******************************
' 
' Datei:  usertempverz.vbs 
' Autor:  dieseyer@gmx.de
' Auf:    www.dieseyer.de 
'
' Die Prozedur ist Bestandteil von WinTuC_vbs.vbs (WinTuC.de)
'
'************************************************************ 
  
  Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

  MsgBox UserTempVerz() 

Wscript.Quit 


'*** v9.4 *** www.dieseyer.de *******************************
Function UserTempVerz
'************************************************************
' aus 'Scriptomatic v2.0' by 'The MS Scripting Guys'
  Dim objWMIService	: Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
  Dim colItems		: Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Environment", "WQL", &h10 + &h20 )
  Dim objItem
  For Each objItem In colItems
	If InStr( UCase( objItem.UserName ), UCase( CreateObject("WScript.Network").Username ) ) > 0 Then
'	  If objItem.SystemVariable = vbFalse Then UserTempVerz = objItem.VariableValue : Exit For
	  If InStr( UCase( objItem.VariableValue ), "TEMP" ) > 0 Then UserTempVerz = objItem.VariableValue : Exit For
	  If InStr( UCase( objItem.VariableValue ), "TMP" ) > 0 Then UserTempVerz = objItem.VariableValue : Exit For
	End If
  Next
' MsgBox UserTempVerz, , "30 :: "
  If InStr( UCase( UserTempVerz ), "%USERPROFILE%" ) = 1 Then
	UserTempVerz = Mid( UserTempVerz, Len( "%USERPROFILE%" ) + 1 )
	UserTempVerz = CreateObject("WScript.Shell").Environment("PROCESS")("USERPROFILE") & UserTempVerz
  End If

' MsgBox "UserTempVerz: " & UserTempVerz, , "36 :: " : WScript.Quit
End Function ' UserTempVerz