If you look at either of the following keys: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\hivelist You can find a list of the SIDs there with various values, including where their “home paths” which includes their usernames. I’m not sure how dependable this is and I wouldn’t recommend messing about with this unless you’re really sure what you’re doing.
For replace you can use vbCrLf: Replace(string, vbCrLf, “”) You can also use chr(13)+chr(10). I seem to remember in some odd cases that chr(10) comes before chr(13).
You can create a (relatively) small function in each file that you want to include other files into, as follows: sub includeFile (fSpec) dim fileSys, file, fileData set fileSys = createObject (“Scripting.FileSystemObject”) set file = fileSys.openTextFile (fSpec) fileData = file.readAll () file.close executeGlobal fileData set file = nothing set fileSys = nothing end sub and … Read more
Your suggestion would work, but using a Do loop might be a little more readable. This is actually an idiom in C – instead of using a goto, you can have a do { } while (0) loop with a break statement if you want to bail out of the construct early. Dim i For … Read more
I do not know if a regex can be used directly in a rule, but you can have a rule trigger a script and the script can use regexes. I hate Outlook. First, you have to open the script editor via Tools – Macro – Open Visual Basic Editor (Alt-F11 is the shortcut). The editor … Read more
Arrays are not very dynamic in VBScript. You’ll have to use the ReDim Preserve statement to grow the existing array so it can accommodate an extra item: ReDim Preserve yourArray(UBound(yourArray) + 1) yourArray(UBound(yourArray)) = “Watermelons”
Yes, Mid. Dim sub_str sub_str = Mid(source_str, 10, 5) The first parameter is the source string, the second is the start index, and the third is the length. @bobobobo: Note that VBScript strings are 1-based, not 0-based. Passing 0 as an argument to Mid results in “invalid procedure call or argument Mid”.
Set objFSO=CreateObject(“Scripting.FileSystemObject”) ‘ How to write file outFile=”c:\test\autorun.inf” Set objFile = objFSO.CreateTextFile(outFile,True) objFile.Write “test string” & vbCrLf objFile.Close ‘How to read a file strFile = “c:\test\file” Set objFile = objFS.OpenTextFile(strFile) Do Until objFile.AtEndOfStream strLine= objFile.ReadLine Wscript.Echo strLine Loop objFile.Close ‘to get file path without drive letter, assuming drive letters are c:, d:, etc strFile=”c:\test\file” s … Read more
You can use WScript.ScriptFullName which will return the full path of the executing script. You can then use string manipulation (jscript example) : scriptdir = WScript.ScriptFullName.substring(0,WScript.ScriptFullName.lastIndexOf(WScript.ScriptName)-1) Or get help from FileSystemObject, (vbscript example) : scriptdir = CreateObject(“Scripting.FileSystemObject”).GetParentFolderName(WScript.ScriptFullName)
Is VarType what you need? Returns a value indicating the subtype of a variable. +————–+——-+———————————————+ | Constant | Value | Description | +————–+——-+———————————————+ | vbEmpty | 0 | Empty (uninitialized) | | vbNull | 1 | Null (no valid data) | | vbInteger | 2 | Integer | | vbLong | 3 | Long integer … Read more