[es] - batch fajl za sve usere

crniluk

Član broj: 151787
Poruke: 192
*.eunet.rs.

+15 Profil

^{22.12.2008. u 11:39 - pre 186 meseci}

Zna li neko mozda kako da kopiram neke fajlove na sve user accounte u win xp, i ornuto.

Kada radim sve pojedinacno radi ali kako da to sve uradim odjednom sa jednom komandom?

Odgovor na temu

crniluk

Član broj: 151787
Poruke: 192
*.eunet.rs.

+15 Profil

Re: batch fajl za sve usere

^{25.12.2008. u 22:10 - pre 186 meseci}

Da li je moguce da niko nema ideju kako ovo resiti?

Odgovor na temu

daigu
System Engineer Wannabee, Non IT corp.

Član broj: 172424
Poruke: 19
87.252.129.*

+1 Profil

Re: batch fajl za sve usere

^{01.01.2009. u 18:19 - pre 186 meseci}

Otprilike da dobiješ ideju. Možeš napraviti vbs skriptu, koja sa harkodiranim imenom fajla (mojfajl.txt) i destinacije (Desktop) izgleda ovako:

Code:

On Error Resume Next
Set WSHShell = CreateObject("Wscript.Shell")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_UserAccount Where LocalAccount = True")

For Each objItem in colItems
    strAccount = objItem.Name
    'Komanda za kopiranje
    cmd = "COPY C:\TEMP\mojfajl.txt ""C:\Documents And Settings\" & strAccount & "\Desktop"""
    WSHShell.Run cmd
Next

Sada možeš kao ulazne parametre ubaciti ime fajla, destinaciju foldera u profilu, pa od toga sastaviti string cmd. Ili hoćeš sve na pladnju...

Odgovor na temu

crniluk

Član broj: 151787
Poruke: 192
*.eunet.rs.

+15 Profil

Re: batch fajl za sve usere

^{01.01.2009. u 19:44 - pre 186 meseci}

Hvala na pomoci, pokusacu.

Odgovor na temu