ON ERROR RESUME NEXT

IF err.number <> 0 THEN
	MsgBox "Skrypt nie ma uprawnień podniesionych, zostanie uruchomiony jeszcze raz."
	Set objShell = CreateObject("Shell.Application")
	objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34), "", "runas", 1
	WScript.Quit()
ELSE
	MsgBox "Skrypt już uruchomiony z prawami podniesiownymi"
END IF