vystup net user

A čo takto script:

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")

MessageText = "Zoznam lokálnych užívateľov:" & vbNewline

For Each objUser In colAccounts
MessageText = MessageText & vbNewline & objUser.Name 
Next

MsgBox MessageText,vbOkOnly, "Program vbscript"

Vytvor nový súbor napr. v notepade, ulož napr. ako users.vbs spusti...

diky, ale obavam se, ze to asi nedonutim udelat vystup do souboru. ja tedy urcite ne

Obávám se, že nic takového příkaz net user neumožňuje.

Můžeš naznačit, k čemu to potřebuješ? Možná existuje alternativní řešení.

potrebuju seznam lokalnich uzivatelu v souboru pod sebou, ten pote pouzit pro dalsi skript, kterym si uz vygrepuju z 'net user uzivatel' jmeno, skupiny atd. ale nevim z ceho vytahnout ten seznam lokalnich uzivatelu, kdyby se jednalo o jednu masinu, tak to prepisu rucne, ale bude jich vic (cca 20) a to delat rucne nebudu, doufam

No tak použij skript od pme a výstup přesměruj do souboru. Šlo by to?

jj, asi urcite, pokud mi to nekdo prepise s vystupem do souboru

Lenochu!

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")

strOutputFile = "./" & Split(WScript.ScriptName, ".")(0) & ".txt"
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)

For Each objUser In colAccounts
MessageText = MessageText & objUser.Name & vbNewline 
Next

objOutputFile.WriteLine(MessageText)
objOutputFile.Close

Set objFileSystem = Nothing

diky ti.

po nekoho mozna lenochu, ale me vb a podobne veci nerikaji vubec nic

Já jsem taky improvizoval...

jj, všiml jsem si

Čekal jsem, že se ozveš. To víš, ne každý se narodil s VBS Users' Guide v podpaží...

takze diky pme a hostovi. problem vyresen