[RESOLVED] %userprofile% & %systemdrive% options?

[csleech]

Hi All,

I'm trying to figure out if there are any system options in VBscript that I could use similar to what are available through a CMD prompt or through a Batch file.

The ones that I am most commonly looking to use are:

%userprofile%
%systemdrive%
%systemroot%

If the options are not available, how can I create something in VBscript that will automatically locate these areas?

For example I want to find a certain folder in Application Data for the logged in user. In a Batch file I would do something like this.

%userprofile%\Application Data\Folder

How can that be done in VBS?

Thanks in advance!

[mendhak]

ExpandEnvironmentString

'VBScript Example
set WshShell = CreateObject("WScript.Shell")
WScript.Echo WshShell.ExpandEnvironmentStrings("%SystemRoot%")
WScript.Echo WshShell.ExpandEnvironmentStrings("%WinDir%")

[csleech]

Ok, so I tried what you show above (modified a little for my code for testing) and I get an error shown below.

Script: File Path
Line: 12
Char: 1
Error: Object Doesn't Supprt this property or method: 'WshShell.ExpandEnvironmentalStrings'
Code: 800A01B6
Source: Microsoft VBScript runtime error

Here is my code. If I remove line 12 it shows the same error but on line 13.

Dim FilSys, Uname
Dim FDel, UserName
Dim strComputer
Dim UserPath, WinDir, SystemRoot

Set WshShell = Wscript.CreateObject("WScript.Shell")
Set FilSys = CreateObject ("Scripting.FileSystemObject")
Set Uname = CreateObject ("wscript.network")

strComputer = "."
UserName = Uname.UserName
UserPath = WshShell.ExpandEnvironmentalStrings("%UserProfile%")
WinDir = WshShell.ExpandEnvironmentalStrings("%WinDir%")
SystemRoot = WshShell.ExpandEnvironmentalStrings("%SystemRoot%")
FDel = (UserPath & "\Application Data\TEST")

FilSys.DeleteFolder FDel

[csleech]

Ok... Well I got it to work now... Check out the code below. Not sure why the other way (that was previously provided) didn't work...

Dim FilSys, Envi
Dim strComputer
Dim UserPath, WinDir, SystemRoot

Set WshShell = Wscript.CreateObject("WScript.Shell")
Set FilSys = CreateObject ("Scripting.FileSystemObject")
Set Envi = WshShell.Environment ("Process")

strComputer = "."
UserPath = Envi("UserProfile")
'WinDir = WshShell.ExpandEnvironmentalStrings("%WinDir%")
'SystemRoot = WshShell.ExpandEnvironmentalStrings("%SystemRoot%")
WinDir = "\Application Data\Test"

'MsgBox (UserPath & WinDir)
FilSys.DeleteFolder (UserPath & WinDir)