' Kod pokazuje, w jaki sposb skopiowa plik lub katalog 
' i zmieni jego nazw (w przypadku interfejsu WMI rwnoznaczne przeniesieniu) 
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "."
strCurrentFile = "<ciekaIstniejcegoPliku>"  ' cieka istniejcego pliku lub katalogu
strNewFile     = "<ciekaNowegoPliku>"      ' cieka nowego pliku lub katalogu
' ------ KONIEC KONFIGURACJI ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set objFile = objWMI.Get("Cim_Datafile='" & strCurrentFile & "'")
WScript.Echo "Zmiana nazwy pliku " & strCurrentFile & " na " & strNewFile
intRC = objFile.Rename(strNewFile)
if intRC <> 0 then
   WScript.Echo "Podczas zmiany nazwy wystpi bd: " & intRC
else
   WScript.Echo "Operacja zmiany nazwy zostaa zakoczona powodzeniem."
end if

' ------ KONFIGURACJA SKRYPTU ------
strComputer = "."
strCurrentFile = "<ciekaIstniejcegoPliku>" ' cieka istniejcego pliku lub katalogu
strNewFile     = "<ciekaNowegoPliku>"     ' cieka nowego pliku lub katalogu
' ------ KONIEC KONFIGURACJI ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set objFile = objWMI.Get("Cim_Datafile='" & strCurrentFile & "'")
WScript.Echo "Kopiowanie pliku " & strCurrentFile & " do " & strNewFile
intRC = objFile.Copy(strNewFile)
if intRC <> 0 then
   WScript.Echo "Podczas kopiowania wystpi bd: " & intRC
else
   WScript.Echo "Operacja kopiowania zostaa zakoczona powodzeniem."
end if
