Создание и добавление в файл

Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.txt", 2, True)
ts.WriteLine "Строка"
ts.Close

Узнать SID по имени пользователя и наоборот

'Узнать SID по имени пользователя

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objAccount = objWMIService.Get _
("Win32_UserAccount.Name='vasya',Domain='domain'")
Wscript.Echo objAccount.SID

'Узнать имя пользователя по его SID

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objAccount = objWMIService.Get _
("Win32_SID.SID='S-1-5-21-4122063186-443647741-4275581403-5649'")
Wscript.Echo objAccount.AccountName
Wscript.Echo objAccount.ReferencedDomainName

Ссылка на страницу источник

Вызов диалога выбора папки

Dim objPath, objFolder, objFolderItem, objShell, strPath
Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0
objPath = ""
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
  Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "Выберите папку:", OPTIONS, strPath)
If Not objFolder Is Nothing Then
   Set objFolderItem = objFolder.Self
   objPath = objFolderItem.Path
Else
   MsgBox "Каталог не выбран!"
   wscript.quit
End If