Re: Nazwa komputera na pulpicie

rafalm log:
[...]
> a obawiam sie ze niestety Policie niekiedy nie pozwalaja na
> zmiane tapety. Najbardziej pasowal by mi jakis skrypcik.
[...]
Może pomoże "gorący jeszcze i niegryziony":-) script.vbs (bez linii do pliku
wklejony) np. jn:
_______________
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_NTDomain")
Set objComputer = CreateObject("Shell.LocalMachine")

Wscript.Echo "Komputer: " & objComputer.MachineName
For Each objItem in colItems
Wscript.Echo "Domena: " & objItem.DomainName
Next
_______________

-- 
"W przypadku wniesienia przez pozwanego sprzeciwu w sposób prawidłowy nakaz
traci moc..." KPC